poolparty 0.2.84 → 1.2.2

data/test/poolparty/dependency_resolver/puppet_resolver_test.rb

@@ -0,0 +1,90 @@
+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"},
+          {: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::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
+      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 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.setup_callbacks
+    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

@@ -0,0 +1,60 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestCloudDsl < Test::Unit::TestCase
+  context "enabling and disabling" do
+    setup do
+      reset!
+      @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
+    end
+
+    should "set the option to :enabled when enabled" do
+      @cloud.enable :hyper_drive
+      @cloud.dsl_options[:hyper_drive].should == :enabled
+    end
+
+    should "set the option to disabled when disabled" do
+      @cloud.disable :hyper_drive
+      @cloud.dsl_options[:hyper_drive].should == :disabled
+    end
+    
+    should "be able to check if they are enabled" do
+      @cloud.enable :hyper_drive
+      @cloud.enabled?(:hyper_drive).should == true
+    end
+    should "be able to check that they are disabled" do
+      @cloud.disable :hyper_drive
+      @cloud.enabled?(:hyper_drive).should == false
+    end
+  end
+  context "calling add_optional_enabled_services" do
+    setup do
+      reset!
+      @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
+
+    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.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,54 @@
+require "#{::File.dirname(__FILE__)}/../../../../test_helper"
+
+# Uncomment the tests for live-testing
+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
+    # teardown do
+    #   # PoolParty::Remote::Vmrun.terminate!(
+    #   @cloud.describe_instances.each do |inst|
+    #     @cloud.terminate_instance! inst[:instance_id]
+    #   end
+    # 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
+    should "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
+    setup do
+      reset!
+      @tbc = TestBaseClass.new do
+        has_git_repos :name => "test git", :at => "/var/www/google", :source => "git://pop.git"
+      end
+    end
+    should "should add a service when a service is called" do
+      @tbc.ordered_resources.size.should == 1
+    end
+  end
+  context "context_stack" do
+    setup do
+      ::PoolParty.reset!
+      @a = TestBaseClass.new
+    end
+    should "should have a context stack that is empty" do
+      @a.context_stack.empty?.should == true
+    end
+    should "should have a context_stack that is not empty when being evaluated" do
+      TestBaseClass.new do
+        context_stack.empty?.should == false
+      end
+    end
+    should "should have self in context_stack" do
+      TestBaseClass.new do
+        context_stack.last.should == self
+      end
+    end
+    should "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
+      setup 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
+      should "should set the correct depth" do
+        @a.depth.should == 0
+        @@b.depth.should == 1
+        @@c.depth.should == 2
+      end
+      should "should have the parent set properly" do
+        # @a.parent.should == nil
+        @@c.parent.should == @@b
+        @@b.parent.should == @a
+      end
+      should "should have proper self" do
+        @a.this.should == $a.this
+      end
+    end
+  end
+  should "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/poolparty/template_test.rb

@@ -0,0 +1,31 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestDrConfigure < Test::Unit::TestCase
+  context "Rendering of a string" do
+    setup do
+      @template_string = "Hello <%= name %>"
+    end
+    should "should have a method called compile_string on the class" do assert Template.respond_to?(:compile_string);end
+    should "should return rendered content" do assert Template.compile_string(@template_string, {:name => "bob"}), "Hello bob" end
+  end
+  context "Rendering of a file" do
+    setup do
+      @template_file = ::File.dirname(__FILE__) + "/../../fixtures/test_template.erb"
+    end
+    should "should have a method called compile_file on the class" do assert Template.respond_to?(:compile_file);end
+    should "should return rendered content" do assert Template.compile_file(@template_file, {:friends => "bob"}), "Hello bob" end
+  end
+  context "render_as" do
+    setup do
+      @template_options = {:render_as => :erb}
+    end
+
+    should "should call render with as erb" do
+      assert Template.compile_string("Hi <%= world %>", @template_options.merge(:world => "world")), "Hi world"
+    end
+    should "call render with haml if rendered with haml" do
+      # assert Template.compile_string("Hi <%= world %>", @template_options.merge(:render_as => :haml, :world => "world")), nil
+    end
+  end
+  
+end

data/test/poolparty/provision/boot_strapper_test.rb

@@ -0,0 +1,6 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestBootstrapper < Test::Unit::TestCase
+  context "test" do
+  end
+end

data/test/poolparty/provision/dr_configure_test.rb

@@ -0,0 +1,6 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestDrConfigure < Test::Unit::TestCase
+  context "test" do
+  end
+end

data/test/poolparty/verification/verify_test.rb

@@ -0,0 +1,49 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+module PoolParty
+  module Verifiers
+    class Ding < 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
+          ding 830
+        end
+      end
+    end
+    should "have a the ping verifier as a verifiers in the class" do
+      @vc.verifiers.first.class.should == PoolParty::Verifiers::Ding
+    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

@@ -1,2 +1,8 @@
-require 'test/unit'
-require File.dirname(__FILE__) + '/../lib/PoolParty'
+require "rubygems"
+require "test/unit"
+# require "context"
+require "matchy"
+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/README.rdoc

@@ -0,0 +1,59 @@
+= DESCRIPTION:
+
+Complete Debian/Ubuntu style Apache2 configuration.
+
+= REQUIREMENTS:
+
+Debian or Ubuntu preferred.
+
+Red Hat/CentOS and Fedora can be used, 
+
+= ATTRIBUTES:
+
+The file attributes/apache.rb contains the following attribute types:
+
+* platform specific locations and settings.
+* general settings
+* prefork attributes
+* worker attributes
+
+General settings and prefork/worker attributes are tunable.
+
+= USAGE:
+
+Include the apache2 recipe to install Apache2 and get 'sane' default settings. Configuration is modularized through Apache vhost sites a la Debian style configuration.
+
+== Defines:
+
+* apache_module: sets up an Apache module.
+* apache_site: sets up a vhost site. The conf file must be available.
+* web_app: copies the template for a web app and enables it as a site via apache_site.
+
+== Web Apps:
+
+Various applications that can be set up with Apache as the front end, such as PHP, Django, Rails and others can use the web_app define to set up the template and the Apache site. The define is kind of dumb, so the template needs have the application implementation settings, since we don't know what your app is or what is needed from Apache.
+
+We only prototype one parameter for the web_app define, "template". This is used to specify the name of the template to use in the current cookbook. When you use web_app, you can set up any parameters you want to use in your template. They will get passed to the template through the params hash. For example, the sample web_app.conf.erb template in this cookbook makes use of these.
+
+* docroot
+* server_name
+* server_aliases
+
+These are available as @params[:docroot], @params[:server_name], @params[:server_aliases] within the template. 
+
+= LICENSE & AUTHOR:
+
+Author:: Joshua Timberman (<joshua@opscode.com>)
+Copyright:: 2009, Opscode, Inc
+
+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/apache2/attributes/apache.rb

@@ -0,0 +1,72 @@
+#
+# Cookbook Name:: apache2
+# Attributes:: apache
+#
+# Copyright 2008, OpsCode, Inc.
+#
+# 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.
+#
+
+apache Mash.new unless attribute?("apache")
+
+# Where the various parts of apache are
+case platform
+when "redhat","centos","fedora","suse"
+  apache[:dir]     = "/etc/httpd"
+  apache[:log_dir] = "/var/log/httpd"
+  apache[:user]    = "apache"
+  apache[:binary]  = "/usr/sbin/httpd"
+  apache[:icondir] = "/var/www/icons"
+when "debian","ubuntu"
+  apache[:dir]     = "/etc/apache2" 
+  apache[:log_dir] = "/var/log/apache2"
+  apache[:user]    = "www-data"
+  apache[:binary]  = "/usr/sbin/apache2"
+  apache[:icondir] = "/usr/share/apache2/icons"
+else
+  apache[:dir]     = "/etc/apache2" 
+  apache[:log_dir] = "/var/log/apache2"
+  apache[:user]    = "www-data"
+  apache[:binary]  = "/usr/sbin/apache2"
+  apache[:icondir] = "/usr/share/apache2/icons"
+end
+
+###
+# These settings need the unless, since we want them to be tunable,
+# and we don't want to override the tunings.
+###
+
+# General settings
+apache[:listen_ports] = [ "80" ]     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)
+apache[:keepaliverequests] = 100     unless apache.has_key?(:keepaliverequests)
+apache[:keepalivetimeout] = 5        unless apache.has_key?(:keepalivetimeout)
+
+# Prefork Attributes
+apache[:prefork] = Mash.new unless apache.has_key?(:prefork)
+apache[:prefork][:startservers] = 16      unless apache[:prefork].has_key?(:prefork_startservers)
+apache[:prefork][:minspareservers] = 16   unless apache[:prefork].has_key?(:prefork_minspareservers)
+apache[:prefork][:maxspareservers] = 32   unless apache[:prefork].has_key?(:prefork_maxspareservers)
+apache[:prefork][:maxclients] = 400       unless apache[:prefork].has_key?(:prefork_maxclients)
+apache[:prefork][:maxrequestsperchild] = 10000 unless apache[:prefork].has_key?(:prefork_maxrequestsperchild)
+
+# Worker Attributes
+apache[:worker] = Mash.new unless apache.has_key?(:worker)
+apache[:worker][:startservers] = 4        unless apache[:worker].has_key?(:startservers)
+apache[:worker][:maxclients] = 1024       unless apache[:worker].has_key?(:maxclients)
+apache[:worker][:minsparethreads] = 64    unless apache[:worker].has_key?(:minsparethreads)
+apache[:worker][:maxsparethreads] = 192   unless apache[:worker].has_key?(:maxsparethreads)
+apache[:worker][:threadsperchild] = 64    unless apache[:worker].has_key?(:threadsperchild)
+apache[:worker][:maxrequestsperchild] = 0 unless apache[:worker].has_key?(:maxrequestsperchild)

data/vendor/chef/apache2/definitions/apache_module.rb

@@ -0,0 +1,36 @@
+#
+# Cookbook Name:: apache2
+# Definition:: apache_module
+#
+# Copyright 2008, OpsCode, Inc.
+#
+# 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.
+#
+
+define :apache_module, :enable => true do
+  include_recipe "apache2"
+  
+  if params[:enable]
+    execute "a2enmod #{params[:name]}" do
+      command "/usr/sbin/a2enmod #{params[:name]}"
+      notifies :restart, resources(:service => "apache2")
+      not_if do File.symlink?("#{node[:apache][:dir]}/mods-enabled/#{params[:name]}.load") end
+    end    
+  else
+    execute "a2dismod #{params[:name]}" do
+      command "/usr/sbin/a2dismod #{params[:name]}"
+      notifies :restart, resources(:service => "apache2")
+      only_if do File.symlink?("#{node[:apache][:dir]}/mods-enabled/#{params[:name]}.load") end
+    end
+  end
+end