fairchild-poolparty 1.1.5 → 1.2.12

data/test/poolparty/plugins/rails_deploy_test.rb

@@ -0,0 +1,50 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestRailsDeploy < Test::Unit::TestCase
+  context "base usage (rails_deploy)" do
+    setup do
+      reset!
+      @cloud = cloud :test_rails_deploy_cloud do
+        has_rails_deploy do
+          dir "/var/www"
+          repo "git://github.com/auser/paparazzi.git"
+          user "www-data"
+        end
+      end
+      @rails_deploy = @cloud.rails_deploys.first
+    end
+
+    should "place a resource on the cloud" do
+      assert_equal PoolParty::Plugin::RailsDeploy, @cloud.ordered_resources.first.class
+    end
+    should "raise if :repo is not passed" do
+      assert_raise PoolParty::ReposMissingError do
+        cloud :boxy do
+          has_rails_deploy do
+            dir "/bweee"
+          end
+        end
+      end
+    end
+    should "have the rails required gems installed" do
+      arr = @cloud.rails_deploys.first.gem_packages.map {|a| a.name }
+      %w(rails actionmailer actionpack activerecord activesupport activeresource).each do |g|
+        assert arr.include?(g)
+      end
+    end
+    should "create the directory tree" do
+      arr = @cloud.rails_deploys.first.directorys.map {|a| a.name }
+      ["shared", "shared/config", "shared/pids", "shared/log", "shared/system"].each do |dir|
+        assert arr.include?("/var/www/paparazzi/#{dir}")
+      end      
+    end
+    should "have git-core defined as a package" do
+      arr = @rails_deploy.packages.map {|a| a.name }
+      assert arr.include?("git-core")
+    end
+    should "have the chef-deploy" do
+      arr = @rails_deploy.chef_deploys.map {|a| a.name }
+      assert arr.include?("/var/www/paparazzi")
+    end
+  end  
+end

data/test/poolparty/poolparty/cloud_test.rb

@@ -0,0 +1,65 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class CloudTest < Test::Unit::TestCase
+  context "pulling options" do
+    setup do
+      reset!
+      pool :test_pool_test do
+        access_key "pool_access_key"
+        cloud :orange do
+          secret_access_key "cloud_access_key"
+        end
+      end
+    end
+
+    should "have access key on the cloud" do
+      assert_equal "pool_access_key", pools[:test_pool_test].access_key
+      assert_equal "pool_access_key", clouds[:orange].access_key
+      assert_equal "cloud_access_key", clouds[:orange].secret_access_key
+    end
+    should "set the access_key even if the AWS_ACCESS_KEY is nil" do
+      modify_env_with_hash("AWS_ACCESS_KEY" => nil)
+      assert_equal "pool_access_key", clouds[:orange].access_key
+    end
+    should "set the secret_access_key even if the AWS_SECRET_ACCESS_KEY is nil" do
+      modify_env_with_hash("AWS_SECRET_ACCESS_KEY" => nil)
+      assert_equal "cloud_access_key", clouds[:orange].secret_access_key
+    end
+  end
+  
+  context "callbacks" do
+    setup do
+    reset!
+      cloud :apple do
+        user "bob"
+        minimum_instances 100        
+        secret_access_key "cloud_access_key"
+        
+        after :bootstrap do |cld|
+          cld.class.send :attr_reader, :after_bootstrap_message          
+          @after_bootstrap_message = "After me!"
+        end
+      end
+    end
+    
+    should "call have callbacks for after :bootstrap (defined inside the cloud)" do
+      cblks = clouds[:apple].send :after_blocks
+      assert_equal [:bootstrap], cblks.keys
+      assert cblks[:bootstrap].is_a?(Array)
+    end
+    should "not have callbacks on configure (not defined inside the clouds.rb)" do
+      cblks = clouds[:apple].send :before_blocks
+      assert_equal [], cblks.keys
+    end
+    should "call the after bootstrap block when calling call_after_boostrap_callbacks on cloud" do
+      apple = clouds[:apple]
+      apple.call_after_bootstrap_callbacks
+      assert_equal apple.after_bootstrap_message, "After me!"
+    end
+    should "not call after_configure blocks when calling call_after_configure_callbacks" do
+      apple = clouds[:apple]
+      apple.call_after_configure_callbacks
+      assert_not_equal apple.after_bootstrap_message, "After me!"
+    end
+  end
+end

data/test/poolparty/poolparty/isolated_cloud_test.rb

@@ -0,0 +1,25 @@
+require "rubygems"
+require "test/unit"
+require "matchy"
+require "shoulda"
+require File.dirname(__FILE__) + '/../../../lib/poolparty'
+
+class CloudTest < Test::Unit::TestCase
+  context "pulling options" do
+    setup do
+      reset!      
+      pool :test_pool_test do
+        access_key "pool_access_key"
+        cloud :orange do
+          secret_access_key "cloud_access_key"
+        end
+      end
+    end
+    should "set the access_keys" do
+      assert_equal "pool_access_key", pools[:test_pool_test].access_key
+      assert_equal nil, pools[:test_pool_test].secret_access_key
+      assert_equal "pool_access_key", clouds[:orange].access_key
+      assert_equal "cloud_access_key", clouds[:orange].secret_access_key
+    end
+  end
+end

data/test/poolparty/poolparty/neighborhood_test.rb

@@ -15,7 +15,7 @@ class TestNeighborhoods < Test::Unit::TestCase
     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
+    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

data/test/poolparty/poolparty/plugin_test.rb

@@ -0,0 +1,19 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+module PoolParty
+  module Plugin
+    class Box < Plugin
+    end
+  end
+end
+
+class TestPlugins < Test::Unit::TestCase
+  context "services" do
+    
+    should " have array of availble plugins" do
+      assert Plugin.available.include?(PoolParty::Plugin::Box)
+      assert Plugin.available.include?(PoolParty::Plugin::Git)
+    end
+    
+  end
+end

data/test/poolparty/poolparty/pool_test.rb

@@ -0,0 +1,22 @@
+require "#{File.dirname(__FILE__)}/../../test_helper"
+
+class PoolTest < Test::Unit::TestCase
+  context "load_from_file" do
+    setup do
+      reset!
+      PoolParty::Pool::Pool.load_from_file "#{::File.dirname(__FILE__)}/../../fixtures/fake_clouds.rb"
+    end
+    
+    should "should load all the pools" do
+      assert_not_nil pools[:boxed]
+      assert_not_nil clouds[:app]
+    end
+    
+    should "load the files" do
+      assert_equal 2, clouds[:app].files.size
+      assert_equal "/etc/junk", clouds[:app].files[0].name
+      assert_equal "/etc/junkie", clouds[:app].files[1].name
+    end
+  end
+  
+end

data/test/poolparty/poolparty/poolparty_base_class_test.rb

@@ -5,41 +5,41 @@ end
 
 class TestBaseClassTest < Test::Unit::TestCase
   context "services" do
-    before(:each) do
+    setup do
       reset!
       @tbc = TestBaseClass.new do
-        has_git_repos :name => "test git", :at => "/var/www/google", :source => "git://pop.git"
+        has_git_repo :name => "git://pop.git", :to => "/var/www/google"
       end
     end
-    it "should add a service when a service is called" do
-      @tbc.services.size.should == 1
+    should "should add a service when a service is called" do
+      @tbc.ordered_resources.size.should > 0
     end
   end
   context "context_stack" do
-    before(:each) do
+    setup do
       ::PoolParty.reset!
       @a = TestBaseClass.new
     end
-    it "should have a context stack that is empty" do
+    should "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
+    should "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
+    should "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
+    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
-      before(:each) do
+      setup do
         reset!
         Proc.new do 
           @a = $a =TestBaseClass.new do
@@ -50,22 +50,22 @@ class TestBaseClassTest < Test::Unit::TestCase
           end
         end.call
       end
-      it "should set the correct depth" do
+      should "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
+      should "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
+      should "should have proper self" do
         @a.this.should == $a.this
       end
     end
   end
-  it "should have the parent set properly" do
+  should "should have the parent set properly" do
     @a = TestBaseClass.new do
       @@b = TestBaseClass.new do
         @@c = TestBaseClass.new do
@@ -81,4 +81,42 @@ class TestBaseClassTest < Test::Unit::TestCase
     @@c.parent.should == @@b
     @@b.parent.should == @a
   end
-end
+end
+
+class TestLookupMethod < Test::Unit::TestCase
+  context "look up methods" do
+    setup do
+      reset!
+      @tbc = TestBaseClass.new do
+        has_file "/var/note.txt"
+        has_directory "/var"
+        has_package :name => "apache2"
+        has_git_repo "git://git.git", :repos => "git://git.git", :to => "/var/www"
+      end
+    end
+    should "have the method gems" do
+      assert @tbc.respond_to?(:files)
+    end
+    should "have 1 file" do
+      assert_equal @tbc.files.size, 1
+    end
+    should "have the file name in the files lookup method" do
+      assert_equal @tbc.files.first.name, "/var/note.txt"
+    end
+    should "have the lookup method packages" do
+      assert @tbc.respond_to?(:packages)
+      assert_equal @tbc.packages.size, 1
+      assert_equal @tbc.packages.first.name, "apache2"
+    end
+    should "have lookup method directorys" do
+      assert @tbc.respond_to?(:directorys)
+      assert_equal @tbc.directorys.size, 1
+      assert_equal @tbc.directorys.first.name, "/var"
+    end
+    should "have plugin lookup methods" do
+      assert @tbc.respond_to?(:git_repos)
+      assert_equal @tbc.git_repos.size, 1
+      assert_equal @tbc.git_repos.first.name, "git://git.git"
+    end
+  end  
+end

data/test/poolparty/poolparty/schema_test.rb

@@ -0,0 +1,13 @@
+require "#{::File.dirname(__FILE__)}/../../test_helper"
+
+class TestSchema < Test::Unit::TestCase
+    should "should be able to load from json string" do
+      schema = PoolParty::Schema.new(open(::File.dirname(__FILE__)+'/../../fixtures/metavirt_cloud.json').read)
+      assert 'metavirt', schema['name']
+      assert 'PoolParty::Remote::Metavirt', schema.options.remote_base      
+    end
+    should "dump to_json" do
+      #TODO
+    end
+
+end

data/test/poolparty/poolparty/template_test.rb

@@ -2,18 +2,18 @@ require "#{::File.dirname(__FILE__)}/../../test_helper"
 
 class TestDrConfigure < Test::Unit::TestCase
   context "Rendering of a string" do
-    before do
+    setup do
       @template_string = "Hello <%= name %>"
     end
-    it "should have a method called compile_string on the class" do assert Template.respond_to?(:compile_string);end
-    it "should return rendered content" do assert Template.compile_string(@template_string, {:name => "bob"}), "Hello bob" 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
-    before do
+    setup do
       @template_file = ::File.dirname(__FILE__) + "/../../fixtures/test_template.erb"
     end
-    it "should have a method called compile_file on the class" do assert Template.respond_to?(:compile_file);end
-    it "should return rendered content" do assert Template.compile_file(@template_file, {:friends => "bob"}), "Hello bob" 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

data/test/poolparty/verification/verify_test.rb

@@ -2,7 +2,7 @@ require "#{::File.dirname(__FILE__)}/../../test_helper"
 
 module PoolParty
   module Verifiers
-    class Ping < VerifierBase
+    class Ding < VerifierBase
       attr_accessor :port, :checked
       def initialize(port=80)
         @port = port
@@ -29,12 +29,16 @@ class TestVerification < Test::Unit::TestCase
     setup do
       @vc = TestVerificationClass.new do
         verify do
-          ping 80
+          ding 830
         end
       end
     end
+    should "have available_verifiers" do
+      Verifiers.available.grep /Ding/
+    end
+    
     should "have a the ping verifier as a verifiers in the class" do
-      @vc.verifiers.first.class.should == PoolParty::Verifiers::Ping
+      @vc.verifiers.first.class.should == PoolParty::Verifiers::Ding
     end
     should "not explode when calling verify on the verifier" do
       @vc.verifiers.first.checked = true

data/test/test_helper.rb

@@ -1,8 +1,19 @@
+$:.unshift(::File.dirname(__FILE__))
 require "rubygems"
 require "test/unit"
-require "context"
+# require "context"
 require "matchy"
-# require "shoulda"
-# require "mocha"
+require "shoulda"
+require "mocha"
 
-require File.dirname(__FILE__) + '/../lib/poolparty'
+require "test_methods"
+
+require File.dirname(__FILE__) + '/../lib/poolparty'
+require 'git-style-binary/command'
+
+GitStyleBinary.run = true
+
+modify_env_with_hash(
+  "AWS_ACCESS_KEY" => "fake_aws_access_key", 
+  "AWS_SECRET_ACCESS_KEY" => "fake_secret_aws_key"
+  )

data/test/test_methods.rb

@@ -0,0 +1,11 @@
+def modify_env_with_hash(h={})
+  orig_env = Kernel.const_get(:ENV)
+  
+  h.each do |k,v|
+    orig_env.delete(k)
+    orig_env[k] = v
+  end
+  
+  Kernel.send :remove_const, :ENV if Kernel.const_defined?(:ENV)
+  Kernel.const_set(:ENV, orig_env)
+end

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

@@ -47,7 +47,7 @@ end
 ###
 
 # General settings
-apache[:listen_ports] = [ "8080" ]     unless apache.has_key?(:listen_ports)
+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)

data/vendor/gems/dslify/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Ari Lerner
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/vendor/gems/dslify/README.rdoc

@@ -0,0 +1,33 @@
+= dslify
+
+Dslify, born out of a need for improvement on Dslify
+
+Add dsl accessors to any class.
+
+Usage:
+  class MyClass
+    include Dslify
+    
+    dsl_methods :award, :people
+  end
+  
+  mc = MyClass.new
+  mc.award "Tony Award"
+  mc.people ["Bob", "Frank", "Ben"]
+  
+You can set defaults as well:
+  class MyClass
+    default_options :award => "Tony Award"
+  end
+
+Finally, if your tree of available accessors runs higher and longer than
+just 1 file, for instance, if you use Parenting, you can set forwarders to 
+forward the query up the chain
+
+class MyClass
+  forwards_to :parent
+end
+
+== Copyright
+
+Copyright (c) 2009 Ari Lerner. See LICENSE for details.

data/vendor/gems/dslify/Rakefile

@@ -0,0 +1,56 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "dslify"
+    gem.summary = %Q{TODO}
+    gem.email = "arilerner@mac.com"
+    gem.homepage = "http://github.com/auser/dslify"
+    gem.authors = ["Ari Lerner"]
+
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = false
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/*_test.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION.yml')
+    config = YAML.load(File.read('VERSION.yml'))
+    version = "#{config[:major]}.#{config[:minor]}.#{config[:patch]}"
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "dslify #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+

data/vendor/gems/dslify/VERSION.yml

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

data/vendor/gems/dslify/dslify.gemspec

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

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

@@ -0,0 +1,81 @@
+module Dslify
+  def self.included(base)
+    base.send     :include, InstanceMethods
+    base.extend(ClassMethods)
+  end
+  
+  module ClassMethods    
+    def default_options(hsh={})
+      (@_dsl_options ||= {}).merge! hsh
+      set_default_options(@_dsl_options)
+    end
+    
+    def dsl_options
+      @_dsl_options ||= {}
+    end
+    def options
+      dsl_options
+    end
+    
+    def dsl_methods(*syms)
+      syms.each {|sym| set_default_options({sym => nil}) }
+    end
+    
+    def set_default_options(new_options)
+      new_options.each do |k,v|
+        dsl_options[k] = v
+        class_eval define_dsl_method_str(k)
+      end
+    end
+    
+    def define_dsl_method_str(k)
+      <<-EOE
+        def #{k}(n=nil)
+          if n.nil?
+            fetch(:#{k})
+          else
+            self.#{k}=n
+          end          
+        end
+        def #{k}=(n)
+          dsl_options[:#{k}] = n
+        end
+        def fetch(k)
+          dsl_options[k]                    
+        end
+      EOE
+    end
+    
+    def inherited(subclass)
+      subclass.set_default_options(dsl_options)
+    end
+  end
+  module InstanceMethods
+    def dsl_options
+      @dsl_options ||= self.class.dsl_options.clone
+    end
+    def default_options
+      Hash[*dsl_options.select{|k,v| self.class.default_options.has_key?(k) }.inject([]){|res,(k,v)| res << k << v }]
+    end
+    def set_vars_from_options(hsh={})
+      hsh.each do |k,v| 
+        instance_eval self.class.define_dsl_method_str(k) unless self.respond_to?(k)
+        self.send k, v
+      end
+    end
+    
+    def set_default_options(hsh={})
+      self.class.set_default_options(hsh)
+    end
+    
+    def method_missing(m,*a,&block)
+      if m.to_s[-1..-1] == '?'
+        t = m.to_s.gsub(/\?/, '').to_sym
+        warn "DEPRECATED: Dslify will no longer support ? methods. Fix yo code.: #{m}"
+        respond_to?(t) && !self.send(t, *a, &block).nil?
+      else
+        super
+      end
+    end
+  end
+end