fairchild-poolparty 1.1.4 → 1.1.5

data/test/poolparty/dependency_resolver/puppet_resolver_test.rb

@@ -0,0 +1,106 @@
+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
+      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"}
+        ],
+        :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
+      lambda { PoolParty::PuppetResolver.compile }.should raise_error
+    end
+    should "accept a hash" do
+      lambda { PoolParty::PuppetResolver.compile(@cloud_reference_hash)}.should_not raise_error
+    end
+    context "compiled" do
+      setup do
+        reset!
+        @dr = PuppetResolver.new(@cloud_reference_hash)
+        @compiled = @dr.compile
+      end
+
+      should "should print resources in the proper layout" do        
+        @compiled.should =~ /file \{ "\/etc\/motd"/
+      end
+
+      should "should print apache into a class definition" do
+        # puts "<pre>#{@compiled.to_yaml}</pre>"
+        @compiled.should =~ /class 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 "puppet"
+        # 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
+
+        case_of "hostname" do
+          when_is 'master' do            
+            has_package :name=>'haproxy'
+          end
+        end
+      end
+      @properties = @cloud.to_properties_hash
+
+      # puts "<pre>#{@cloud_reference_hash.to_yaml}\n\n#{@properties}</pre>"
+      @dr = PuppetResolver.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 =~ /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
+    should "should ensure file" do
+      @compiled.should =~ /ensure => "present"/      
+    end
+  end
+end

data/test/poolparty/modules/callbacks_test.rb

@@ -0,0 +1,40 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class CallbacksTestClass
+  attr_reader :configured
+  include PoolParty::Callbacks
+  
+  additional_callbacks ["after_boxes"]
+  
+  def before_configure
+    @configured = true
+  end
+end
+
+class TestCallbacks < Test::Unit::TestCase
+  context "methods" do
+    setup do
+      @tc = CallbacksTestClass.new
+      @tc.after_create
+    end
+
+    should "have the 4 basic callbacks" do
+      assert @tc.respond_to?(:call_before_bootstrap_callbacks)
+      assert @tc.respond_to?(:call_after_bootstrap_callbacks)
+      assert @tc.respond_to?(:call_before_configure_callbacks)
+      assert @tc.respond_to?(:call_after_configure_callbacks)
+    end
+    should "have an addiitonal callback caller method" do
+      assert @tc.respond_to?(:call_after_boxes_callbacks)
+    end
+    should "call the callback on the class when calling call_(\w+)_callbacks method" do
+      assert_nil @tc.configured
+      @tc.call_before_configure_callbacks
+      assert @tc.configured
+    end
+    should "not explode when the method does not exist on the call_(\w+)_callbacks method" do
+      lambda {@tc.call_after_boxes_callbacks}.should_not raise_error
+    end
+  end
+  
+end

data/test/poolparty/modules/cloud_dsl_test.rb

@@ -29,5 +29,30 @@ class TestCloudDsl < Test::Unit::TestCase
       @cloud.enabled?(:hyper_drive).should == false
     end
   end
+  context "calling add_optional_enabled_services" do
+    setup do
+      reset!
+      @cloud = cloud :test_cloud_dsl_2
+      @cloud.instance_eval "self.class.send :attr_reader, :brains"
+      @cloud.instance_eval "def box;@brains = 'pepper';end"
+    end
+
+    should "send @cloud the method box after it's been enabled" do
+      @cloud.enable :box
+      @cloud.add_optional_enabled_services
+      @cloud.brains.should == "pepper"
+    end
+    should "not call box if the method has not been enabled" do
+      @cloud.add_optional_enabled_services
+      @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
+    end
+  end
+  
   
 end

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

@@ -0,0 +1,50 @@
+require "#{::File.dirname(__FILE__)}/../../../../test_helper"
+
+class TestVmRun < Test::Unit::TestCase
+  context "registered as remote base" do
+    setup do
+      reset!
+      $vmx_keys = {
+        ::File.expand_path("~/Documents/vm/Ubuntu32bitVM.vmwarevm/Ubuntu32bitVM.vmx") => "192.168.248.133"
+      }
+      $vmx_files = $vmx_keys.keys
+      $ipaddresses = $vmx_keys.values
+      
+      @cloud = cloud :test_vm_runner do
+        
+        using :vmrun do
+          vmx_hash $vmx_keys
+        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?
+    end
+    after :all do
+      PoolParty::Remote::Vmrun.terminate!(@cloud)
+    end
+  end
+  
+end

data/test/poolparty/net/remoter_test.rb

@@ -0,0 +1,14 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class RemoterTest < Test::Unit::TestCase
+  context "list_of_nodes" do
+    setup do
+      
+    end
+
+    should "fixme" do
+      
+    end
+  end
+  
+end

data/test/poolparty/poolparty/neighborhood_test.rb

@@ -0,0 +1,23 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestNeighborhoods < Test::Unit::TestCase
+  context "Constant" do
+    should "have the constant Neighborhoods" do
+      PoolParty.const_get("Neighborhoods").should == PoolParty::Neighborhoods
+    end
+  end
+  context "setting up a neighborhood" do
+    should "set the schema when starting with a json string or a hash" do
+      n = Neighborhoods.new({:instances => "b"})
+      n.schema.nil?.should == false
+      n.schema.class.should == PoolParty::Schema
+    end
+    should "raise an error if there started with nil" do
+      lambda {Neighborhoods.new}.should raise_error
+    end
+    it "should not raise a fit if there ARE instances defined" do
+      lambda{Neighborhoods.new({:instances => ["10.0.0.1"]})}.should_not raise_error
+    end
+  end
+  
+end

data/test/poolparty/poolparty/poolparty_base_class_test.rb

@@ -0,0 +1,84 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestBaseClass < PoolParty::PoolPartyBaseClass
+end
+
+class TestBaseClassTest < Test::Unit::TestCase
+  context "services" do
+    before(:each) do
+      reset!
+      @tbc = TestBaseClass.new do
+        has_git_repos :name => "test git", :at => "/var/www/google", :source => "git://pop.git"
+      end
+    end
+    it "should add a service when a service is called" do
+      @tbc.services.size.should == 1
+    end
+  end
+  context "context_stack" do
+    before(:each) do
+      ::PoolParty.reset!
+      @a = TestBaseClass.new
+    end
+    it "should have a context stack that is empty" do
+      @a.context_stack.empty?.should == true
+    end
+    it "should have a context_stack that is not empty when being evaluated" do
+      TestBaseClass.new do
+        context_stack.empty?.should == false
+      end
+    end
+    it "should have self in context_stack" do
+      TestBaseClass.new do
+        context_stack.last.should == self
+      end
+    end
+    it "should have the parent of self set in the context stack in the current_context" do
+      TestBaseClass.new do
+        current_context.last.should == parent
+      end
+    end
+    context "depth" do
+      before(:each) do
+        reset!
+        Proc.new do 
+          @a = $a =TestBaseClass.new do
+            @@b = $b = TestBaseClass.new do
+              @@c = $c =TestBaseClass.new do
+              end
+            end
+          end
+        end.call
+      end
+      it "should set the correct depth" do
+        @a.depth.should == 0
+        @@b.depth.should == 1
+        @@c.depth.should == 2
+      end
+      it "should have the parent set properly" do
+        # @a.parent.should == nil
+        @@c.parent.should == @@b
+        @@b.parent.should == @a
+      end
+      it "should have proper self" do
+        @a.this.should == $a.this
+      end
+    end
+  end
+  it "should have the parent set properly" do
+    @a = TestBaseClass.new do
+      @@b = TestBaseClass.new do
+        @@c = TestBaseClass.new do
+        end
+      end
+    end
+
+    @a.parent.should == nil
+    @@c.parent.should == @@b
+    @@b.parent.should == @a
+
+    @a.parent.should == nil
+    @@c.parent.should == @@b
+    @@b.parent.should == @a
+  end
+end

data/test/poolparty/verification/verify_test.rb

@@ -0,0 +1,49 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+module PoolParty
+  module Verifiers
+    class Ping < VerifierBase
+      attr_accessor :port, :checked
+      def initialize(port=80)
+        @port = port
+      end
+      def passing?
+        @checked
+      end
+    end
+    
+  end
+end
+class TestVerificationClass
+  include PoolParty::Verification
+  
+  attr_reader :port
+  def initialize(port=70, &block)
+    @port = port
+    instance_eval &block
+  end    
+end
+
+class TestVerification < Test::Unit::TestCase
+  context "verification included" do
+    setup do
+      @vc = TestVerificationClass.new do
+        verify do
+          ping 80
+        end
+      end
+    end
+    should "have a the ping verifier as a verifiers in the class" do
+      @vc.verifiers.first.class.should == PoolParty::Verifiers::Ping
+    end
+    should "not explode when calling verify on the verifier" do
+      @vc.verifiers.first.checked = true
+      @vc.passing?.should == true
+    end
+    should "explode if the verification fails" do
+      @vc.verifiers.first.checked = false
+      lambda {@vc.passing?}.should raise_error
+    end
+  end
+  
+end

data/test/test_helper.rb

@@ -2,4 +2,7 @@ require "rubygems"
 require "test/unit"
 require "context"
 require "matchy"
-require File.dirname(__FILE__) + '/../lib/PoolParty'
+# require "shoulda"
+# require "mocha"
+
+require File.dirname(__FILE__) + '/../lib/poolparty'

data/test/test_poolparty.rb

@@ -1,11 +1,12 @@
 require File.dirname(__FILE__) + '/test_helper.rb'
 
 class TestPoolParty < Test::Unit::TestCase
-
-  def setup
+  context "helpers" do
+    
+    should "include_user_directory" do
+      # FIXUP
+      assert false
+    end
   end
   
-  def test_truth
-    assert true
-  end
 end

data/vendor/chef/apache2/attributes/apache.rb

@@ -47,7 +47,7 @@ end
 ###
 
 # General settings
-apache[:listen_ports] = [ "80" ]     unless apache.has_key?(:listen_ports)
+apache[:listen_ports] = [ "8080" ]     unless apache.has_key?(:listen_ports)
 apache[:contact] = "ops@example.com" unless apache.has_key?(:contact)
 apache[:timeout] = 300               unless apache.has_key?(:timeout)
 apache[:keepalive] = "On"            unless apache.has_key?(:keepalive)

data/vendor/chef/apache2/templates/default/default-site.erb

@@ -1,4 +1,4 @@
-<VirtualHost *:80>
+<VirtualHost *:<%= @node[:apache][:listen_ports].first rescue 80 %>>
         ServerAdmin <%= @node[:apache][:contact] %>
 
         DocumentRoot /var/www/

data/vendor/chef/chef-deploy/LICENSE

@@ -0,0 +1,201 @@
+                              Apache License
+                        Version 2.0, January 2004
+                     http://www.apache.org/licenses/
+
+TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+1. Definitions.
+
+   "License" shall mean the terms and conditions for use, reproduction,
+   and distribution as defined by Sections 1 through 9 of this document.
+
+   "Licensor" shall mean the copyright owner or entity authorized by
+   the copyright owner that is granting the License.
+
+   "Legal Entity" shall mean the union of the acting entity and all
+   other entities that control, are controlled by, or are under common
+   control with that entity. For the purposes of this definition,
+   "control" means (i) the power, direct or indirect, to cause the
+   direction or management of such entity, whether by contract or
+   otherwise, or (ii) ownership of fifty percent (50%) or more of the
+   outstanding shares, or (iii) beneficial ownership of such entity.
+
+   "You" (or "Your") shall mean an individual or Legal Entity
+   exercising permissions granted by this License.
+
+   "Source" form shall mean the preferred form for making modifications,
+   including but not limited to software source code, documentation
+   source, and configuration files.
+
+   "Object" form shall mean any form resulting from mechanical
+   transformation or translation of a Source form, including but
+   not limited to compiled object code, generated documentation,
+   and conversions to other media types.
+
+   "Work" shall mean the work of authorship, whether in Source or
+   Object form, made available under the License, as indicated by a
+   copyright notice that is included in or attached to the work
+   (an example is provided in the Appendix below).
+
+   "Derivative Works" shall mean any work, whether in Source or Object
+   form, that is based on (or derived from) the Work and for which the
+   editorial revisions, annotations, elaborations, or other modifications
+   represent, as a whole, an original work of authorship. For the purposes
+   of this License, Derivative Works shall not include works that remain
+   separable from, or merely link (or bind by name) to the interfaces of,
+   the Work and Derivative Works thereof.
+
+   "Contribution" shall mean any work of authorship, including
+   the original version of the Work and any modifications or additions
+   to that Work or Derivative Works thereof, that is intentionally
+   submitted to Licensor for inclusion in the Work by the copyright owner
+   or by an individual or Legal Entity authorized to submit on behalf of
+   the copyright owner. For the purposes of this definition, "submitted"
+   means any form of electronic, verbal, or written communication sent
+   to the Licensor or its representatives, including but not limited to
+   communication on electronic mailing lists, source code control systems,
+   and issue tracking systems that are managed by, or on behalf of, the
+   Licensor for the purpose of discussing and improving the Work, but
+   excluding communication that is conspicuously marked or otherwise
+   designated in writing by the copyright owner as "Not a Contribution."
+
+   "Contributor" shall mean Licensor and any individual or Legal Entity
+   on behalf of whom a Contribution has been received by Licensor and
+   subsequently incorporated within the Work.
+
+2. Grant of Copyright License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   copyright license to reproduce, prepare Derivative Works of,
+   publicly display, publicly perform, sublicense, and distribute the
+   Work and such Derivative Works in Source or Object form.
+
+3. Grant of Patent License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   (except as stated in this section) patent license to make, have made,
+   use, offer to sell, sell, import, and otherwise transfer the Work,
+   where such license applies only to those patent claims licensable
+   by such Contributor that are necessarily infringed by their
+   Contribution(s) alone or by combination of their Contribution(s)
+   with the Work to which such Contribution(s) was submitted. If You
+   institute patent litigation against any entity (including a
+   cross-claim or counterclaim in a lawsuit) alleging that the Work
+   or a Contribution incorporated within the Work constitutes direct
+   or contributory patent infringement, then any patent licenses
+   granted to You under this License for that Work shall terminate
+   as of the date such litigation is filed.
+
+4. Redistribution. You may reproduce and distribute copies of the
+   Work or Derivative Works thereof in any medium, with or without
+   modifications, and in Source or Object form, provided that You
+   meet the following conditions:
+
+   (a) You must give any other recipients of the Work or
+       Derivative Works a copy of this License; and
+
+   (b) You must cause any modified files to carry prominent notices
+       stating that You changed the files; and
+
+   (c) You must retain, in the Source form of any Derivative Works
+       that You distribute, all copyright, patent, trademark, and
+       attribution notices from the Source form of the Work,
+       excluding those notices that do not pertain to any part of
+       the Derivative Works; and
+
+   (d) If the Work includes a "NOTICE" text file as part of its
+       distribution, then any Derivative Works that You distribute must
+       include a readable copy of the attribution notices contained
+       within such NOTICE file, excluding those notices that do not
+       pertain to any part of the Derivative Works, in at least one
+       of the following places: within a NOTICE text file distributed
+       as part of the Derivative Works; within the Source form or
+       documentation, if provided along with the Derivative Works; or,
+       within a display generated by the Derivative Works, if and
+       wherever such third-party notices normally appear. The contents
+       of the NOTICE file are for informational purposes only and
+       do not modify the License. You may add Your own attribution
+       notices within Derivative Works that You distribute, alongside
+       or as an addendum to the NOTICE text from the Work, provided
+       that such additional attribution notices cannot be construed
+       as modifying the License.
+
+   You may add Your own copyright statement to Your modifications and
+   may provide additional or different license terms and conditions
+   for use, reproduction, or distribution of Your modifications, or
+   for any such Derivative Works as a whole, provided Your use,
+   reproduction, and distribution of the Work otherwise complies with
+   the conditions stated in this License.
+
+5. Submission of Contributions. Unless You explicitly state otherwise,
+   any Contribution intentionally submitted for inclusion in the Work
+   by You to the Licensor shall be under the terms and conditions of
+   this License, without any additional terms or conditions.
+   Notwithstanding the above, nothing herein shall supersede or modify
+   the terms of any separate license agreement you may have executed
+   with Licensor regarding such Contributions.
+
+6. Trademarks. This License does not grant permission to use the trade
+   names, trademarks, service marks, or product names of the Licensor,
+   except as required for reasonable and customary use in describing the
+   origin of the Work and reproducing the content of the NOTICE file.
+
+7. Disclaimer of Warranty. Unless required by applicable law or
+   agreed to in writing, Licensor provides the Work (and each
+   Contributor provides its Contributions) on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+   implied, including, without limitation, any warranties or conditions
+   of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+   PARTICULAR PURPOSE. You are solely responsible for determining the
+   appropriateness of using or redistributing the Work and assume any
+   risks associated with Your exercise of permissions under this License.
+
+8. Limitation of Liability. In no event and under no legal theory,
+   whether in tort (including negligence), contract, or otherwise,
+   unless required by applicable law (such as deliberate and grossly
+   negligent acts) or agreed to in writing, shall any Contributor be
+   liable to You for damages, including any direct, indirect, special,
+   incidental, or consequential damages of any character arising as a
+   result of this License or out of the use or inability to use the
+   Work (including but not limited to damages for loss of goodwill,
+   work stoppage, computer failure or malfunction, or any and all
+   other commercial damages or losses), even if such Contributor
+   has been advised of the possibility of such damages.
+
+9. Accepting Warranty or Additional Liability. While redistributing
+   the Work or Derivative Works thereof, You may choose to offer,
+   and charge a fee for, acceptance of support, warranty, indemnity,
+   or other liability obligations and/or rights consistent with this
+   License. However, in accepting such obligations, You may act only
+   on Your own behalf and on Your sole responsibility, not on behalf
+   of any other Contributor, and only if You agree to indemnify,
+   defend, and hold each Contributor harmless for any liability
+   incurred by, or claims asserted against, such Contributor by reason
+   of your accepting any such warranty or additional liability.
+
+END OF TERMS AND CONDITIONS
+
+APPENDIX: How to apply the Apache License to your work.
+
+   To apply the Apache License to your work, attach the following
+   boilerplate notice, with the fields enclosed by brackets "[]"
+   replaced with your own identifying information. (Don't include
+   the brackets!)  The text should be enclosed in the appropriate
+   comment syntax for the file format. We also recommend that a
+   file or class name and description of purpose be included on the
+   same "printed page" as the copyright notice for easier
+   identification within third-party archives.
+
+Copyright [yyyy] [name of copyright owner]
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

data/vendor/chef/chef-deploy/README.rdoc

@@ -0,0 +1,24 @@
+== chef-deploy
+
+A gem that provides resources and providers for deploying ruby web apps from chef recipes
+
+
+Uses the same directory layout as capistrano and steals the git remote cached deploy strategy 
+from cap and adapts it to work without cap and under chef
+
+ deploy "/data/#{app}" do
+   repo "git://github.com/engineyard/rack-app.git"
+   branch "HEAD"
+   user "ez"
+   enable_submodules true
+   migrate true
+   migration_command "rake db:migrate"
+   environment "production"
+   shallow_clone true
+   revision '0xbeadbeef'
+   action :deploy # or :rollback
+ end
+
+
+Currently only supports doing the cached git checkout, rsyncing it into place and doing the symlink dance.
+Does not restart servers or have hooks(yet)