fairchild-poolparty 1.1.3

data/spec/poolparty/net/remoter_spec.rb

@@ -0,0 +1,130 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Remoter" do
+  before(:each) do
+    setup
+    @cloud = cloud :app do;end
+    @tc = TestClass.new
+    @tc.parent = @cloud
+    @sample_instances_list = [{:ip => "192.168.0.1", :name => "master"}, {:ip => "192.168.0.2", :name => "node1"}]
+  end
+  describe "ssh_string" do
+    it "should have the ssh command" do
+      @tc.ssh_string.should =~ /ssh -o StrictHostKeyChecking=no -l/
+    end
+    it "should have the keypair in the ssh_string" do
+      @tc.ssh_string.should =~ /#{@tc.full_keypair_path}/
+    end
+  end
+  describe "ssh_array" do
+    it "should have StrictHostKeyChecking set to no" do
+      @tc.ssh_array.include?("-o StrictHostKeyChecking=no").should == true
+    end
+    it "should have the keypair path in the ssh_array" do
+      @tc.ssh_array.include?('-i "'+@tc.full_keypair_path+'"').should == true
+    end
+  end
+  describe "rsync_command" do
+    before(:each) do
+      @ri = Class.new
+      @ri.stub!(:ip).and_return "192.168.0.22"
+    end
+    it "should have rsync in the rsync_command" do
+      @tc.rsync_command.should == "rsync -azP --exclude cache -e '#{@tc.ssh_string} -l #{Default.user}'"
+    end
+    it "should be able to rsync storage commands" do
+      @tc.rsync_storage_files_to_command(@ri).should == "#{@tc.rsync_command} #{Default.storage_directory}/ 192.168.0.22:/var/poolparty"
+    end
+  end
+
+  # describe "launch_and_configure_master!" do
+  #   before(:each) do
+  #     @tc.stub!(:wait).and_return true
+  #     stub_list_from_remote_for(@tc)
+  #     stub_remoting_methods_for(@tc)
+  #     @tc.stub!(:maximum_instances).and_return 5
+  #     @tc.stub!(:list_of_pending_instances).and_return []
+  #     @tc.stub!(:list_of_nonterminated_instances).and_return []
+  #     @tc.stub!(:list_of_running_instances).and_return []
+  #     @tc.stub!(:master).and_return ris.first
+  #     @tc.stub!(:after_launched).and_return true
+  #     @tc.stub!(:verbose).and_return false
+  #     # @tc.stub!(:testing).and_return true #MF
+  #     ::File.stub!(:exists?).and_return true
+  #     
+  #     @pb = PoolParty::Provisioner::Capistrano.new(nil, @tc)
+  #     PoolParty::Provisioner::Capistrano.stub!(:new).and_return @pb
+  #     @pb.stub!(:setup_runner)
+  #     @pb.stub!(:install).and_return true
+  #     @pb.stub!(:configure).and_return true
+  #     @pb.stub!(:create_roles).and_return true
+  #   end
+  #   it "should have dependency_resolver_command" do
+  #     @tc.respond_to?(:dependency_resolver_command)
+  #     @tc.dependency_resolver_command.should match(/puppet/)
+  #   end
+  #   it "should have the method launch_master!" do
+  #     @tc.respond_to?(:launch_and_configure_master!).should == true
+  #   end
+  #   it "should test if it can start a new instance" do
+  #     @tc.should_receive(:can_start_a_new_instance?).once.and_return false      
+  #   end
+  #   it "should test if the master is running" do
+  #     @tc.should_receive(:is_master_running?).and_return false
+  #   end
+  #   it "should ask to request_launch_new_instances when the master is not running and we can start a new instance" do
+  #     @tc.should_receive(:request_launch_master_instance)
+  #     @tc.stub!(:can_start_a_new_instance?).and_return true
+  #     @tc.stub!(:is_master_running?).and_return false
+  #   end
+  #   after(:each) do
+  #     @tc.launch_and_configure_master!
+  #   end
+  # end
+
+  describe "expansions and contractions" do
+    before(:each) do
+      @tc = TestClass.new
+      stub_list_from_remote_for @tc # sets the list of instances to 2
+      stub_running_remote_instances @tc
+    end
+    describe "list_of_nodes_exceeding_minimum_runtime" do
+      before(:each) do
+        @tc.stub!(:minimum_runtime).and_return 3000        
+      end
+      it "should not be empty" do
+        @tc.list_of_running_instances.size.should == 2
+        @tc.list_of_running_instances.first.elapsed_runtime.should be > 3000
+        @tc.list_of_nodes_exceeding_minimum_runtime.size.should be > 0
+      end
+      it "should return a RemoteInstance" do
+        @tc.list_of_nodes_exceeding_minimum_runtime.first.should be_instance_of(PoolParty::Remote::RemoteInstance)
+      end
+      it "are_any_nodes_exceeding_minimum_runtime? should be true" do
+        @tc.are_any_nodes_exceeding_minimum_runtime?.should == true
+      end
+    end
+    
+    describe "are_too_few_instances_running?" do
+      it "should be false if the number of running instances is larger than the minimum instances" do
+        @tc.stub!(:minimum_instances).and_return 1
+        @tc.are_too_few_instances_running?.should == false
+      end
+      it "should be true if the number of running instances is smaller than the minimum instances" do
+        @tc.stub!(:minimum_instances).and_return 5
+        @tc.are_too_few_instances_running?.should == true
+      end
+    end
+    describe "are_too_many_instances_running?" do
+      it "should be true if the number of running instances is larger than the maximum instances" do
+        @tc.stub!(:maximum_instances).and_return 1
+        @tc.are_too_many_instances_running?.should == true
+      end
+      it "should be false if the number of running instances is smaller than the maximum instances" do
+        @tc.stub!(:maximum_instances).and_return 5
+        @tc.are_too_many_instances_running?.should == false
+      end
+    end
+  end
+
+end

data/spec/poolparty/plugins/chef_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+class TestChefSpec < PoolParty::Cloud::Cloud
+end
+
+describe "Remote Instance" do
+end

data/spec/poolparty/plugins/deploydirectory_spec.rb

@@ -0,0 +1,51 @@
+# require File.dirname(__FILE__) + '/../spec_helper'
+# 
+# include PoolParty::Resources
+# 
+# class TestClass
+#   include PoolParty::Resources
+# end
+# describe "Remote Instance" do
+#   before(:each) do
+#     Kernel.stub!(:system).and_return true
+#   end
+#   describe "wrapped" do
+#     before(:each) do
+#       @tc = TestClass.new      
+#       @cloud = MyOpenStruct.new(:keypair => "keys", :remote_keypair_path => "/keypair_path", :name => "cloudcloud")
+#       @cloud.stub!(:is_a?).with(PoolParty::Cloud::Cloud).and_return true
+#       @tc.stub!(:parent).and_return @cloud
+#       
+#       @options = {:name => "deploydirectory", :from => ::File.dirname(__FILE__), :to => "/var/www/deploydirectory", :testing => false}
+#     end
+#     it "should be a string" do
+#       @tc.has_deploydirectory(@options).to_string.should =~ /exec \{/
+#     end
+#     it "should included the flushed out options" do
+#       @tc.has_deploydirectory(@options).to_string.should =~ /command/
+#     end
+#     describe "in resource" do
+#       before(:each) do
+#         @tc.instance_eval do
+#           has_deploydirectory do
+#             name "deploydirectory"
+#             from ::File.dirname(__FILE__)
+#             to "/var/www/deploydirectory"
+#           end
+#         end
+#       end
+#       it "should have the path set within the resource" do
+#         @tc.resource(:deploydirectory).first.to_string.should =~ /exec \{/
+#       end
+#       it "should not have the from in the to_string" do
+#         @tc.resource(:deploydirectory).first.to_string.should_not =~ /from /
+#       end
+#       it "should not have the to in the to_string" do
+#         @tc.resource(:deploydirectory).first.to_string.should_not =~ /to /
+#       end
+#       it "should have onlyif in the to_string" do
+#         @tc.resource(:deploydirectory).first.to_string.should =~ /onlyif/
+#       end
+#     end
+#   end
+# end

data/spec/poolparty/plugins/git_spec.rb

@@ -0,0 +1,40 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+class TestGitClass < PoolParty::Cloud::Cloud
+end
+
+describe "Remote Instance" do
+  describe "wrapped" do
+    before(:each) do
+      reset!
+      @tc = cloud :test_git_class_cloud do
+        has_git_repos :at => "/var/www/", :name => "gitrepos.git", :source => "git://git/repos/source.git", :requires_user => "finger"
+      end
+      @compiled = PuppetResolver.new(@tc.to_properties_hash).compile
+    end
+    it "should be a string" do
+      @compiled.should =~ /exec/
+    end
+    it "should included the flushed out options" do
+      @compiled.should =~ /finger@git:/
+    end
+    it "should not include the user if none is given" do
+      @compiled.should =~ /git clone finger@git:/
+    end
+    describe "in resource" do
+      before(:each) do
+        @tc = cloud :test_git_class_cloud_two do
+          has_git_repos(:name => "gittr") do
+            symlink "/var/www/xnot.org/public"
+            source "git://source.git"
+            path "/var/www/xnot.org"       
+            at "/var/www"
+          end
+        end
+      end
+      it "should have the path set within the resource" do
+        PuppetResolver.new(@tc.to_properties_hash).compile.should =~ /exec \{ \"git-gittr/
+      end
+    end
+  end
+end

data/spec/poolparty/plugins/line_spec.rb

@@ -0,0 +1,22 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Remote Instance" do
+  before(:each) do
+    @tc = TestBaseClass.new do
+    end
+  end
+  it "should have the method has_line_in_file available on the class" do
+    @tc.respond_to?(:has_line_in_file).should == true
+  end
+  describe "call" do
+    before(:each) do
+      @tc.run_in_context do
+        has_line_in_file({:line => 'hi', :file => "ho"})
+      end
+      @compiled = PuppetResolver.new(@tc.to_properties_hash).compile
+    end
+    it "should have the line in the file from PuppetResolver" do
+      @compiled.should match(/grep -q/)
+    end
+  end
+end

data/spec/poolparty/plugins/svn_spec.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+class TestClass
+  include PoolParty::Resources
+end
+describe "Remote Instance" do
+  before(:each) do
+    @tc = TestClass.new
+  end
+  it "should be a string" do
+    @tc.has_svnpath({:name => "name", :source => "svn://"}).to_string.should =~ /svnserve \{/
+  end
+  it "should included the flushed out options" do
+    @tc.has_svnpath({:user => "finger"}).to_string.should =~ /user => \"finger\"/
+  end
+end

data/spec/poolparty/poolparty/cloud_spec.rb

@@ -0,0 +1,345 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+class TestService
+  plugin :test_service do
+    def initialize(o={}, e=nil, &block)
+      super(&block)
+    end
+    def enable(o={})
+      has_file(:name => "/etc/poolparty/lobos")
+    end                  
+  end
+end
+
+describe "Cloud" do
+  before(:each) do
+    setup
+    # 
+  end
+  describe "wrapped" do
+    before(:each) do
+      @obj = Object.new
+      @pool = pool :just_pool do; end
+    end
+    it "should respond to the pool method outside the block" do
+      @obj.respond_to?(:cloud).should == true
+    end
+    describe "global" do
+      before(:each) do
+        @cloud1 = cloud :pop do;end
+      end
+      it "should store the cloud in the global list of clouds" do    
+        @obj.clouds.has_key?(:pop).should == true
+      end
+      it "should store the cloud" do
+        @obj.cloud(:pop).should == @cloud1
+      end
+      it "should have set the using base on intantiation to ec2" do
+        @cloud1.using_remoter?.should_not == nil
+      end
+      it "should say the remoter_base is ec2 (by default)" do
+        @cloud1.remote_base.class.should == Kernel::Ec2
+      end
+    end
+    it "should return the cloud if the cloud key is already in the clouds list" do
+      @cld = cloud :pop do;end
+      @pool.cloud(:pop).should == @cld
+    end
+    describe "options" do
+      before(:each) do
+        reset!
+        setup
+        pool :options do
+          user "bob"
+          pop_stick true
+          minimum_instances 100
+          access_key "pool_access_key"
+          cloud :apple do
+            access_key "cloud_access_key"
+          end
+        end
+      end
+      it "should be able to grab the cloud from the pool" do
+        clouds[:apple].should == pools[:options].cloud(:apple)
+      end
+      it "should take the options set on the pool" do
+        pools[:options].minimum_instances.should == 100
+      end
+      it "should take the access_key option set from the cloud" do
+        clouds[:apple].access_key.should == "cloud_access_key"
+      end
+      it "should take the option pop_stick from the superclass" do
+        clouds[:apple].pop_stick.should == true
+      end
+      it "should take the option testing true from the superclass" do
+        pools[:options].user.should == "bob"
+        clouds[:apple].user.should == "bob"
+      end
+    end
+    describe "block" do
+      before(:each) do
+        reset!
+        pool :test do
+          Cloud.new(:test) do
+            # Inside cloud block
+            testing true
+            keypair "fake_keypair"
+          end
+        end
+        @cloud = cloud :test
+        @cloud.stub!(:plugin_store).and_return []
+      end
+
+      it "should be able to pull the pool from the cloud" do
+        @cloud.parent == @pool
+      end
+      it "should have the outer pool listed as the parent of the inner cloud" do
+        @pool = pool :knick_knack do
+          cloud :paddy_wack do            
+          end
+        end
+        cloud(:paddy_wack).parent.should == pool(:knick_knack)
+      end
+      it "should have services in an OrderedHash" do
+        @cloud.services.class.should == OrderedHash
+      end
+      it "should have no services (other than the base ones) in the array when there are no services defined" do
+        @cloud.services.size.should == 5
+      end
+      it "should respond to a options method (from Dslify)" do
+        @cloud.respond_to?(:options).should == true
+      end
+      describe "configuration" do
+        before(:each) do
+          reset!
+          @cloud2 = Cloud.new(:test) do
+            minimum_instances 1
+            maximum_instances 2
+          end
+        end
+        it "should be able to se the minimum_instances without the var" do
+          @cloud2.minimum_instances.should == 1
+        end
+        it "should be able to se the maximum_instances with the =" do
+          @cloud2.maximum_instances.should == 2
+        end
+      end
+      describe "options" do
+        it "should set the minimum_instances to 2" do
+          @cloud.minimum_instances.should == 2
+        end
+        it "should set the maximum_instances to 5" do
+          @cloud.maximum_instances.should == 5
+        end
+        it "should be able to set the minimum instances" do
+          @cloud.minimum_instances 3
+          @cloud.minimum_instances.should == 3
+        end
+        it "should be able to take a hash from configure and convert it to the options" do
+          @cloud.set_vars_from_options( {:minimum_instances => 1, :maximum_instances => 10, :keypair => "friend"} )
+          @cloud.minimum_instances.should == 1
+        end
+        describe "minimum_instances/maximum_instances as a range" do
+          before(:each) do
+            reset!
+            @pool = pool :just_pool do
+              cloud :app do
+                instances 8..15
+              end
+            end
+            @cloud = @pool.cloud(:app)
+          end
+          it "should set the minimum based on the range" do
+            @cloud.minimum_instances.should == 8
+          end
+          it "should set the maximum based on the range set by instances" do
+            @cloud.maximum_instances.should == 15
+          end
+        end
+        describe "keypair" do
+          before(:each) do
+            reset!
+          end
+          it "should be able to define a keypair in the cloud" do
+            @c = cloud :app do
+              keypair "hotdog"
+            end
+            @c.keypairs.first.filepath.should == "hotdog"
+          end
+          it "should take the pool parent's keypair if it's defined on the pool" do
+            pool :pool do
+              keypair "ney"
+              cloud :app do
+              end
+            end
+            clouds[:app]._keypairs.first.stub!(:exists?).and_return true
+            clouds[:app]._keypairs.first.stub!(:full_filepath).and_return "ney"
+            clouds[:app].keypair.full_filepath.should == "ney"
+          end
+          it "should default to ~/.ssh/id_rsa if none are defined" do
+            File.stub!(:exists?).with("#{ENV["HOME"]}/.ssh/id_rsa").and_return(true)
+            pool :pool do
+              cloud :app do
+              end
+            end
+            clouds[:app].keypair.full_filepath.should match(/\.ssh\/id_rsa/)
+          end
+        end
+        describe "Manifest" do
+          before(:each) do
+            reset!
+            stub_list_from_remote_for(@cloud)
+            @cloud = TestClass.new :test_more_manifest do
+              has_file(:name => "/etc/httpd/http.conf") do
+                content <<-EOE
+                  hello my lady
+                EOE
+              end
+              has_gempackage(:name => "poolparty")
+              has_package(:name => "dummy")            
+            end
+            context_stack.push @cloud
+          end
+          it "should it should have the method build_manifest" do
+            @cloud.respond_to?(:build_manifest).should == true
+          end
+          it "should make a new 'haproxy' class" do
+            PoolpartyBaseHaproxyClass.should_receive(:new).once
+            @cloud.add_poolparty_base_requirements
+          end
+          it "should have 3 resources" do            
+            @cloud.add_poolparty_base_requirements
+            @cloud.services.size.should > 2
+          end
+          it "should receive add_poolparty_base_requirements before building the manifest" do
+            @cloud.should_receive(:add_poolparty_base_requirements).once
+            @cloud.after_create
+          end
+          after(:each) do
+            context_stack.pop
+          end
+          describe "add_poolparty_base_requirements" do
+            before(:each) do
+              reset!            
+              @cloud.instance_eval do
+                @heartbeat = nil
+              end
+              @hb = PoolpartyBaseHeartbeatClass.new
+            end
+            it "should call initialize on heartbeat (in add_poolparty_base_requirements)" do
+              @hb.class.should_receive(:new).and_return true
+              @cloud.add_poolparty_base_requirements
+            end
+            it "should call heartbeat on the cloud" do
+              @cloud.should_receive(:poolparty_base_heartbeat).and_return true
+              @cloud.add_poolparty_base_requirements
+            end
+            it "should call Hearbeat.new" do
+              PoolpartyBaseHeartbeatClass.should_receive(:new).and_return @hb
+              @cloud.add_poolparty_base_requirements            
+            end
+            it "should call enable on the plugin call" do
+              @hb = PoolpartyBaseHeartbeatClass.new
+              PoolpartyBaseHeartbeatClass.stub!(:new).and_return @hb
+              
+              @cloud.add_poolparty_base_requirements
+              @cloud.poolparty_base_heartbeat.should == @hb
+            end
+            describe "after adding" do
+              before(:each) do
+                stub_list_from_remote_for(@cloud)
+                @cloud.add_poolparty_base_requirements
+              end
+              it "should add resources onto the heartbeat class inside the cloud" do
+                @cloud.services.size.should > 0
+              end
+              it "should store the class heartbeat" do
+                @cloud.services.keys.include?(:poolparty_base_heartbeat_class).should == true
+              end
+              it "should have an array of services on the heartbeat" do
+                @cloud.services.class.should == OrderedHash
+              end
+              describe "resources" do
+                before(:each) do
+                  reset!
+                  @cloud8 = cloud :tester do
+                    test_service
+                  end
+                  tskey = clouds[:tester].services.keys.first
+                  @service = clouds[:tester].services[tskey].first
+                  @files = @service.resource(:file)
+                end
+                it "should have a file resource" do
+                  @files.first.nil?.should == false
+                end
+                it "should have an array of lines" do
+                  @files.class.should == Array
+                end
+                it "should not be empty" do
+                  @files.should_not be_empty
+                end
+              end
+            end
+          end
+          describe "building" do
+            before(:each) do            
+              str = "master 192.168.0.1
+              node1 192.168.0.2"
+              @sample_instances_list = [{:ip => "192.168.0.1", :name => "master"}, {:ip => "192.168.0.2", :name => "node1"}]
+              @ris = @sample_instances_list.map {|h| PoolParty::Remote::RemoteInstance.new(h, @cloud) }
+              
+              stub_remoter_for(@cloud)
+              
+              @manifest = @cloud.build_manifest
+            end
+            it "should return a string when calling build_manifest" do
+              @manifest.class.should == String
+            end
+            it "should have a comment of # file in the manifest as described by the has_file" do
+              @manifest.should =~ /template \"\/etc\/httpd\/http.conf\" do/
+            end
+            it "should have the comment of a package in the manifest" do
+              @manifest.should =~ /package "dummy" do/
+            end
+            it "should have the comment for haproxy in the manifest" do
+              @manifest.should =~ /haproxy/            
+            end
+            it "should include the poolparty gem" do
+              pending
+            end
+          end
+
+          describe "building with an existing manifest" do
+            before(:each) do
+              @file = "/etc/puppet/manifests/nodes/nodes.pp"
+              @file.stub!(:read).and_return "nodes generate"
+              ::FileTest.stub!(:file?).with("/etc/poolparty/poolparty.pp").and_return true
+              @cloud.stub!(:open).with("/etc/poolparty/poolparty.pp").and_return @file
+            end
+            it "should not call resources_string_from_resources if the file /etc/puppet/manifests/nodes/nodes.pp exists" do
+              @cloud.should_not_receive(:add_poolparty_base_requirements)
+              @cloud.build_manifest
+            end
+            it "should build from the existing file" do
+              @cloud.build_manifest.should == "nodes generate"
+            end
+          end
+        end
+      end
+
+      # describe "instances" do
+      #   before(:each) do
+      #     @cloud3 = cloud :pop do;keypair "fake_keypair";end
+      #     stub_list_from_remote_for(@cloud3)
+      #   end
+      #   it "should respond to the method master" do
+      #     @cloud3.master.should_not be_nil
+      #     @cloud3.respond_to?(:master).should == true
+      #   end
+      #   it "should return a master that is not nil" do
+      #     @cloud3.master.should_not be_nil
+      #   end
+      # end
+    end
+  end
+end

data/spec/poolparty/poolparty/configurers/files/ruby_basic.rb

@@ -0,0 +1,16 @@
+pool :poolpartyrb do
+  plugin_directory "docs_plugins"  
+  
+  cloud :app do
+        
+    # Configuration
+    minimum_instances 1
+    
+    apachetest do
+      enable_php
+      site("poolpartyrb.com")
+    end
+        
+  end
+  
+end

data/spec/poolparty/poolparty/configurers/files/ruby_plugins.rb

@@ -0,0 +1,16 @@
+pool :poolpartyrb do
+  
+  cloud :app do
+    
+    apache do
+      enable_php
+      
+      site({
+        :document_root => "/www/domain2",
+        :server_name => "domain2.com"
+      })
+    end    
+    
+  end
+  
+end