minestrone 0.0.1

data/test/configuration/variables_test.rb

@@ -0,0 +1,191 @@
+require "utils"
+require 'minestrone/configuration/variables'
+
+class ConfigurationVariablesTest < Test::Unit::TestCase
+  class MockConfig
+    attr_reader :original_initialize_called
+
+    def initialize
+      @original_initialize_called = true
+      initialize_variables
+    end
+
+    include Minestrone::Configuration::Variables
+  end
+
+  def setup
+    MockConfig.any_instance.stubs(:logger).returns(stub_everything)
+    @config = MockConfig.new
+  end
+
+  def test_initialize_should_initialize_variables_hash
+    assert @config.original_initialize_called
+    assert_equal({:ssh_options => {}, :logger => @config.logger}, @config.variables)
+  end
+
+  def test_set_should_add_variable_to_hash
+    @config.set :sample, :value
+    assert_equal :value, @config.variables[:sample]
+  end
+
+  def test_set_should_convert_variable_name_to_symbol
+    @config.set "sample", :value
+    assert_equal :value, @config.variables[:sample]
+  end
+
+  def test_set_should_be_aliased_to_square_brackets
+    @config[:sample] = :value
+    assert_equal :value, @config.variables[:sample]
+  end
+
+  def test_variables_should_be_accessible_as_read_accessors
+    @config[:sample] = :value
+    assert_equal :value, @config.sample
+  end
+
+  def test_method_missing_should_raise_error_if_no_variable_matches
+    assert_raises(NoMethodError) do
+      @config.sample
+    end
+  end
+
+  def test_respond_to_should_look_for_variables
+    assert !@config.respond_to?(:sample)
+    @config[:sample] = :value
+    assert @config.respond_to?(:sample)
+  end
+
+  def test_respond_to_should_be_true_when_passed_a_string
+    assert !@config.respond_to?('sample')
+    @config[:sample] = :value
+    assert @config.respond_to?('sample')
+  end
+
+  def test_respond_to_with_include_priv_paramter
+    assert !@config.respond_to?(:sample, true)
+  end
+
+  def test_set_should_require_value
+    assert_raises(ArgumentError) do
+      @config.set(:sample)
+    end
+  end
+
+  def test_set_should_allow_value_to_be_omitted_if_block_is_given
+    assert_nothing_raised do
+      @config.set(:sample) { :value }
+    end
+    assert_instance_of Proc, @config.variables[:sample]
+  end
+
+  def test_set_should_not_allow_multiple_values
+    assert_raises(ArgumentError) do
+      @config.set(:sample, :value, :another)
+    end
+  end
+
+  def test_set_should_not_allow_both_a_value_and_a_block
+    assert_raises(ArgumentError) do
+      @config.set(:sample, :value) { :block }
+    end
+  end
+
+  def test_set_should_not_allow_capitalized_variables
+    assert_raises(ArgumentError) do
+      @config.set :Sample, :value
+    end
+  end
+
+  def test_unset_should_remove_variable_from_hash
+    @config.set :sample, :value
+    assert @config.variables.key?(:sample)
+    @config.unset :sample
+    assert !@config.variables.key?(:sample)
+  end
+
+  def test_unset_should_clear_memory_of_original_proc
+    @config.set(:sample) { :value }
+    @config.fetch(:sample)
+    @config.unset(:sample)
+    assert_equal false, @config.reset!(:sample)
+  end
+
+  def test_exists_should_report_existance_of_variable_in_hash
+    assert !@config.exists?(:sample)
+    @config[:sample] = :value
+    assert @config.exists?(:sample)
+  end
+
+  def test_reset_should_do_nothing_if_variable_does_not_exist
+    assert_equal false, @config.reset!(:sample)
+    assert !@config.variables.key?(:sample)
+  end
+
+  def test_reset_should_do_nothing_if_variable_is_not_a_proc
+    @config.set(:sample, :value)
+    assert_equal false, @config.reset!(:sample)
+    assert_equal :value, @config.variables[:sample]
+  end
+
+  def test_reset_should_do_nothing_if_proc_variable_has_not_been_dereferenced
+    @config.set(:sample) { :value }
+    assert_equal false, @config.reset!(:sample)
+    assert_instance_of Proc, @config.variables[:sample]
+  end
+
+  def test_reset_should_restore_variable_to_original_proc_value
+    @config.set(:sample) { :value }
+    assert_instance_of Proc, @config.variables[:sample]
+    @config.fetch(:sample)
+    assert_instance_of Symbol, @config.variables[:sample]
+    assert @config.reset!(:sample)
+    assert_instance_of Proc, @config.variables[:sample]
+  end
+
+  def test_fetch_should_return_stored_non_proc_value
+    @config.set(:sample, :value)
+    assert_equal :value, @config.fetch(:sample)
+  end
+
+  def test_fetch_should_raise_index_error_if_variable_does_not_exist
+    assert_raises(IndexError) do
+      @config.fetch(:sample)
+    end
+  end
+
+  def test_fetch_should_return_default_if_variable_does_not_exist_and_default_is_given
+    assert_nothing_raised do
+      assert_equal :default_value, @config.fetch(:sample, :default_value)
+    end
+  end
+
+  def test_fetch_should_invoke_block_if_variable_does_not_exist_and_block_is_given
+    assert_nothing_raised do
+      assert_equal :default_value, @config.fetch(:sample) { :default_value }
+    end
+  end
+
+  def test_fetch_should_raise_argument_error_if_both_default_and_block_are_given
+    assert_raises(ArgumentError) do
+      @config.fetch(:sample, :default1) { :default2 }
+    end
+  end
+
+  def test_fetch_should_dereference_proc_values
+    @config.set(:sample) { :value }
+    assert_instance_of Proc, @config.variables[:sample]
+    assert_equal :value, @config.fetch(:sample)
+    assert_instance_of Symbol, @config.variables[:sample]
+  end
+
+  def test_square_brackets_should_alias_fetch
+    @config.set(:sample, :value)
+    assert_equal :value, @config[:sample]
+  end
+
+  def test_square_brackets_should_return_nil_for_non_existant_variable
+    assert_nothing_raised do
+      assert_nil @config[:sample]
+    end
+  end
+end

data/test/configuration_test.rb

@@ -0,0 +1,77 @@
+require "utils"
+require 'minestrone/configuration'
+
+# These tests are only for testing the integration of the various components
+# of the Configuration class. To test specific features, please look at the
+# tests under test/configuration.
+
+class ConfigurationTest < Test::Unit::TestCase
+  def setup
+    @config = Minestrone::Configuration.new
+  end
+
+  def test_connections_execution_loading_namespaces_servers_and_variables_modules_should_integrate_correctly
+    Minestrone::SSH.expects(:connect).with { |s,c| s.host == "www.minestrone.test" && c == @config }.returns(:session)
+
+    process_args = Proc.new do |command, session, opts|
+      command == "echo 'hello world'" &&
+      session == :session &&
+      opts == { :logger => @config.logger, :eof => true, :configuration => @config }
+    end
+
+    Minestrone::Command.expects(:process).with(&process_args)
+
+    @config.load do
+      server "www.minestrone.test"
+      set  :message, "hello world"
+      namespace :testing do
+        task :example do
+          run "echo '#{message}'"
+        end
+      end
+    end
+
+    @config.testing.example
+  end
+
+  def test_tasks_in_nested_namespace_should_be_able_to_call_tasks_in_same_namespace
+    @config.namespace(:outer) do
+      task(:first) { set :called_first, true }
+      namespace(:inner) do
+        task(:first) { set :called_inner_first, true }
+        task(:second) { first }
+      end
+    end
+
+    @config.outer.inner.second
+    assert !@config[:called_first]
+    assert @config[:called_inner_first]
+  end
+
+  def test_tasks_in_nested_namespace_should_be_able_to_call_tasks_in_parent_namespace
+    @config.namespace(:outer) do
+      task(:first) { set :called_first, true }
+      namespace(:inner) do
+        task(:second) { first }
+      end
+    end
+
+    @config.outer.inner.second
+    assert @config[:called_first]
+  end
+
+  def test_tasks_in_nested_namespace_should_be_able_to_call_shadowed_tasks_in_parent_namespace
+    @config.namespace(:outer) do
+      task(:first) { set :called_first, true }
+      namespace(:inner) do
+        task(:first) { set :called_inner_first, true }
+        task(:second) { parent.first }
+      end
+    end
+
+    @config.outer.inner.second
+    assert @config[:called_first]
+    assert !@config[:called_inner_first]
+  end
+
+end

data/test/deploy/local_dependency_test.rb

@@ -0,0 +1,61 @@
+require "utils"
+require 'minestrone/recipes/deploy/local_dependency'
+
+class LocalDependencyTest < Test::Unit::TestCase
+  def setup
+    @config = { }
+    @dependency = Minestrone::Deploy::LocalDependency.new(@config)
+  end
+
+  def test_should_use_standard_error_message
+    setup_for_one_path_entry(false)
+    @dependency.command("cat")
+    assert_equal "`cat' could not be found in the path on the local host", @dependency.message
+  end
+
+  def test_should_use_alternative_message_if_provided
+    setup_for_one_path_entry(false)
+    @dependency.command("cat").or("Sorry")
+    assert_equal "Sorry", @dependency.message
+  end
+
+  def test_env_with_no_path_should_never_find_command
+    ENV.expects(:[]).with("PATH").returns(nil)
+    assert !@dependency.command("cat").pass?
+  end
+
+  def test_env_with_one_path_entry_should_fail_if_command_not_found
+    setup_for_one_path_entry(false)
+    assert !@dependency.command("cat").pass?
+  end
+
+  def test_env_with_one_path_entry_should_pass_if_command_found
+    setup_for_one_path_entry(true)
+    assert @dependency.command("cat").pass?
+  end
+
+  def test_env_with_three_path_entries_should_fail_if_command_not_found
+    setup_for_three_path_entries(false)
+    assert !@dependency.command("cat").pass?
+  end
+
+  def test_env_with_three_path_entries_should_pass_if_command_found
+    setup_for_three_path_entries(true)
+    assert @dependency.command("cat").pass?
+  end
+
+  private
+
+  def setup_for_one_path_entry(command_found)
+    ENV.expects(:[]).with("PATH").returns("/bin")
+    File.expects(:executable?).with("/bin/cat").returns(command_found)
+  end
+
+  def setup_for_three_path_entries(command_found)
+    path = %w(/bin /usr/bin /usr/local/bin).join(File::PATH_SEPARATOR)
+    ENV.expects(:[]).with("PATH").returns(path)
+    File.expects(:executable?).with("/usr/bin/cat").returns(command_found)
+    File.expects(:executable?).at_most(1).with("/bin/cat").returns(false)
+    File.expects(:executable?).at_most(1).with("/usr/local/bin/cat").returns(false)
+  end
+end

data/test/deploy/remote_dependency_test.rb

@@ -0,0 +1,146 @@
+require "utils"
+require 'minestrone/recipes/deploy/remote_dependency'
+
+class RemoteDependencyTest < Test::Unit::TestCase
+  def setup
+    @config = { }
+    @dependency = Minestrone::Deploy::RemoteDependency.new(@config)
+  end
+
+  def test_should_use_standard_error_message_for_directory
+    setup_for_a_configuration_run("test -d /data", false)
+    @dependency.directory("/data")
+    assert_equal "`/data' is not a directory (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_file
+    setup_for_a_configuration_run("test -f /data/foo.txt", false)
+    @dependency.file("/data/foo.txt")
+    assert_equal "`/data/foo.txt' is not a file (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_writable
+    setup_for_a_configuration_run("test -w /data/foo.txt", false)
+    @dependency.writable("/data/foo.txt")
+    assert_equal "`/data/foo.txt' is not writable (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_command
+    setup_for_a_configuration_run("which cat", false)
+    @dependency.command("cat")
+    assert_equal "`cat' could not be found in the path (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_gem
+    setup_for_a_configuration_gem_run("minestrone", "9.9", false)
+    @dependency.gem("minestrone", 9.9)
+    assert_equal "gem `minestrone' 9.9 could not be found (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_deb
+    setup_for_a_configuration_deb_run("dpkg", "1.15", false)
+    @dependency.deb("dpkg", "1.15")
+    assert_equal "package `dpkg' 1.15 could not be found (host)", @dependency.message
+  end
+
+  def test_should_use_standard_error_message_for_rpm
+    setup_for_a_configuration_rpm_run("rpm", "4.8", false)
+    @dependency.rpm("rpm", "4.8")
+    assert_equal "package `rpm' 4.8 could not be found (host)", @dependency.message
+  end
+
+  def test_should_fail_if_directory_not_found
+    setup_for_a_configuration_run("test -d /data", false)
+    assert !@dependency.directory("/data").pass?
+  end
+
+  def test_should_pass_if_directory_found
+    setup_for_a_configuration_run("test -d /data", true)
+    assert @dependency.directory("/data").pass?
+  end
+
+  def test_should_fail_if_file_not_found
+    setup_for_a_configuration_run("test -f /data/foo.txt", false)
+    assert !@dependency.file("/data/foo.txt").pass?
+  end
+
+  def test_should_pass_if_file_found
+    setup_for_a_configuration_run("test -f /data/foo.txt", true)
+    assert @dependency.file("/data/foo.txt").pass?
+  end
+
+  def test_should_fail_if_writable_not_found
+    setup_for_a_configuration_run("test -w /data/foo.txt", false)
+    assert !@dependency.writable("/data/foo.txt").pass?
+  end
+
+  def test_should_pass_if_writable_found
+    setup_for_a_configuration_run("test -w /data/foo.txt", true)
+    assert @dependency.writable("/data/foo.txt").pass?
+  end
+
+  def test_should_fail_if_command_not_found
+    setup_for_a_configuration_run("which cat", false)
+    assert !@dependency.command("cat").pass?
+  end
+
+  def test_should_pass_if_command_found
+    setup_for_a_configuration_run("which cat", true)
+    assert @dependency.command("cat").pass?
+  end
+
+  def test_should_fail_if_gem_not_found
+    setup_for_a_configuration_gem_run("minestrone", "9.9", false)
+    assert !@dependency.gem("minestrone", 9.9).pass?
+  end
+
+  def test_should_pass_if_gem_found
+    setup_for_a_configuration_gem_run("minestrone", "9.9", true)
+    assert @dependency.gem("minestrone", 9.9).pass?
+  end
+
+  def test_should_pass_if_deb_found
+    setup_for_a_configuration_deb_run("dpkg", "1.15", true)
+    assert @dependency.deb("dpkg", "1.15").pass?
+  end
+
+  def test_should_fail_if_deb_not_found
+    setup_for_a_configuration_deb_run("dpkg", "1.15", false)
+    assert !@dependency.deb("dpkg", "1.15").pass?
+  end
+
+  def test_should_use_alternative_message_if_provided
+    setup_for_a_configuration_run("which cat", false)
+    @dependency.command("cat").or("Sorry")
+    assert_equal "Sorry (host)", @dependency.message
+  end
+
+  private
+
+  def setup_for_a_configuration_run(command, passing)
+    expectation = @config.expects(:invoke_command).with(command, {})
+    if passing
+      expectation.returns(true)
+    else
+      error = Minestrone::CommandError.new
+      error.expects(:host).returns("host")
+      expectation.raises(error)
+    end
+  end
+
+  def setup_for_a_configuration_gem_run(name, version, passing)
+    @config.expects(:fetch).with(:gem_command, "gem").returns("gem")
+    find_gem_cmd = "gem specification --version '#{version}' #{name} 2>&1 | awk 'BEGIN { s = 0 } /^name:/ { s = 1; exit }; END { if(s == 0) exit 1 }'"
+    setup_for_a_configuration_run(find_gem_cmd, passing)
+  end
+
+  def setup_for_a_configuration_deb_run(name, version, passing)
+    find_deb_cmd = "dpkg -s #{name} | grep '^Version: #{version}'"
+    setup_for_a_configuration_run(find_deb_cmd, passing)
+  end
+
+  def setup_for_a_configuration_rpm_run(name, version, passing)
+    find_rpm_cmd = "rpm -q #{name} | grep '#{version}'"
+    setup_for_a_configuration_run(find_rpm_cmd, passing)
+  end
+end

data/test/deploy/scm/base_test.rb

@@ -0,0 +1,55 @@
+require "utils"
+require 'minestrone/recipes/deploy/scm/base'
+
+class DeploySCMBaseTest < Test::Unit::TestCase
+  class TestSCM < Minestrone::Deploy::SCM::Base
+    default_command "floopy"
+  end
+
+  def setup
+    @config = { }
+    def @config.exists?(name); key?(name); end
+
+    @source = TestSCM.new(@config)
+  end
+
+  def test_command_should_default_to_default_command
+    assert_equal "floopy", @source.command
+    @source.local { assert_equal "floopy", @source.command }
+  end
+
+  def test_command_should_use_scm_command_if_available
+    @config[:scm_command] = "/opt/local/bin/floopy"
+    assert_equal "/opt/local/bin/floopy", @source.command
+  end
+
+  def test_command_should_use_scm_command_in_local_mode_if_local_scm_command_not_set
+    @config[:scm_command] = "/opt/local/bin/floopy"
+    @source.local { assert_equal "/opt/local/bin/floopy", @source.command }
+  end
+
+  def test_command_should_use_local_scm_command_in_local_mode_if_local_scm_command_is_set
+    @config[:scm_command] = "/opt/local/bin/floopy"
+    @config[:local_scm_command] = "/usr/local/bin/floopy"
+    assert_equal "/opt/local/bin/floopy", @source.command
+    @source.local { assert_equal "/usr/local/bin/floopy", @source.command }
+  end
+
+  def test_command_should_use_default_if_scm_command_is_default
+    @config[:scm_command] = :default
+    assert_equal "floopy", @source.command
+  end
+
+  def test_command_should_use_default_in_local_mode_if_local_scm_command_is_default
+    @config[:scm_command] = "/foo/bar/floopy"
+    @config[:local_scm_command] = :default
+    @source.local { assert_equal "floopy", @source.command }
+  end
+
+  def test_local_mode_proxy_should_treat_messages_as_being_in_local_mode
+    @config[:scm_command] = "/foo/bar/floopy"
+    @config[:local_scm_command] = :default
+    assert_equal "floopy", @source.local.command
+    assert_equal "/foo/bar/floopy", @source.command
+  end
+end