fairchild-poolparty 1.1.3

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/spec/bin/bin_spec_helper.rb

@@ -0,0 +1,7 @@
+require "spec"
+
+$:.unshift(File.dirname(__FILE__) + '/../../lib')
+
+require "#{::File.dirname(__FILE__)}/../../vendor/gems/dslify/lib/dslify"
+require "poolparty/poolparty/default"
+require "poolparty/schema"

data/spec/bin/fixtures/bin_cloud_for_test.rb

@@ -0,0 +1,19 @@
+cloud :binary_testing_cloud 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_package :name => "bash"        
+  # parent == cloud
+  apache do
+    # parent == apache
+    listen "8080"
+    has_file :name => "/etc/apache2/apache2.conf"
+  end
+  
+  case_of "hostname" do
+    when_is 'master' do            
+      has_package :name=>'haproxy'
+    end
+  end
+end

data/spec/bin/server-list-active_spec.rb

@@ -0,0 +1,22 @@
+require File.dirname(__FILE__) + '/bin_spec_helper'
+require "poolparty"
+
+class PuppetResolverSpec
+  plugin :apache do
+  end
+end
+
+describe "Server list active binary" do
+  describe "with real cloud" do
+    before(:each) do
+      @p = PoolParty::Pool::Pool.load_from_file "#{::File.dirname(__FILE__)}/fixtures/bin_cloud_for_test.rb"
+      @pool_hash = @p.to_properties_hash
+    end
+    it "should have the name on the schema" do
+      @pool_hash.options.name.should == :binary_testing_cloud
+    end
+    it "should have the remoter base available" do
+      @pool_hash.options.remote_base.nil?.should == false  
+    end
+  end
+end

data/spec/poolparty/aska/aska_spec.rb

@@ -0,0 +1,117 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+class Car
+  include Aska
+  rules :names, [
+      "x > 0",
+      "y > 0",
+      "x > y"
+    ]
+end
+describe "Rules" do
+  before(:each) do
+    @car = Car.new
+  end
+  describe "malformed rules" do
+    [
+      "k > 10",
+      "x == 2",
+      "x >= 2",
+      "x <= 4",
+      "y < 10"
+    ].each do |str|
+      eval <<-EOE
+        it "should have the rule #{str} be valid" do
+          (str =~ /(.+)[=\\\<\>](.*)/).nil?.should == false
+        end
+      EOE
+    end
+    [
+      "k running 10",
+      "10 is larger than 2"
+    ].each do |str|
+      eval <<-EOE
+        it "should have the rule #{str} not be valid" do
+          (str =~ /(.+)[=\\\<\>](.*)/).nil?.should == true
+        end
+      EOE
+    end
+  end
+  it "should be able to define rules as an array and they should be set as the rules on the class" do
+    @car.rules.class.should == Hash
+  end
+  it "should be able to look up the rules based on the name into an array" do
+    @car.names.class.should == Aska::Rules
+  end
+  it "should be able to turn them into a string" do
+    @car.names.to_s.should == "'x > 0', 'y > 0', 'x > y'"
+  end
+  it "should be able to say that rules are defined when they are defined" do
+    @car.names.should_not == nil
+  end
+  it "should be able to say that rules are not defined when they are not defined" do
+    @car.look_up_rules(:cars_and_wheels).empty?.should == true
+  end
+  it "should be able to say if the rules are not rules" do
+    @car.are_rules?(:cars_and_wheels).should == false
+  end
+  it "should be able to say that rules are rules" do
+    @car.are_rules?(:names).should == true
+  end
+  describe "parsing" do
+    it "should be able to parse the x > 0 into an array" do
+      @car.names.include?({"x"=>[">","0"]}).should == true
+    end
+    it "should be able to parse y > 0 into an array" do
+      @car.names.include?({"y"=>[">","0"]}).should == true
+    end
+    it "should be able to parse x > y into the hash" do
+      @car.names.include?({"x"=>[">","y"]}).should == true
+    end
+    it "should have 3 rules" do
+      @car.names.size.should == 3
+    end
+    it "should be able to look up the names as a rule" do
+      Car.look_up_rules(:names).should == [{"x"=>[">", "0"]}, {"y"=>[">", "0"]}, {"x"=>[">", "y"]}]
+    end
+  end
+  # it "should use x if available instead of x_aska" do
+  #   @car.x = 6
+  #   @car.get_var(:x).class.should == @car.x_aska.class
+  # end
+  # it "should be able to get the variable associated with the instance and return it" do    
+  #   @car.x_aska = 4
+  #   @car.get_var(:x).class.should == @car.x_aska.class
+  # end
+  it "should be able to get a number with the instance and return it as a float" do
+    @car.__aska_get_var(4).class.should == Float
+  end
+  it "should be able to get the method it's applying as a method symbol" do
+    @car.__aska_get_var(:<).class.should == Symbol
+  end
+  it "should be able to get the method as a symbol" do
+    @car.__aska_get_var("<").class.should == Symbol
+  end
+  it "should be able to retrieve the value of the rule when checking if it's valid" do
+    @car.x = 10
+    @car.valid_rule?({:x => [:==, 10]}).should == true
+  end
+  it "should be able to apply the rules and say that they are not met when they aren't" do
+    @car.valid_rules?(:names).should == false
+  end
+  it "should be able to apply the rules and say they aren't valid when they aren't all met" do
+    @car.x = 5
+    @car.y = 10
+    @car.valid_rules?(:names).should == true
+  end
+  it "should be able to apply the rules and say they aren't valid when they aren't all met" do
+    @car.x = 5
+    @car.y = 0
+    @car.valid_rules?(:names).should == false
+  end
+  it "should be able to apply the rules and say that they are in fact valid" do
+    @car.x = 10
+    @car.y = 5    
+    @car.valid_rules?(:names).should == true
+  end
+end

data/spec/poolparty/base_packages/haproxy_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "haproxy base package" do
+  it "should have the haproxy package defined" do
+    lambda {PoolpartyBaseHaproxyClass}.should_not raise_error
+  end
+end

data/spec/poolparty/base_packages/heartbeat_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "heartbeat base package" do
+  it "should have the heartbeat package defined" do
+    lambda {PoolpartyBaseHeartbeatClass}.should_not raise_error
+  end
+end

data/spec/poolparty/bin/console_spec.rb

@@ -0,0 +1,83 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+require File.dirname(__FILE__) + '/../../../lib/poolparty/helpers/console'
+require File.dirname(__FILE__) + '/../../../lib/poolparty/helpers/binary'
+
+reset!
+
+describe "Console" do
+  before(:each) do
+    ::File.stub!(:readable?).and_return true
+    Dir.stub!(:pwd).and_return "/flop"
+    Dir.stub!(:[]).and_return []
+    Dir.stub!(:[]).with("/flop/*/*.rb").and_return ["clouds.rb"]    
+  end
+  describe "load_pool" do
+    before(:each) do
+      reset!
+      @string =<<-EOS
+      pool :app do
+        maximum_instances 2
+        cloud :rawr do
+          maximum_instances 200
+        end
+      end
+      EOS
+      self.stub!(:open).and_return @string
+      @string.stub!(:read).and_return @string
+      ::File.stub!(:readable?).with(@string).and_return true
+    end
+    it "should give you the load_pool method" do
+      self.respond_to?(:load_pool).should == true
+    end
+    it "should call script inflate on the filename" do      
+      PoolParty::Pool::Pool.should_receive(:load_from_file).and_return "wee"
+      load_pool("pop")
+    end
+  end  
+  describe "reload!" do
+    before(:each) do
+      reset!
+      self.stub!(:require).and_return true
+    end
+    it "should call reset!" do
+      self.should_receive(:reset!).once
+    end
+    after do
+      reload!
+    end
+  end
+  describe "pools" do
+    before(:each) do
+      @filename = "myspec.spec"
+      ::File.stub!(:readable?).with(@filename).and_return true
+      @filename.stub!(:read).and_return "spec contents"
+      self.stub!(:open).with(@filename).and_return @filename
+      Binary.stub!(:get_existing_spec_location).and_return @filename
+    end
+    it "should call readable on the string sent in to load_pool" do      
+      lambda {
+        ::File.should_receive(:readable?).with(@filename).and_return false
+        load_pool(@filename)
+      }
+    end
+    it "should call inflate from Script with the poolspec" do
+      PoolParty::Pool::Pool.should_receive(:load_from_file).with("myspec.spec").and_return true
+      load_pool(@filename)
+    end
+  end
+  describe "print" do
+    before(:each) do
+      reset!
+      @string =<<-EOS
+      pool :app do
+        maximum_instances 2
+        cloud :rawr do          
+        end
+      end
+      EOS
+      self.stub!(:open).and_return @string
+      @string.stub!(:read).and_return @string
+      PoolParty::Pool::Pool.new(:dummy).instance_eval @string
+    end
+    end
+end

data/spec/poolparty/core/array_spec.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Array" do
+  before(:each) do
+    @array = ["run this", "run that"]
+  end
+  describe "runnable" do
+    it "should be able to produced a runnable string" do;@array.runnable.should == 'run this  &&  run that';end
+    it "should be turn into a string" do;@array.runnable.class.should == String;end
+  end
+  describe "nice_runnable" do
+    before(:each) do
+      @array << ""
+      @array << "peabody"      
+    end
+    it "should reject any empty elements out of the array" do
+      (@array << [""]).nice_runnable.should == "run this \n run that \n peabody"
+    end
+  end
+  describe "to_os" do
+    it "should be able to turn itself to an open struct" do; @array.first.should_receive(:to_os);end        
+    after do
+      @array.to_os
+    end
+  end
+  require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+  describe "select_with_hash" do
+    before(:all) do
+      @remote_instances_list =[
+        {:status=>'running', :ip=>'10'}, 
+        {:status => 'pending', :ip=>'not.assigned'}, 
+        {:status=>'running', :ip=>'192', :bogus=>nil} 
+      ]
+    end
+    it "should return the selected array" do
+        @remote_instances_list.select_with_hash( {:status => 'running'}).size.should == 2
+        @remote_instances_list.select_with_hash( {:ip => 'not.assigned'}).should == [{:status => 'pending', :ip=>'not.assigned'},]
+        @remote_instances_list.select_with_hash( {:bogus => nil}).size.should == 1
+        @remote_instances_list.select_with_hash().size.should == 0
+    end
+    it "should not raise an error if element does not have key" do
+      @remote_instances_list.select_with_hash( {:snot => 'runny'}).size.should == 0
+    end
+  end
+end

data/spec/poolparty/core/float.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Float" do
+  it "should be able to round to the nearest integer" do
+    10.95.round_to(1).should == 11
+  end
+  it "should be able to get the ceiling" do
+    10.54.ceil_to(1).should == 10.6
+  end
+  it "should be able to get the floor" do
+    10.14.floor_to(1).should == 10.1
+  end
+end

data/spec/poolparty/core/hash_spec.rb

@@ -0,0 +1,83 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Hash" do
+  before(:each) do
+    @a = {:a => "10", :b => "20", :c => "30"}
+  end
+  it "should preserve the contents of the original hash when safe_merge'ing" do
+    a = {:a => "10", :b => "20"}
+    b = {:b => "30", :c => "40"}
+    a.safe_merge(b).should == {:a => "10", :b => "20", :c => "40"}
+  end
+  it "should preserve the contents of the original hash when safe_merge!'ing" do
+    a = {:a => "10", :b => "20"}
+    b = {:b => "30", :c => "40"}
+    a.safe_merge!(b)
+    a.should == {:a => "10", :b => "20", :c => "40"}
+  end
+  it "should be able to turn itself into an open struct" do
+    @a.to_os.class.should == MyOpenStruct
+  end
+  it "should respond to to_hash" do
+    @a.to_os.respond_to?(:to_hash).should == true
+  end
+  it "should be able to turn itself into an open struct with the method to_hash on the object" do
+    @a.to_os.to_hash.should == @a
+  end
+  describe "method_missing" do
+    it "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 return nil if there is no key set in the hash" do
+      lambda {{:first_name => "bob", :last_name => "frank"}.neighbor}.should raise_error
+    end
+  end
+  describe "choose" do
+    before(:each) do
+      @selected_hash = @a.choose {|k,v| k if k == :a}
+    end
+    it "should return a hash when choosing" do
+      @selected_hash.class.should == Hash
+    end
+    it "should only have the key a (choos)" do
+      @selected_hash.keys.should == [:a]
+    end
+  end
+  #TODO: deprecate
+  # describe "extract!" do
+  #   before(:each) do
+  #     @rejected_hash = @a.extract! {|k,v| k == :a }
+  #   end
+  #   it "should have a reject with the keys" do
+  #     @rejected_hash.keys.should == [:a]
+  #   end
+  #   it "should return the old array with the other keys" do
+  #     @a.keys.sort.should == [:b, :c]
+  #   end
+  #   it "should not throw a fit with an empty hash" do
+  # {}.extract!
+  #       lambda {
+  #       {}.extract!
+  #     }.should_not raise_error
+  #   end
+  # end
+ 
+  describe "append" do
+    before(:each) do
+      @hash = {:game => "token", :required => "for_play"}
+    end
+    it "should not destroy an option salready on the hash" do
+      @hash.append(:required => "to_play")[:game].should == "token"
+    end
+    it "should change the entry to an array if it already exists" do
+      @hash.append(:game => "coin")[:game].class.should == Array
+    end
+    it "should append the other hash's key to the end of the array" do
+      @hash.append(:game => "coin")[:game][-1].should == "coin"
+    end
+    it "should change the hash with the append(bang) option" do
+      @hash.append!(:game => "coin")
+      @hash[:game][-1].should == "coin"
+    end
+  end
+end

data/spec/poolparty/core/kernel_spec.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Kernel extensions" do
+  before(:each) do
+    @obj = Object.new
+  end
+  it "should eval the string into time" do
+    @obj.should_receive(:sleep).once.with(10.seconds).and_return true
+    @obj.wait "10.seconds"
+  end
+end
+describe "Object extensions" do
+  before(:each) do
+    @klass = Object.new
+    @klass.instance_eval <<-EOE
+      def hello
+        puts "hello"
+      end
+    EOE
+  end
+  it "should be able to get a list of the defined methods on the object" do
+    @klass.my_methods.should == ["hello"]
+  end
+end

data/spec/poolparty/core/module_spec.rb

@@ -0,0 +1,15 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Module" do
+  before(:each) do
+    @mod = Module.new do
+      attr_accessor_with_default :a do
+        Hash.new
+      end
+    end
+    @klass = Class.new.extend(@mod)
+  end
+  it "should be able to set method accessors" do
+    @klass.a.should == {}
+  end
+end

data/spec/poolparty/core/object_spec.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Object" do
+  it "should respond to to_os" do
+    Object.new.respond_to?(:to_os).should == true
+  end
+  describe "methodable object" do
+    before(:each) do
+      @obj.stub!(:run).and_return "true"
+    end
+    it "should run the method :run because it exists" do
+      @obj.send_if_method(:run).should == "true"
+    end
+    it "should not run the method :bah because it doesn't exist" do
+      @obj.send_if_method("bah").should == "bah"
+    end
+    it "should not run the method if it is sent nil" do
+      @obj.send_if_method(nil).should == nil
+    end
+    it "should not run an empty string method" do
+      @obj.send_if_method("").should == ""
+    end
+    it "should not run a method that is an integer" do
+      @obj.send_if_method(2).should == 2
+    end
+  end
+  describe "with_options" do
+    before(:each) do
+      @obj = Class.new
+    end
+    it "should respond to with_options" do
+      @obj.respond_to?(:with_options).should == true
+    end
+    it "should set the options on the parent" do
+      allow_message_expectations_on_nil
+      @a.should_receive(:clone).and_return @a
+      @a.stub!(:options).and_return({})
+      with_options({:nick => "name"}, @a) do
+      end
+    end
+    
+    describe "running" do
+      before(:each) do
+        Class.stub!(:default_options).and_return({})
+        Class.send :include, Dslify
+        @a = Class.new        
+        @b = Class.new
+        
+        with_options({:nick => "name", :b => @b}, @a) do
+          b.dude "totally"
+        end
+        
+      end
+      it "should set the options on the child in the instance eval" do
+        @b.dude.should == "totally"
+      end
+    end
+    describe "contextual running" do
+      before(:each) do
+        @obj.stub!(:default_options).and_return {}
+        @a = @obj.instance_eval { @a = "hello world" }
+      end
+      it "should have the method meta_eval" do
+        @obj.respond_to?(:meta_eval).should == true
+      end
+    end
+  end
+end

data/spec/poolparty/core/ordered_hash_spec.rb

@@ -0,0 +1,48 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "Ordered Hash" do
+  before(:each) do
+    @oh = OrderedHash.new
+    @oh["var1"] = 10
+    @oh["var2"] = 2
+    @oh[:var3] = 3
+    @oh["var4"] = 4
+  end
+  it "should stay in order in enumeration (keys)" do
+    @oh.collect {|k,v| k }.should == ["var1", "var2", :var3, "var4"]
+  end
+  it "should stay in order in enumeration (values)" do
+    @oh.collect {|k,v| v }.should == [10,2,3,4]
+  end
+  it "should be able to be pulled out with the hash convention" do
+    @oh['var1'].should == 10
+    @oh['var2'].should == 2
+    @oh[:var3].should == 3
+    @oh["var4"].should == 4
+  end
+  it "should retain order in a merge" do
+    @oh.merge!(:var5 => 5)
+    @oh.collect {|k,v| v }.should == [10,2,3,4,5]
+  end
+  it "should retain order in a non-descructive merge" do
+    @oh = @oh.merge(:var5 => 5)
+    @oh.collect {|k,v| v }.should == [10,2,3,4,5]
+  end
+  it "should keep the keys in order too!" do
+    @oh.keys.should == ["var1", "var2", :var3, "var4"]
+  end
+  it "should have values method" do
+    @oh.values.should === [10,2,3,4]
+  end
+  it "should to_json" do
+    @oh[:arr] = [1,2,3]
+    @oh.to_json.should == "{\"var1\":10,\"var2\":2,\"var3\":3,\"var4\":4,\"arr\":[1,2,3]}"
+  end
+  it "PoolParty Key" do
+      @oh[:keyy] = [Key.new, Key.new('path/to/nowhere')]
+      expected=<<JSO
+ {\"var1\":10,\"var2\":2,\"var3\":3,\"var4\":4,\"keyy\":[{\"basename\":\"id_rsa\",\n       \"full_filepath\": \"/etc/poolparty/id_rsa\"},{\"basename\":\"path/to/nowhere\",\n       \"full_filepath\": \"/etc/poolparty/path/to/nowhere\"}]}
+JSO
+      @oh.to_json.should == expected.strip
+  end
+end