auser-poolparty 1.2.4 → 1.2.7

data/lib/poolparty/schema.rb

@@ -17,6 +17,7 @@ module PoolParty
         JSON.parse(h).each {|k,v| self[k.to_sym] = v}
       end
     end
+    
 
     def [](k)
       hsh[k]
@@ -53,16 +54,14 @@ module PoolParty
       
       $pool_specfile = "/etc/poolparty/clouds.rb"
       
-      remoter_base = PoolParty::Remote.module_eval(options.remote_base.split('::')[-1].camelcase)
-      # TODO: Seriously, make this sexier
-      
+      # TODO: Seriously, make this sexier      
       cld = OpenStruct.new(options)
       cld.keypair = ::PoolParty::Key.new("/etc/poolparty/#{node[:keypair]}")
-      cld.remoter_base = remoter_base
+      # cld.remoter_base = PoolParty::Remote.module_eval( schema.options.remoter_base.camelcase )
+      cld.remote_base = PoolParty::Remote.module_eval( schema.options.remoter_base.camelcase )
       cld.build_and_store_new_config_file = "/etc/poolparty/clouds.json"
       cld.dependency_resolver = PoolParty.module_eval(options.dependency_resolver.split("::")[-1].camelcase).send(:new)
-      
-      cld
+
     end
   end
 end

data/lib/poolparty/templates/monitor.ru

@@ -9,6 +9,7 @@ require "poolparty/monitors/monitor_rack"
 app = Rack::Builder.new do
   # use Rack::Reloader, 2
   use Rack::ShowExceptions
+  use Rack::CommonLogger
   # use Rack::PostBodyContentTypeParser  #parses json requests to params hash
   run Monitors::MonitorRack.new()
 end

data/spec/poolparty/core/ordered_hash_spec.rb

@@ -38,11 +38,11 @@ describe "Ordered Hash" do
     @oh[:arr] = [1,2,3]
     @oh.to_json.should == "{\"var1\":10,\"var2\":2,\"var3\":3,\"var4\":4,\"arr\":[1,2,3]}"
   end
-  it "PoolParty Key" do
-      @oh[:key] = [Key.new, Key.new('path/to/nowhere')]
-      expected=<<JSO
- {\"var1\":10,\"var2\":2,\"var3\":3,\"var4\":4,\"key\":[{\"basename\":\"id_rsa\",\"full_filepath\": \"/etc/poolparty/id_rsa\"},{\"basename\":\"path/to/nowhere\",\"full_filepath\": \"/etc/poolparty/path/to/nowhere\"}]}
-JSO
-      @oh.to_json.should == expected.strip
-  end
+  it "PoolParty Key" #do
+#       @oh[:key] = [Key.new, Key.new('path/to/nowhere')]
+#       expected=<<JSO
+#  {\"var1\":10,\"var2\":2,\"var3\":3,\"var4\":4,\"key\":[{\"basename\":\"id_rsa\",\"full_filepath\": \"/etc/poolparty/id_rsa\"},{\"basename\":\"path/to/nowhere\",\"full_filepath\": \"/etc/poolparty/path/to/nowhere\"}]}
+# JSO
+#       @oh.to_json.should == expected.strip
+  # end
 end

data/spec/poolparty/net/remote_instance_spec.rb

@@ -5,7 +5,7 @@ include PoolParty::Remote
 
 describe "Remote Instance" do
   before(:each) do
-    @valid_hash = {:ip => "127.0.0.1", :name => "master", :responding => "true"}
+    @valid_hash = {:public_ip=>'33.44.55.66', :ip => "127.0.0.1", :name => "master", :responding => "true"}
   end
 
   it "should have tests for the abstaract RemoteInstance class" do

data/spec/poolparty/poolparty/cloud_spec.rb

@@ -296,6 +296,24 @@ describe "Cloud" do
           end
         end
       end
+      
+      describe "JSON" do
+        before(:each) do
+          pool :jason do
+            user "fred"
+            minimum_instances 10
+            access_key "pool_a_key"
+            cloud :stratus do
+              keypair "fake_keypair"
+              access_key "cloud_a_key"
+            end
+          end
+          
+        end
+        it "should have to_json method" do
+          clouds[:stratus].to_json.class.should == String
+        end
+      end
 
       # describe "instances" do
       #   before(:each) do

data/spec/poolparty/poolparty/example_spec.rb

@@ -1,6 +1,26 @@
 require File.dirname(__FILE__) + '/../spec_helper'
 require "open-uri"
 
+# pool :application do
+#   instances 1..5
+#   
+#   cloud :basic_app do
+#     minimum_instances 3
+#     keypair 'front'
+#     image_id "ami-abc123"
+#     has_file :name => "/etc/motd", :content => "Welcome to your PoolParty instance"
+#   end
+#   
+#   cloud :basic_db do
+#     using :vmrun do
+#       vmx_hash "/path/to/vmx_file" => "192.168.248.122"
+#     end
+#     minimum_instances 1
+#     image_id "ami-1234bc"
+#   end
+# 
+# end
+
 describe "basic" do
   before(:each) do
     PoolParty.reset!
@@ -24,17 +44,17 @@ describe "basic" do
   it "should have a cloud called :db" do
     pools[:application].clouds[:basic_db].should_not == nil
   end
-  it "should set the minimum_instances on the cloud to 2 (overriding the pool options)" do    
-    pools[:application].minimum_instances.should == 3
-    clouds[:basic_app].minimum_instances.should == 12
+  it "should set the minimum_instances on the cloud (overriding the pool options)" do    
+    pools[:application].minimum_instances.should == 1
+    clouds[:basic_app].minimum_instances.should == 3
   end
-  it "should set the maximum_instances on the cloud to 50" do
-    clouds[:basic_app].maximum_instances.should == 50
+  it "should set the maximum_instances on the cloud to 5" do
+    clouds[:basic_app].maximum_instances.should == 5
   end
-  it "should set the minimum_instances on the db cloud to 3" do
-    clouds[:basic_db].minimum_instances.should == 19
-    clouds[:basic_app].minimum_instances.should == 12
-    pools[:application].minimum_instances.should ==3
+  it "should set the minimum_instances on the db cloud " do
+    clouds[:basic_db].minimum_instances.should == 1
+    clouds[:basic_app].minimum_instances.should == 3
+    pools[:application].minimum_instances.should == 1
   end
   it "should set the parent to the pool" do
     clouds[:basic_app].parent.should == pools[:application]

data/spec/poolparty/poolparty/key_spec.rb

@@ -8,7 +8,7 @@ describe "Key" do
     Key.new.filepath.should == "id_rsa"
   end
   it "should provide valid to_json" do
-    lambda {Key.new("file").to_json}.should_not raise_error  end
+    lambda {Key.new("file").to_hash.to_json}.should_not raise_error  end
   describe "that exists" do
     before(:each) do
       @keypair = "/var/home/id_rsa"

data/spec/poolparty/poolparty/neighborhoods_spec.rb

@@ -41,7 +41,7 @@ describe "Neighborhoods" do
     Neighborhoods.clump(sample_instances_list,filepath)
   end
   it "should load from the default properly with the first's instance's ip" do
-    str = "[{\"instance_id\":\"master\",\"launching_time\":\"2009/03/26 01:06:18 -0700\",\"ip\":\"127.0.0.1\"},{\"instance_id\":\"node1\",\"launching_time\":\"2009/03/26 01:06:18 -0700\",\"ip\":\"127.0.0.2\"}]"
+    str = "{\"instances\":[{\"instance_id\":\"master\",\"launching_time\":\"2009/03/26 01:06:18 -0700\",\"ip\":\"127.0.0.1\"},{\"instance_id\":\"node1\",\"launching_time\":\"2009/03/26 01:06:18 -0700\",\"ip\":\"127.0.0.2\"}]}"
     ::File.should_receive(:file?).with("/etc/poolparty/neighborhood.json").and_return true
     ::File.stub!(:file?).and_return false
     

data/tasks/poolparty.rake

@@ -11,6 +11,8 @@ task :slow_spec do
   puts "#{stats[:failures]} total errors"
 end
 namespace(:poolparty) do
+  task :build_gem => ["poolparty:vendor:setup", "poolparty:vendor:update", :gemspec, :build]
+  
   namespace(:setup) do
     desc "Generate a manifest for quicker loading times"
     task :manifest do

data/vendor/gems/dslify/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:major: 0
+:minor: 1
+:patch: 0

data/vendor/gems/dslify/dslify.gemspec

@@ -0,0 +1,29 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{dslify}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Ari Lerner"]
+  s.date = %q{2009-05-14}
+  s.email = %q{arilerner@mac.com}
+  s.extra_rdoc_files = ["README.rdoc", "LICENSE"]
+  s.files = ["README.rdoc", "VERSION.yml", "lib/dslify.rb", "test/dslify_test.rb", "test/test_helper.rb", "LICENSE"]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/auser/dslify}
+  s.rdoc_options = ["--inline-source", "--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.2}
+  s.summary = %q{TODO}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/vendor/gems/dslify/lib/dslify.rb

@@ -68,7 +68,7 @@ module Dslify
     def method_missing(m,*a,&block)
       if m.to_s[-1..-1] == '?'
         t = m.to_s.gsub(/\?/, '').to_sym
-        warn "DEPRECATED: Dslify will no longer support ? methods. Fix yo code."
+        warn "DEPRECATED: Dslify will no longer support ? methods. Fix yo code.: #{m}"
         respond_to?(t) && !self.send(t, *a, &block).nil?
       else
         super

data/vendor/gems/dslify/test/dslify_test.rb

@@ -26,7 +26,9 @@ class QuickieTest < Test::Unit::TestCase
     end
     it "should set and retrieve values back with an = sign" do
       @q.author = ["Ari Lerner"]
+      @q.snobs = "Michael"
       assert_equal @q.author, ["Ari Lerner"]
+      assert_equal @q.snobs, "Michael"
     end
     it "should set these values in the h Hash on the object" do
       assert_raise NoMethodError do
@@ -43,19 +45,6 @@ class QuickieTest < Test::Unit::TestCase
       end
       assert_equal @q.author.class, Quickie
     end
-    it "should not blow up when called with a ? at the end of the method" do
-      @q.set_vars_from_options({:pete => "and pete"})
-      assert_nothing_raised do
-        @q.pete?
-      end
-    end
-    it "should return false if the method exists" do
-      assert_equal @q.bobs?, false
-    end
-    it "should return true if the option is set" do
-      @q.gilligans_island "is a tv show"
-      assert @q.gilligans_island?
-    end
   end
   
   context "calling methods on an instance" do
@@ -194,4 +183,84 @@ class QuickieTest < Test::Unit::TestCase
     #   assert_equal t.taste, @bar.taste
     # end
   end
+  context "methods" do
+    setup do
+      class MrDanger
+        include Dslify
+        default_options :where_to => "The Grand Canyon"
+        def initialize(o={})
+          set_vars_from_options(o)
+        end
+        def where_to(*a)
+          "New York City"
+        end
+      end
+    end
+
+    should "not override the method where_to" do
+      assert_equal MrDanger.new.where_to, "New York City"
+    end
+    should "not override the method where_to when called with set_vars_from_options" do
+      assert_equal MrDanger.new(:where_to => "Bank of America").where_to, "New York City"
+    end
+  end
+  
+  context "when calling with a block" do
+    setup do
+      class ToddTheSquare
+        include Dslify
+        default_options :provider => :vmrun, :t => :nothing
+        
+        def provider(&block)
+          instance_eval &block if block
+        end
+      end
+    end
+    
+    should "should not evaluate the block" do
+      tts = ToddTheSquare.new
+      assert_equal tts.t, :nothing
+    end
+
+    should "should evaluate the block" do
+      tts = ToddTheSquare.new
+      tts.provider do
+        self.t = :something
+      end
+      assert_equal tts.t, :something
+    end
+  end
+  
+  context "set_vars_from_options" do
+    setup do
+      class VarrrrrrrrMatey
+        include Dslify
+        default_options :say => "hello", :to => "world"
+        
+        def initialize(o={}, &block)
+          set_vars_from_options(o)
+          instance_eval &block if block
+        end
+        
+        def to_s
+          say + " " + to
+        end
+      end
+    end
+
+    should "set the vars on the options with no options" do
+      assert_equal VarrrrrrrrMatey.new.to_s, "hello world"
+    end
+    should "update the options if called with options" do
+      assert_equal VarrrrrrrrMatey.new({:say => "goodbye"}).to_s, "goodbye world"
+    end
+    should "update the options if called with block" do
+      @v = VarrrrrrrrMatey.new do
+        to "me"
+      end
+      assert_equal @v.to_s, "hello me"
+    end
+  end
+  
+  
 end

data/vendor/gems/git-style-binaries/VERSION.yml

@@ -1,4 +1,4 @@
 --- 
 :major: 0
 :minor: 1
-:patch: 6
+:patch: 7

data/vendor/gems/git-style-binaries/doc/poolparty-binaries.screenplay

@@ -8,38 +8,407 @@
 plugin "terminal"
 plugin "keystack"
 
-launch "Terminal", at(10, 10, 800, 600)
+def cleanup
+  FileUtils.rm_rf(File.expand_path("~/poolparty-gsb-test/bin"))
+end
+
+cleanup
+
+perform "Introduction" do
+  launch "Terminal", at(10, 10, 800, 600)
+  pause 1
+
+  say <<-eos
+  Hey, welcome to the git-style-binaries screencast. 
+  First, lets talk a little about what a git-style-binary even is. 
+  eos
+end
+
+cli "cd #{ENV['POOLPARTY_SRC']}" 
+
+perform "Describing Git Binaries" do
+  pause 1
+  while_saying "as you can see here, git has over one hundred binaries that all perform various functions." do
+    type "git-"
+    pause 1
+    keystroke_literal('tab')
+    keystroke_literal('tab')
+    type "y"
+    pause 2
+    type " "
+    keystroke_using('u', :control)
+  end
+
+  while_saying "for instance, we have. git-add for adding files. git-status for
+  getting the status of our repo and so on" do
+    cli "git-add"
+    pause 2
+    cli "git-status"
+  end
+
+  while_saying "one of the nice things about the git-style-binaries is that you
+  can choose to call the command with or without the dash.. so for instance, i
+  can call either 'git-add' or 'git add'." do
+    cli "git-add"
+    pause 2
+    cli "git add"
+  end
+
+  perform "Describe Help" do
+    while_saying "the help in git is also very handy. for instance, if you call
+    git help it will give you a listing of many of the available subcommands" do
+      cli "git help"
+      move to(44, 94)
+      move to(133, 87)
+      move to(127, 346)
+      move to(41, 343)
+      move to(44, 94)
+    end
+
+    while_saying "you can also ask for help about any of the subcommands. if we
+    want to get help on 'git-add', we simply type 'git help add'" do
+      cli "git help add"
+      type 'q'
+    end
+  end
+
+  pause 2
+
+  perform "Describe Validation" do
+    while_saying "git also performs option validation, as you would expect. for
+    instance, if we provide an invalid option such as 'asdf' we get an error" do
+      cli "git add --asdf"
+    end
+  end
+
+  while_saying "the goal of the git-style-binaries ruby gem is to bring this
+  functionality to your own custom binaries in an easy-to-use way. so lets take
+  a look at an example" 
+  pause 2
+
+end
+
+
+perform "Introducing PoolParty" do
+  while_saying "we're going to be using PoolParty's binaries as an example on
+  how to build git-style-binaries using this gem" do
+  end
 
-# say <<-eos
-# Hey, welcome to the git-style-binaries screencast. 
-# First, lets talk a little about what a git-style-binary even is. 
-# eos
+  while_saying "just in case you're not familiar with poolparty, its a cloud
+  management system by Ari Lerner. It allows you to manage your cloud using ruby
+  code and plugins rather than, say, folders of bash scripts." do
+    # launch "Safari", at(10, 10, 800, 600)
+    # url "http://www.poolpartyrb.com" # ?
+    # pause 3
+    # keystroke_literal_using('tab', :command) # go back to terminal
+  end
+
+  while_saying "in poolparty the main binary is 'cloud'. we can do cloud help to see all of the available subcommands." do
+    cli "cloud help"
+  end
+
+  while_saying "as you can see here we have 'cloud-start', for starting our
+  cloud, 'cloud configure' to reconfigure our cloud after we change something,
+  even cloud-ssh, to ssh directly into a node of our cloud." do
+    pause 2
+    move to(86, 400)
+    pause 2
+    move to(72, 380)
+  end
+
+  pause 2
+  type "q"
+
+  while_saying "what i'd like to do is, rather than just opening up the existing
+  binaries, Im going to build poolparty-like binaries from the ground up. this
+  way you can see how to do this on your own."
+end
+
+
+perform "entering poolpary" do
+  cli "cd ~" 
+  cli "mkdir -p poolparty-gsb-test/bin"
+  cli "cd poolparty-gsb-test"
+end
+ 
+perform "creating primary" do
+    while_saying "first we need to create our *primary* binary." do
+      cli "vim bin/cloud"
+      pause 2
+      type_pre <<-eof 
+i#!/usr/bin/env ruby
+require 'git-style-binary/command'
+eof
+      cli ":w"
+      cli ":e"
+    end
+
+    while_saying "and thats it! thats all we need if we want the default functionality"  do
+      cli ":x"
+    end
+end
 
 pause 1
-while_saying "as you can see here, git has over one hundred binaries that all perform various functions." do
-  type "git-"
+
+# opt :cloud_name, "Name of the working cloud", :type => String, :default => nil
+
+perform "create cloud-start" do
+  while_saying "now lets create cloud-start.
+  we start by requiring git-style-binary/command, just like last time.
+  now we open up a #command block.
+  specify a version.
+  specify a banner and a short description.
+  and we put what we want to do in the 'run' block." do
+
+  cli "vim bin/cloud-start"
   pause 1
-  keystroke_literal('tab')
-  keystroke_literal('tab')
-  type "y"
+  vim_insert <<-eof
+#!/usr/bin/env ruby
+eof
+  cli ":w"
+  cli ":e"
+  cli ":set paste" # no auto indending
+  type "j"
+
+  vim_insert <<-eof
+require 'git-style-binary/command'
+
+GitStyleBinary.command do
+  version "PoolParty cloud-start 0.0.1"  
+  banner <<-\EOS
+Usage: cloud-start \#{all_options_string}
+
+EOS
+eof
+
+  vim_insert <<-eof
+  short_desc "List the clouds"
+
+  run do |command|
+    puts "Options: \#{command.opts.inspect}"
+  end
+end
+eof
+  end
+
+  while_saying "the run block yields a command object. commands has an 'opts' attribute accessor, or you can just use brackets on 'command'" do
+    type ":0
+    cli ":w"
+  end
+
+  while_saying "you can add more options by calling 'opt' in the command block" do
+    vim_line_after("short_")
+    vim_insert "  opt :name, \"the name of the cloud you are starting\", :type => String,
    :default => \"default\""
+  end
+
+  while_saying "git-style-binaries uses the gem trollop for the option parsing.
+  trollop allows you to easily add validations and type conversions to options.
+  see their website for information on the syntax" do
+  end
+  # cli ":x"
+  pause 2
+end
+
+perform "running cloud-start" do
+  while_saying "now lets run cloud-start -h" do
+    keystroke_using('t', :command) # go back to terminal
+    pause 1
+    cli "cd poolparty-gsb-test"
+    cli "chmod +x bin/*"
+    cli "./bin/cloud-start -h"
+  end
+  pause 2
+  while_saying "notice a few things here. we've got automatic coloring, a list of all of our flags, and a list of all of our options. trollop has even automatically created the short flags for us"  do
+    move to(36, 82)
+    pause 1
+    move to(123, 100)
+    pause 1
+    move to(279, 200)
+    pause 1
+    move to(96, 261)
+    move to(80, 521)
+    move to(96, 261)
+    pause 1
+    move to(53, 255)
+    move to(71, 259)
+    pause 1
+    move to(53, 255)
+  end
+  pause 3
+  type "q"
+  keystroke_using('w', :command) # go back to terminal
   pause 2
-  type " "
-  keystroke_using('u', :control)
 end
 
-while_saying "so, for instance, we have. git-add. for adding files. git-status for getting the status of our repo and so on" do
-  cli "git-add"
+
+perform "creating cloud-ssh" do
+
+  while_saying "i'd like to show you a few more features of gsb. first lets create one more simple binary - cloud ssh" do
+  cli ":x"
+  pause 1
+
+  cli "vim bin/cloud-ssh"
+  pause 1
+  vim_insert <<-eof
+#!/usr/bin/env ruby
+eof
+  cli ":w"
+  cli ":e"
+  cli ":set paste" # no auto indending
+  type "j"
+
+  vim_insert <<-eof
+require 'git-style-binary/command'
+
+GitStyleBinary.command do
+  version "PoolParty cloud-ssh 0.0.1"  
+  banner <<-\EOS
+Usage: cloud-ssh \#{all_options_string}
+
+EOS
+eof
+
+  vim_insert <<-eof
+  short_desc "ssh into your cloud"
+  opt :name,    "name of the cloud", :type => String
+
+  run do |command|
+    puts "you are sshing into \#{command[:name]}!"
+  end
+end
+eof
+  pause 1
+  cli ":x"
   pause 2
-  cli "git-status"
+  end
+
 end
 
-while_saying "we want to emulate that effect with poolparty." do
-  cli "cd #{ENV['POOLPARTY_SRC']}" 
+perform "show help with both binaries" do
+
+  while_saying "now we have two binaries, cloud-start and cloud-ssh" do
+    cli "tree ."
+  end
+
+  while_saying "one of the cool things about gsb is that it will automatically pick up these files when you run the help commands" do
+    cli "./bin/cloud -h"
+  end
+
+  while_saying "see, here we have both cloud-start and cloud-ssh, along with their short descriptions, which are automatically loaded from their respective files" do
+    pause 0.5 
+    shake 46, 401
+    pause 0.5
+    shake 49, 338
+    pause 0.5
+    move to(88, 291)
+    move to(354, 297)
+    pause 1
+    cli 'q'
+  end
+
 end
 
-pause 2
+perform "modify cloud primary" do
 
-while_saying "just in case you're not familiar with poolparty, its a cloud management system. "
-# open safari poolpartyrb.com
+  while_saying "notice that if we do cloud help start. we see that it already
+  has a number of options. these options come from the default binary options." do
+    cli "./bin/cloud help start"
+    pause 1
+    move to(123, 266)
+    pause 1
+    shake 116, 431
+    pause 1
+    move to(99, 515)
+    type 'q'
+  end
+
+  while_saying "gsb's get their options from three places 1) the default in code 2) the primary and 3) the subcommand itself" do
+    type "1) default options (in code)"
+    pause 0.5
+    keystroke_using('u', :control)
+    type "2) primary (ex: ./bin/cloud)"
+    pause 0.5
+    keystroke_using('u', :control)
+    type "3) subcommand (./bin/cloud-start)"
+    pause 0.5
+    keystroke_using('u', :control)
+  end
+
+  while_saying "if we add options to our primary these will be automatically inherited by the subcommands." do
+  end
+
+  while_saying "we want to be able to specify the name of our clouds.rb
+  specfile in any of the subcommands. so all we need to do is add that to the
+  primary.
+
+  now when we want to customize the primary we need to do a bit more work.
+  " do 
+    cli "vim bin/cloud"
+     pause 2
+    type "jj"
+    type 'o' + ''
+    vim_insert <<-eof
+GitStyleBinary.primary do
+  version "PoolParty cloud command"  
+banner <<-\EOS
+eof
+    vim_insert <<-eof
+Usage: cloud \\\#{all_options_string} COMMAND [ARGS]
+
+The cloud subcommands commands are:
+  \\\#{GitStyleBinary.pretty_known_subcommands(:short).join("  ")}
+EOS
+  opt :spec, "The name of the clouds.rb file", :type => String
+
+run do
+  end
+end
+eof
+    pause 2
+    type ":x
+  end
+end
+
+perform "show subcommand opts" do
+
+  while_saying "now if we run the subcommand -h, we see that the spec option is there" do
+    cli "./bin/cloud-start -h"
+    pause 1
+    shake 61, 259
+    pause 1
+    type "q"
+  end
+
+  while_saying "you can also specify callbacks in your primary if you want to.
+  for instance, say you want to call something before the run block of each
+    subcommand. simply define a before_run block in your primary" do
+
+     cli "vim bin/cloud"
+     pause 2
+     vim_line_after("opt ")
+     vim_insert <<-eof
+before_run do
+  puts "this happened before run"
+end
+eof
+     pause 2
+     type ":x
+    
+  end
+
+  while_saying "now we run our subcommand again. and you can see that it gets the options!" do
+    cli "./bin/cloud-start"
+  end
+
+end
+
+perform "summary" do
+  while_saying "i hope this has been helpful for you. now go out and create your own git-style-binaries!"
+end
+
+
+at_exit do
+  cleanup
+end
 
 # vim: ft=ruby