fairchild-poolparty 1.1.5 → 1.2.12

data/test/poolparty/core/hash_test.rb

@@ -2,32 +2,30 @@ require "#{::File.dirname(__FILE__)}/../../test_helper"
 
 class TestHashClass < Test::Unit::TestCase
   context "hash_get" do
-    before do
+    setup do
       @hsh = {
         "10.0.0.3" => {"stuff" => "here"},
         "10.0.0.1" => {"stuff" => "here"},
         "10.0.0.2" => {"stuff" => "here"}
       }
     end
-    it "should return 0.1 if we are 0.2" do
+    should "should return 0.1 if we are 0.2" do
       assert @hsh.next_sorted_key("10.0.0.1"), "10.0.0.2"
       assert @hsh.next_sorted_key("10.0.0.2"), "10.0.0.3"
       assert @hsh.next_sorted_key("10.0.0.3"), "10.0.0.1"
       assert @hsh.next_sorted_key("10.0.0.1"), "10.0.0.2"
     end
-    it "should return self if there is only 1 element" do
+    should "should return self if there is only 1 element" do
       k = {"10.0.0.2" => {"stuff" => "here"}}.next_sorted_key("10.0.0.2")
       assert k, "10.0.0.2"
     end
   end
   context "test method_missing" do
-    it "should be able to call a key on the hash as a method" do
+    should "should be able to call a key on the hash as a method" do
       {:first_name => "bob", :last_name => "frank"}.first_name.should == "bob"
     end
-    it "should not return nil if there is no key set in the hash" do
+    should "should not return nil if there is no key set in the hash" do
       hsh = {:first_name => "bob", :last_name => "frank"}
-      assert false
-      assert_not_nil hsh.dttte
       lambda {{:first_name => "bob", :last_name => "frank"}.neighbor}.should raise_error
     end
   end

data/test/poolparty/core/object_test.rb

@@ -0,0 +1,29 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class RunOnceClass
+  attr_reader :apples, :count
+  def initialize
+    @count = 1
+  end
+  def run_me
+    do_once do
+      @count += 1
+      @apples = "to apples"
+    end
+  end
+end
+
+class RunOnceTest < Test::Unit::TestCase
+  def setup
+    @ro = RunOnceClass.new
+  end
+  def test_apples_should_be_nil
+    assert_nil @ro.apples
+    assert_equal @ro.count, 1
+  end
+  def test_apples_should_not_be_nil_when_run
+    @ro.run_me
+    assert_equal @ro.apples, "to apples"
+    assert_equal @ro.count, 2
+  end
+end

data/test/poolparty/dependency_resolver/chef_resolver_test.rb

@@ -0,0 +1,82 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestChefResolver < Test::Unit::TestCase
+  context "from a hash" do
+    setup do
+      reset!
+      @cloud_reference_hash = {
+        :options => {:name => "dog", :keypair => "bob", :users => ["ari", "michael"]},
+        :resources => [
+          {:name => "/etc/motd", :content => "Welcome to the cloud", :pp_type => "file"},
+          {:name => "/etc/profile", :content => "profile info", :pp_type => "file"},
+          {:name => "/var/www", :pp_type => "directory"},
+          {:name => "apache_class", :pp_type => "plugin", :resources => [
+            {:name => "/etc/apache2/apache2.conf", :pp_type => "file", :template => "/absolute/path/to/template", :content => "rendered template string"}
+          ]}
+        ],
+      }
+    end
+
+    should "throw an exception if not given a hash" do
+      lambda { PoolParty::ChefResolver.compile }.should raise_error
+    end
+    should "accept a hash" do
+      lambda { PoolParty::ChefResolver.compile(@cloud_reference_hash)}.should_not raise_error
+    end
+    context "compiled" do
+      setup do
+        reset!
+        @dr = ChefResolver.new(@cloud_reference_hash)
+        @compiled = @dr.compile
+      end
+
+      should "should print resources in the proper layout" do        
+        @compiled.should =~ /template \"\/etc\/motd\" do\n\tsource \"\/etc\/motd\.erb\"/
+      end
+
+      should "should print apache into a class definition" do
+        # puts "<pre>#{@compiled.to_yaml}</pre>"
+        @compiled.should =~ /# apache/
+      end
+    end
+  end
+  
+  context "with a cloud" do
+    setup do
+      reset!
+      @cloud = cloud :hope do
+        keypair "bob"
+        has_file :name => "/etc/motd", :content => "Welcome to the cloud"        
+        has_file :name => "/etc/profile", :content => "profile info"        
+
+        has_directory :name => "/var/www"
+        has_file :name => "/var/www/index.html", :content => "profile info", :requires => get_directory("/var/www")
+
+        dependency_resolver "chef"
+        # has_package :name => "bash"        
+        # parent == cloud
+        apache do
+          # parent == apache
+          listen "8080"
+          has_file :name => "/etc/apache2/apache2.conf", :template => "#{::File.dirname(__FILE__)}/../../fixtures/test_template.erb", :friends => "bob"
+          has_exec :command => "ls /etc/apache2"
+        end
+      end
+      @properties = @cloud.to_properties_hash
+
+      # puts "<pre>#{@cloud_reference_hash.to_yaml}\n\n#{@properties}</pre>"
+      @dr = ChefResolver.new(@properties)
+      @compiled = @dr.compile
+    end
+    should "should compile to a string" do
+      # puts "<pre>#{@compiled.to_yaml}</pre>"
+      @compiled.class.should == String
+    end
+    should "should include apache class" do
+      @compiled.should =~ /# apache/
+    end
+    should "should require the file to have the directory (written as file)" do
+      @compiled.should =~ /directory \"\/var\/www\"/
+    end
+  end
+end

data/test/poolparty/dependency_resolver/puppet_resolver_test.rb

@@ -1,10 +1,5 @@
 require "#{::File.dirname(__FILE__)}/../../test_helper"
 
-class PuppetResolverSpec
-  plugin :apache do
-  end
-end
-
 class TestPuppetResolver < Test::Unit::TestCase
   context "from a hash" do
     setup do
@@ -14,18 +9,12 @@ class TestPuppetResolver < Test::Unit::TestCase
         :resources => [
           {:name => "/etc/motd", :content => "Welcome to the cloud", :pp_type => "file"},
           {:name => "/etc/profile", :content => "profile info", :pp_type => "file"},
-          {:name => "/var/www", :pp_type => "directory"}
+          {:name => "/var/www", :pp_type => "directory"},
+          {:name => "apache_class", :pp_type => "plugin", :resources => [
+            {:name => "/etc/apache2/apache2.conf", :pp_type => "file", :template => "/absolute/path/to/template", :content => "rendered template string"}
+          ]}
         ],
-        :services => {
-          :apache => [{
-            :options => {:listen => "8080"},
-            :resources => [
-              {:name => "/etc/apache2/apache2.conf", :pp_type => "file", :template => "/absolute/path/to/template", :content => "rendered template string"}
-            ],
-            :services => {}
-          }]
-        }
-      } 
+      }
     end
 
     should "throw an exception if not given a hash" do
@@ -72,12 +61,6 @@ class TestPuppetResolver < Test::Unit::TestCase
           has_file :name => "/etc/apache2/apache2.conf", :template => "#{::File.dirname(__FILE__)}/../../fixtures/test_template.erb", :friends => "bob"
           has_exec :command => "ls /etc/apache2"
         end
-
-        case_of "hostname" do
-          when_is 'master' do            
-            has_package :name=>'haproxy'
-          end
-        end
       end
       @properties = @cloud.to_properties_hash
 
@@ -92,10 +75,6 @@ class TestPuppetResolver < Test::Unit::TestCase
     should "should include apache class" do
       @compiled.should =~ /class apache \{/
     end
-    should "should include the case statement" do
-      @compiled.should =~ /case \$hostname \{/
-      @compiled.should =~ /master : \{/
-    end
     should "should require the file to have the directory (written as file)" do
       @compiled.should =~ /require => File\[\"\/var\/www\"\]/
     end

data/test/poolparty/modules/callbacks_test.rb

@@ -15,7 +15,7 @@ class TestCallbacks < Test::Unit::TestCase
   context "methods" do
     setup do
       @tc = CallbacksTestClass.new
-      @tc.after_create
+      @tc.setup_callbacks
     end
 
     should "have the 4 basic callbacks" do

data/test/poolparty/modules/cloud_dsl_test.rb

@@ -4,7 +4,8 @@ class TestCloudDsl < Test::Unit::TestCase
   context "enabling and disabling" do
     setup do
       reset!
-      @cloud = cloud :test_cloud_dsl
+      @cloud = cloud :test_cloud_dsl do
+      end
     end    
     should "not have an option set for hyper_drive" do
       @cloud.dsl_options[:hyper_drive].should == nil
@@ -21,18 +22,20 @@ class TestCloudDsl < Test::Unit::TestCase
     end
     
     should "be able to check if they are enabled" do
-      @cloud.enable :hyper_drive
-      @cloud.enabled?(:hyper_drive).should == true
+      @cloud.enable :hyper_slam
+      @cloud.enabled?(:hyper_slam).should == true
     end
     should "be able to check that they are disabled" do
-      @cloud.disable :hyper_drive
-      @cloud.enabled?(:hyper_drive).should == false
+      @cloud.disable :hyper_slam
+      @cloud.enabled?(:hyper_slam).should == false
     end
   end
   context "calling add_optional_enabled_services" do
     setup do
       reset!
-      @cloud = cloud :test_cloud_dsl_2
+      @cloud = cloud :test_cloud_dsl_2 do
+        enable :haproxy
+      end
       @cloud.instance_eval "self.class.send :attr_reader, :brains"
       @cloud.instance_eval "def box;@brains = 'pepper';end"
     end
@@ -47,10 +50,9 @@ class TestCloudDsl < Test::Unit::TestCase
       @cloud.brains.should == nil
     end
     should "call haproxy when adding enabled serivces" do
-      @cloud.enable :haproxy
       @cloud.add_optional_enabled_services
       klasses = @cloud.plugin_store.map {|a| a.class.to_s.split("::")[-1] }
-      klasses.include?("HaproxyClass").should == true
+      klasses.include?("Haproxy").should == true
     end
   end
   

data/test/poolparty/monitors/test_base_monitor.rb

@@ -0,0 +1,17 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class BaseMonitorTest < Test::Unit::TestCase
+  context "Available Monitors" do
+    should "start out with available monitors" do
+      assert Monitors.available.size > 5
+      assert Monitors.available.include? Monitors::Load
+    end
+    
+    should "have available_monitors" do
+      class ExtraFoo < ::Monitors::BaseMonitor; end
+      assert Monitors.available.include? ExtraFoo
+    end
+    
+  end
+  
+end

data/test/poolparty/monitors/test_monitor_rack.rb

@@ -0,0 +1,26 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+require 'tempfile'
+require 'rack/test'
+
+
+class MonitorRackTest < Test::Unit::TestCase
+  include Rack::Test::Methods
+  context "MonitorRack" do
+    setup do
+      @rackup = ::File.dirname(__FILE__)+"/../../../lib/poolparty/templates/monitor.ru"
+    end
+    
+    should "be able to start" do
+      tfile = Tempfile.new('monitor_rack.pid')
+      output = IO.popen("thin -R #{@rackup} start", 'r')
+      # output = IO.popen("uptime", 'r')
+      p output.status
+      assert $?.success?
+      
+      `thin -R #{tfile.path} stop`
+      assert $?.success?
+      tfile.unlink
+    end
+  end
+  
+end

data/test/poolparty/net/remoter_base_test.rb

@@ -0,0 +1,17 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class RemoterBaseTest < Test::Unit::TestCase
+  context "Available Bases" do
+    
+    should "have global remote_bases" do
+      assert !PoolParty::Remote.available.empty?
+      assert PoolParty::Remote.available.size >1
+      assert PoolParty::Remote.available.include?(PoolParty::Remote::Ec2)
+    end
+    
+    should "should return an array of top_level RemoterBase class symbols " do
+      assert ::PoolParty::Remote::RemoterBase.available_bases.include?(:ec2)
+    end
+  end
+  
+end

data/test/poolparty/net/remoter_bases/libvirt/libvirt_test.rb

@@ -0,0 +1,70 @@
+require "#{::File.dirname(__FILE__)}/../../../../test_helper"
+
+# Uncomment the tests for live-testing
+class TestLibvirt < Test::Unit::TestCase
+  context "registered as remote base" do
+    setup do
+      reset!
+      @lvcloud = cloud :vurt do
+        keypair "#{::File.dirname(__FILE__)}/../../../../fixtures/test_key"
+        instances 1
+        using :libvirt do
+        end
+      end
+    end
+    should "be registered as a remote_base" do
+      assert PoolParty::Remote.available.include?(PoolParty::Remote::Libvirt)
+    end
+    should "be setting the type of remote_base" do
+      assert_equal PoolParty::Remote::Libvirt, @lvcloud.libvirt.class
+    end
+    should "have libvirt as the remoter base" do
+      # assert_equal @lvcloud.libvirt.should, @lvcloud.remote_base
+      assert_equal @lvcloud.remoter_base, :libvirt
+      assert_equal @lvcloud.remote_base.class, PoolParty::Remote::Libvirt
+    end
+    should "have a keypair" do
+      assert_equal 'test_key', @lvcloud.keypair.basename
+      assert_equal 'test_key', @lvcloud.keypair_name
+    end
+    should "be able to initialize without a cloud" do
+      assert_nothing_raised  do PoolParty::Remote::Libvirt.new end
+    end
+    # should "start metavirt instance" do
+    #   @cloud.launch_instance!
+    #   assert @cloud.metavirt.describe_instances.first[:instance_id]>0
+    # end
+    # should "be able to terminate the instance" do
+    #   @cloud.launch_instance!
+    #   @cloud.terminate_instance!
+    #   assert @cloud.describe_instances.empty?
+    # end
+    # teardown do
+    #   # PoolParty::Remote::metavirt.terminate!(
+    #   @cloud.describe_instances.each do |inst|
+    #     @cloud.terminate_instance! inst[:instance_id]
+    #   end
+    # end
+  end
+  
+  context "running libvirt" do
+    setup do
+      @cloud_lv = cloud :lv do
+        keypair "#{::File.dirname(__FILE__)}/../../../../fixtures/test_key"
+        instances 1
+        using :libvirt do
+          image_id 'jaunty19'
+        end
+      end
+    end
+    should "be setting the type of remote_base" do
+      assert_equal PoolParty::Remote::Libvirt, @cloud_lv.remote_base.class
+      assert_equal 'jaunty19', @cloud_lv.remote_base.image_id
+      assert_equal 'jaunty19', @cloud_lv.libvirt.image_id
+    end
+    should "be able to describe instances" do
+      assert @cloud_lv.describe_instances.class == Array
+    end
+  end
+  
+end

data/test/poolparty/net/remoter_bases/metavirt/metavirt_test.rb

@@ -0,0 +1,81 @@
+require "#{::File.dirname(__FILE__)}/../../../../test_helper"
+
+# Uncomment the tests for live-testing
+class TestMetavirt < Test::Unit::TestCase
+  context "registered as remote base" do
+    setup do
+      reset!
+      @cloud = cloud :metvirt_cld do
+        keypair "#{::File.dirname(__FILE__)}/../../../../fixtures/test_key"
+        instances 1
+        using :metavirt do
+          using :vmrun do
+            vmx_files ['/path/to/vmx', '/another/path']
+          end
+        end
+      end
+    end
+    should "be registered as a remote_base" do
+      PoolParty::Remote::RemoterBase.available_bases.include?(:vmrun).should == true
+    end
+    should "be setting the type of remote_base" do
+      assert_equal PoolParty::Remote::Vmrun, @cloud.remote_base.remote_base.class
+      assert_equal PoolParty::Remote::Metavirt, @cloud.remote_base.class
+    end
+    should "have metavirt as the remoter base" do
+      @cloud.metavirt.should == @cloud.remote_base
+    end
+    should "have a keypair" do
+      assert_equal 'test_key', @cloud.keypair.basename
+      assert_equal 'test_key', @cloud.keypair_name
+    end
+    # should "start metavirt instance" do
+    #   @cloud.launch_instance!
+    #   assert @cloud.metavirt.describe_instances.first[:instance_id]>0
+    # end
+    # should "be able to terminate the instance" do
+    #   @cloud.launch_instance!
+    #   @cloud.terminate_instance!
+    #   assert @cloud.describe_instances.empty?
+    # end
+    # teardown do
+    #   # PoolParty::Remote::metavirt.terminate!(
+    #   @cloud.describe_instances.each do |inst|
+    #     @cloud.terminate_instance! inst[:instance_id]
+    #   end
+    # end
+  end
+  
+  context "running libvirt" do
+    setup do
+      @cloud_lv = cloud :lv do
+        keypair "#{::File.dirname(__FILE__)}/../../../../fixtures/test_key"
+        instances 1
+        using :metavirt do
+          using :libvirt do
+            image_id 'jaunty19'
+          end
+        end
+      end
+    end
+    
+    should "be setting the type of remote_base" do
+      assert_equal PoolParty::Remote::Libvirt, @cloud_lv.remote_base.remote_base.class
+      assert_equal PoolParty::Remote::Metavirt, @cloud_lv.remote_base.class
+    end
+    
+    should "be able to describe instances" do
+      if ENV['LIBVIRT']  # set env variable if you want to actually call out to libvirt
+        assert_equal 'jaunty19', @cloud_lv.metavirt.libvirt.image_id
+        assert_equal 'jaunty19', @cloud_lv.metavirt.image_id
+      end
+    end
+    
+    should "use libvirt options from metavirt" do
+      assert_equal 'jaunty19', clouds[:lv].metavirt.libvirt.image_id
+      assert_not_nil clouds[:lv].metavirt.image_id
+      assert_equal clouds[:lv].metavirt.libvirt.image_id, clouds[:lv].metavirt.image_id
+    end
+  end
+  
+end

data/test/poolparty/net/remoter_bases/vmrun/vmrun_test.rb

@@ -1,50 +1,81 @@
 require "#{::File.dirname(__FILE__)}/../../../../test_helper"
 
+# Comment out this VmwareInstanceclass if you want to actually run vmware
+class VmwareInstance
+  def launch!
+    { :status => 'running',
+      :mac_address => '00:23:6c:93:7b:91',
+      :ip => '10.45.10.234',
+      :internal_ip => '10.45.10.234',          
+      :instance_id => vmx_file,
+      :keypair => keypair
+    }
+  end
+end
+
+# Uncomment the tests for live-testing
 class TestVmRun < Test::Unit::TestCase
   context "registered as remote base" do
     setup do
       reset!
-      $vmx_keys = {
+      vmx_keys1 = {
         ::File.expand_path("~/Documents/vm/Ubuntu32bitVM.vmwarevm/Ubuntu32bitVM.vmx") => "192.168.248.133"
       }
-      $vmx_files = $vmx_keys.keys
-      $ipaddresses = $vmx_keys.values
+      @vmx_files = vmx_keys1.keys
+      @ipaddresses = vmx_keys1.values
       
       @cloud = cloud :test_vm_runner do
-        
         using :vmrun do
-          vmx_hash $vmx_keys
+          path_to_binary '/fake/path/to/vmrun'
+          vmx_hash vmx_keys1
+        end
+      end
+      
+      @cloud2 = cloud :files do
+        using :vmrun do
+          vmx_files ['/path/to/vmx/file', '/another/path']
         end
-        
-      end      
+      end
+      
     end    
     should "be setting the type of remote_base as Vmrun" do
       @cloud.remote_base.class.should == PoolParty::Remote::Vmrun
     end
     should "have the method vmrun as the remoter base" do
       @cloud.vmrun.should == @cloud.remote_base
-    end    
-    should "start vmware instance" do
-      @cloud.launch_instance!
-      assert @cloud.vmrun.describe_instances.first[:instance_id], $vmx_files.first
     end
-    should "have the ip and mac address" do
-      @cloud.launch_instance!
-      
-      vmx_file = @cloud.vmrun.describe_instances.first[:instance_id]
-      instance = @cloud.vmrun.describe_instance(:vmx_file => vmx_file)
-
-      assert !instance.mac_address.nil?
-      assert !instance.ip.nil?
-    end    
-    should "be able to turn off the instance" do
-      @cloud.launch_instance!
-      @cloud.terminate_instance!
-      assert @cloud.describe_instances.empty?
+    should "have vmx_files from vmx_hash" do
+      @cloud.remote_base.vmx_files.size.should == 1
+      @cloud.remote_base.vmx_files.should == @vmx_files
     end
-    after :all do
-      PoolParty::Remote::Vmrun.terminate!(@cloud)
+    should "have vmx_files form vmx_files option" do
+      @cloud.remote_base.vmx_files == ["~/Documents/vm/Ubuntu32bitVM.vmwarevm/Ubuntu32bitVM.vmx"]
+      @cloud2.remote_base.vmx_files == ['/path/to/vmx/file', '/another/path']
     end
+    # should "start vmware instance" do
+    #   @cloud.launch_instance!
+    #   assert @cloud.vmrun.describe_instances.first[:instance_id], $vmx_files.first
+    # end
+    # should "have the ip and mac address" do
+    #   @cloud.launch_instance!
+    #   
+    #   vmx_file = @cloud.vmrun.describe_instances.first[:instance_id]
+    #   instance = @cloud.vmrun.describe_instance(:vmx_file => vmx_file)
+    # 
+    #   assert !instance.mac_address.nil?
+    #   assert !instance.ip.nil?
+    # end    
+    # should "be able to turn off the instance" do
+    #   @cloud.launch_instance!
+    #   @cloud.terminate_instance!
+    #   assert @cloud.describe_instances.empty?
+    # end
+    # teardown do
+    #   # PoolParty::Remote::Vmrun.terminate!(
+    #   @cloud.describe_instances.each do |inst|
+    #     @cloud.terminate_instance! inst[:instance_id]
+    #   end
+    # end
   end
   
-end
+end

data/test/poolparty/plugins/chef_deploy_test.rb

@@ -0,0 +1,37 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestChefDeploy < Test::Unit::TestCase
+  context "base usage (chef_deploy)" do
+    setup do
+      reset!
+      @cloud = cloud :test_chef_deploy_cloud do
+        has_chef_deploy do
+          branch "/var/www"
+          repo "git://github.com/auser/paparazzi.git"
+          user "www-data"
+        end
+      end
+      @chef_deploy = @cloud.chef_deploys.first
+    end
+
+    should "place a resource on the cloud" do
+      assert_equal PoolParty::Plugin::ChefDeploy, @cloud.ordered_resources.first.class
+    end
+    should "raise if :repo is not passed" do
+      assert_raise ReposMissingError do
+        cloud :boxy do
+          has_chef_deploy do
+            branch "/bweee"
+          end
+        end
+      end
+    end
+    should "have the rails required gems installed" do
+      n = @cloud.chef_deploys.first.chef_librarys.map {|a| a.name }.first
+      assert_match /chef\-deploy\/lib\/chef\-deploy\.rb/, n
+    end
+    should "have a chef_deploy_definition" do
+      assert_equal @cloud.chef_deploys.first.chef_deploy_definitions.size, 1
+    end
+  end  
+end

data/test/poolparty/plugins/chef_plugin_test.rb

@@ -0,0 +1,23 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestChef < Test::Unit::TestCase
+  context "json generation" do
+    setup do
+      reset!
+      cloud :json_this_yo do
+        chef do
+          json
+        end
+      end
+      @cloud = clouds[:json_this_yo]
+    end
+    
+    # TODO: Solidify json generation
+    should "include the json file" do
+      assert ::Suitcase::Zipper.items.has_key?(:"__p__stringdna.json_chef")
+      assert_equal ::Suitcase::Zipper.items[:"__p__stringdna.json_chef"][:content], '{"recipes":["poolparty"]}'
+      ::Suitcase::Zipper.build_dir!("#{@cloud.tmp_path}/test_dependencies")
+      assert_equal '{"recipes":["poolparty"]}', open("#{@cloud.tmp_path}/test_dependencies/chef/dna.json").read
+    end
+  end
+end