poolparty 0.2.69 → 0.2.84

data/spec/poolparty/provisioners/provisioner_base_spec.rb

@@ -0,0 +1,120 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+include Provisioner
+
+describe "ProvisionerBase" do
+  before(:each) do    
+    @cloud = cloud :app do;end
+    @remote_instance = PoolParty::Remote::RemoteInstance.new({:ip => "192.168.0.1", :status => "running", :name => "master"}, @cloud)
+    @pb = PoolParty::Provisioner::ProvisionerBase.new(@remote_instance, @cloud)
+    stub_list_from_remote_for(@cloud)
+    stub_remoting_methods_for(@cloud)
+  end
+  describe "class methods" do
+    it "should have install" do
+      ProvisionerBase.respond_to?(:install).should == true
+    end
+    it "should have configure" do
+      ProvisionerBase.respond_to?(:configure).should == true
+    end
+    describe "in action" do
+      it "should call a new ProvisionerBase" do
+        ProvisionerBase.should_receive(:new).with(@remote_instance, @cloud).and_return @pb
+        ProvisionerBase.install(@remote_instance, @cloud)
+      end
+    end
+  end
+  describe "instance methods" do
+    before(:each) do
+      @pb = PoolParty::Provisioner::ProvisionerBase.new(@remote_instance, @cloud)
+      stub_list_from_remote_for(@pb)
+      stub_list_from_remote_for(@cloud)
+      stub_remoting_methods_for(@pb)
+    end
+    it "should store the instance on the ProvisionerBase" do
+      @pb.instance.should == @remote_instance
+    end
+    it "should store the cloud on the ProvisionerBase" do
+      @pb.cloud.should == @cloud
+    end
+    it "should say provision_master? is true if the remote instance name is master" do
+      @pb.provision_master?.should == true
+    end
+    it "should say the provision_master? is false if the remote instance is not the master" do
+      @remote_instance.stub!(:master?).and_return false
+      @pb.provision_master?.should == false
+    end
+    it "should say the provision_master? is false if the remote instance is nil" do
+      PoolParty::Provisioner::ProvisionerBase.new(nil, @cloud).provision_master?.should == false
+    end
+    describe "custom tasks" do
+      it "should call custom_configure_tasks_for on the cloud with the instance" do
+        @cloud.should_receive(:custom_configure_tasks_for).with(@remote_instance).and_return []
+        @pb.custom_configure_tasks
+      end
+      it "should call custom_install_tasks_for on the cloud with the instance" do
+        @cloud.should_receive(:custom_install_tasks_for).with(@remote_instance).and_return []
+        @pb.custom_install_tasks
+      end
+    end
+    describe "installation" do
+      it "should have an install method" do
+        @pb.respond_to?(:install).should == true
+      end
+      it "should call error if it is not valid" do
+        @pb.stub!(:valid?).and_return false
+        lambda {@pb.install}.should raise_error
+      end
+      it "should not raise an exception if it is valid" do
+        @pb.stub!(:valid?).and_return true
+        lambda {@pb.install(true)}.should_not raise_error
+      end
+      it "should call before_install with the instance" do
+        @pb.should_receive(:before_install).with(@remote_instance).and_return true
+        @pb.install
+      end
+      it "should call setup_runner" do
+        @pb.should_receive(:setup_runner).and_return true
+        @pb.install
+      end
+      it "should call process_install! with the testing" do
+        @pb.should_receive(:process_install!).with(false).and_return true
+        @pb.install
+      end
+      it "should call after_install with the instance" do
+        @pb.should_receive(:after_install).with(@remote_instance).and_return true
+        @pb.install
+      end
+    end
+    describe "configuration" do
+      it "should have a configure method" do
+        @pb.respond_to?(:configure).should == true
+      end
+      it "should call error if it is not valid" do
+        @pb.stub!(:valid?).and_return false
+        lambda {@pb.configure}.should raise_error
+      end
+      it "should not raise an exception if it is valid" do
+        @pb.stub!(:valid?).and_return true
+        lambda {@pb.configure(true)}.should_not raise_error
+      end
+      it "should call before_configure with the instance" do
+        @pb.should_receive(:before_configure).with(@remote_instance).and_return true
+        @pb.configure
+      end
+      it "should call setup_runner" do
+        @pb.should_receive(:setup_runner).and_return true
+        @pb.configure
+      end
+      it "should call process_configure! with the testing" do
+        @pb.should_receive(:process_configure!).with(false).and_return true
+        @pb.configure
+      end
+      it "should call after_configure with the instance" do
+        @pb.should_receive(:after_configure).with(@remote_instance).and_return true
+        @pb.configure
+      end
+      
+    end
+  end
+end

data/spec/poolparty/spec/core/string_spec.rb

@@ -0,0 +1,57 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+require File.dirname(__FILE__) + '/../../../../lib/poolparty/spec/core/string'
+
+describe "Spec strings" do
+  before(:each) do
+    @str=<<-EOE
+exec { 		"install_passenger_script":
+				unless => 'test -f /etc/apache2/conf.d/passenger.conf',
+				path => '/usr/bin:/bin:/usr/local/bin:$PATH',
+				command => '/usr/bin/ruby /var/poolparty/install_passenger.rb'
+		}
+		service { 		"apache2":
+    				require => Package['apache2'],
+    				name => 'apache2',
+    				ensure => 'running'
+    		}
+    
+exec { 		"force-reload-apache2":
+				path => '/usr/bin:/bin:/usr/local/bin:$PATH',				
+				command => '/etc/init.d/apache2 force-reload',
+				refreshonly => 'true'
+		}    
+    EOE
+  end
+  it "should have the method grab_entry_for" do
+    "hi".respond_to?(:grab_entry_for).should == true
+  end
+  describe "grab_entry_for" do
+    it "should be able to grab the entry for the apache2 service" do
+      @str.grab_entry_for(:service, "apache2").gsub(/[\n\t ]+/, '').should == "service{\"apache2\":require=>Package['apache2'],name=>'apache2',ensure=>'running'}"
+    end
+    it "should be able to grab the entry for the install_passenger_script exec" do
+      @str.grab_entry_for(:exec, "install_passenger_script").gsub(/[\n\t ]+/, '').should == "exec{\"install_passenger_script\":unless=>'test-f/etc/apache2/conf.d/passenger.conf',path=>'/usr/bin:/bin:/usr/local/bin:$PATH',command=>'/usr/bin/ruby/var/poolparty/install_passenger.rb'}"
+    end
+    it "should return an empty string if there is no entry" do
+      @str.grab_entry_for(:pocket, "rangers").should == ""
+    end
+  end
+  describe "grab_key_value_for" do
+    it "should be able to say the service apache2 is set to ensure running" do
+      @str.grab_key_value_for(:service, "apache2", :ensure).should == "'running'"
+    end
+    it "should be able to say the exec force-reload-apache2 has the command '/etc/init.d/apache2 force-reload'" do
+      @str.grab_key_value_for(:exec, "force-reload-apache2", :command).should == "'/etc/init.d/apache2 force-reload'"
+    end
+    it "should be able to grab them with strings with quotes" do
+      "exec { 		\"a2enmod ssl\":
+      				command => 'a2enmod ssl',
+      				require => [ Package['apache2-common'], Package['openssl'] ],
+      				path => '/usr/bin:/bin:/usr/local/bin:$PATH',
+      				unless => '/usr/bin/test -L /etc/apache2/mods-enabled/ssl.load',
+      				notify => Exec['restart-apache2']
+      		}
+      ".grab_key_value_for(:exec, "a2enmod ssl", :notify).should == "Exec['restart-apache2']"
+    end
+  end
+end

data/spec/poolparty/spec_helper.rb

@@ -16,6 +16,24 @@ ENV["POOL_SPEC"] = nil
 include PoolParty
 extend PoolParty
 
+def are_too_many_instances_running?  
+end
+def are_any_nodes_exceeding_minimum_runtime?  
+end
+def are_too_few_instances_running?
+end
+
+class TestClass < PoolParty::Cloud::Cloud
+  include CloudResourcer
+  attr_accessor :parent
+  def initialize(&block)
+    super :test_cloud, nil, &block
+  end
+  def keypair
+    "fake_keypair"
+  end
+end
+
 def setup
   PoolParty::Messenger.stub!(:messenger_send!).and_return false
 end
@@ -51,7 +69,16 @@ def read_file(path)
   require "open-uri"
   open(path).read
 end
+def sample_instances_list
+  @sample_instances_lister ||= [
+    {:ip => "127.0.0.1", :name => "master", :launching_time => 2.days.ago}, 
+    {:ip => "127.0.0.2", :name => "node1", :launching_time => 2.days.ago}
+  ]
+end
 
+def sample_instances
+  sample_instances_list.map {|h| PoolParty::Remote::RemoteInstance.new(h) }
+end
 def stub_list_from_local_for(o)
   @list =<<-EOS
   master 192.168.0.1
@@ -61,25 +88,38 @@ def stub_list_from_local_for(o)
   @file.stub!(:read).and_return @list
   o.stub!(:get_working_listing_file).and_return @file
   o.stub!(:open).and_return @file
-  
+
   @ris = @list.split(/\n/).map {|line| PoolParty::Remote::RemoteInstance.new(line) }
 end
 def stub_remoter_for(o)
-  o.stub!(:ec2).and_return EC2::Base.new( :access_key_id => "not a key",  :secret_access_key => "even more not a key")  
+  o.stub!(:ec2).and_return EC2::Base.new( :access_key_id => "not a key",  :secret_access_key => "even more not a key")
+  o.stub!(:list_of_running_instances).and_return sample_instances
 end
 def stub_list_from_remote_for(o, launch_stub=true)
   stub_remoter_for(o)
-  @sample_instances_list = [{:ip => "127.0.0.1", :name => "master"}, {:ip => "127.0.0.2", :name => "node1"}]
-  @ris = @sample_instances_list.map {|h| PoolParty::Remote::RemoteInstance.new(h) }  
   o.stub!(:access_key).and_return "NOT A KEY"
   o.stub!(:secret_access_key).and_return "NOT A SECRET"
   # o.stub!(:list_from_remote).and_return ris
   # o.stub!(:remote_instances_list).once.and_return ris
   # o.stub!(:master).and_return @ris[0]
-  o.stub!(:launch_new_instance!).and_return true if launch_stub
+  o.stub!(:launch_new_instance!).and_return sample_instances.first if launch_stub  
   stub_list_of_instances_for(o)
+  stub_remoting_methods_for(o)
+end
+def stub_remoting_methods_for(o)
+  o.stub!(:keypair).and_return "fake_keypair"
+  o.stub!(:keypair_path).and_return "~/.ec2/fake_keypair"
+  o.stub!(:other_clouds).and_return []
+  o.stub!(:expand_when).and_return "cpu > 10"
+  o.stub!(:copy_file_to_storage_directory).and_return true
+  o.stub!(:rsync_storage_files_to).and_return true
+  o.stub!(:minimum_runnable_options).and_return []
+  o.stub!(:build_and_store_new_config_file).and_return true
+  o.stub!(:process_clean_reconfigure_for!).and_return true
+  o.stub!(:before_install).and_return true
+  o.stub!(:process_install).and_return true
+  o.stub!(:after_install).and_return true
 end
-
 def stub_list_of_instances_for(o)  
   # o.stub!(:list_of_running_instances).once.and_return running_remote_instances
   o.stub!(:keypair).and_return "fake_keypair"
@@ -109,7 +149,9 @@ end
 def add_stub_instance_to(o, num, status="running")  
   reset_response!  
   response_list_of_instances << stub_instance(num, status)
+  sample_instances_list << stub_instance(num, status)
   stub_list_of_instances_for o
+  stub_remoter_for(o)
 end
 def ris
   @ris ||= response_list_of_instances.collect {|h| PoolParty::Remote::RemoteInstance.new(h) }

data/tasks/deployment.rake

@@ -10,9 +10,7 @@ end
 # desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
 # task :local_deploy => []
 desc "Deploy the gem locally"
-task :local_deploy => [:website_generate, :install_gem, :build_local_gem] do
-  sh "#{'sudo ' unless Hoe::WINDOZE }gem install pkg/*.gem --no-rdoc --no-ri"
-end
+task :local_deploy => [:website_generate, :build_local_gem, :install_gem_no_doc]
 
 task :check_version do
   unless ENV['VERSION']
@@ -26,7 +24,7 @@ task :check_version do
 end
 
 desc 'Install the package as a gem, without generating documentation(ri/rdoc)'
-task :install_gem_no_doc => [:clean, :package] do
+task :install_gem_no_doc do
   sh "#{'sudo ' unless Hoe::WINDOZE }gem install pkg/*.gem --no-rdoc --no-ri"
 end
 
@@ -36,7 +34,7 @@ str =<<-EOE
 ---
 publish_on_announce: true
 exclude: !ruby/regexp
-  /tmp$|\.git|log$|local/.*\.rb$|Makefile|\.beam$/
+  /tmp$|\.git$|log$|local/.*\.rb$|Makefile|\.beam$/
 EOE
   hoerc_path = ::File.join( ENV["HOME"], ".hoerc" )
   ::File.open(hoerc_path, "w+") {|f| f << str } unless ::File.file?(hoerc_path)

data/tasks/spec.rake

@@ -4,14 +4,13 @@ require 'spec/rake/spectask'
 task :default  => :spec
 
 Spec::Rake::SpecTask.new(:spec) do |t|
-  t.warning = 
-    t.rcov = false
+  t.warning = t.rcov = false
   t.spec_files = Dir["spec/**/*_spec.rb"]
 end
 
 Spec::Rake::SpecTask.new(:spec_v) do |t|
   t.rcov = true
-  t.rcov_opts = ['--exclude', 'gems*,spec*']
+  t.rcov_opts = ['--exclude', 'gems*,spec*,website*,test*']
   t.ruby_opts = []
   t.spec_files = Dir["spec/**/*_spec.rb"]
 end

data/website/index.html

@@ -34,7 +34,7 @@
     <h1>PoolParty</h1>
     <div id="version" class="clickable" onclick='document.location = "http://rubyforge.org/projects/poolparty"; return false'>
       <p>Get Version</p>
-      <a href="http://rubyforge.org/projects/poolparty" class="numbers">0.2.68</a>
+      <a href="http://rubyforge.org/projects/poolparty" class="numbers">0.2.83</a>
     </div>
     <h1>&#8216;Easy cloud computing&#8217;</h1>
 <h2>What</h2>
@@ -96,7 +96,7 @@ rake install_gem</pre></p>
 <h2>Contact</h2>
 <p>Comments are welcome. Send an email to <a href="mailto:ari.lerner@citrusbyte.com">Ari Lerner</a> email via the <a href="http://groups.google.com/group/PoolParty">forum</a></p>
     <p class="coda">
-      <a href="http://blog.citrusbyte.com">Ari Lerner</a> at <a href="http://citrusbyte.com">CitrusByte</a>, 21st November 2008<br>
+      <a href="http://blog.citrusbyte.com">Ari Lerner</a> at <a href="http://citrusbyte.com">CitrusByte</a>, 15th October 2008<br>
       Theme extended from <a href="http://rb2js.rubyforge.org/">Paul Battley</a>
     </p>
 </div>