pluginaweek-state_machine 0.7.6

data/test/test_helper.rb

@@ -0,0 +1,4 @@
+require 'test/unit'
+
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+require File.dirname(__FILE__) + '/../init'

data/test/unit/assertions_test.rb

@@ -0,0 +1,40 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+
+class AssertionsTest < Test::Unit::TestCase
+  include StateMachine::Assertions
+  
+  def default_test
+  end
+end
+
+class AssertValidKeysTest < AssertionsTest
+  def test_should_not_raise_exception_if_key_is_valid
+    assert_nothing_raised { assert_valid_keys({:name => 'foo', :value => 'bar'}, :name, :value, :force) }
+  end
+  
+  def test_should_raise_exception_if_key_is_invalid
+    exception = assert_raise(ArgumentError) { assert_valid_keys({:name => 'foo', :value => 'bar', :invalid => true}, :name, :value, :force) }
+    assert_equal 'Invalid key(s): invalid', exception.message
+  end
+end
+
+class AssertExclusiveKeysTest < AssertionsTest
+  def test_should_not_raise_exception_if_no_keys_found
+    assert_nothing_raised { assert_exclusive_keys({:on => :park}, :only, :except) }
+  end
+  
+  def test_should_not_raise_exception_if_one_key_found
+    assert_nothing_raised { assert_exclusive_keys({:only => :parked}, :only, :except) }
+    assert_nothing_raised { assert_exclusive_keys({:except => :parked}, :only, :except) }
+  end
+  
+  def test_should_raise_exception_if_two_keys_found
+    exception = assert_raise(ArgumentError) { assert_exclusive_keys({:only => :parked, :except => :parked}, :only, :except) }
+    assert_equal 'Conflicting keys: only, except', exception.message
+  end
+  
+  def test_should_raise_exception_if_multiple_keys_found
+    exception = assert_raise(ArgumentError) { assert_exclusive_keys({:only => :parked, :except => :parked, :on => :park}, :only, :except, :with) }
+    assert_equal 'Conflicting keys: only, except', exception.message
+  end
+end

data/test/unit/callback_test.rb

@@ -0,0 +1,455 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+
+class CallbackTest < Test::Unit::TestCase
+  def test_should_raise_exception_if_no_methods_specified
+    exception = assert_raise(ArgumentError) { StateMachine::Callback.new }
+    assert_equal 'Method(s) for callback must be specified', exception.message
+  end
+  
+  def test_should_not_raise_exception_if_method_specified_in_do_option
+    assert_nothing_raised { StateMachine::Callback.new(:do => :run) }
+  end
+  
+  def test_should_not_raise_exception_if_method_specified_as_argument
+    assert_nothing_raised { StateMachine::Callback.new(:run) }
+  end
+  
+  def test_should_not_raise_exception_if_method_specified_as_block
+    assert_nothing_raised { StateMachine::Callback.new(:run) {} }
+  end
+  
+  def test_should_not_raise_exception_if_implicit_option_specified
+    assert_nothing_raised { StateMachine::Callback.new(:do => :run, :invalid => :valid) }
+  end
+  
+  def test_should_not_bind_to_objects
+    assert !StateMachine::Callback.bind_to_object
+  end
+  
+  def test_should_not_have_a_terminator
+    assert_nil StateMachine::Callback.terminator
+  end
+end
+
+class CallbackByDefaultTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => lambda {})
+  end
+  
+  def test_should_not_have_a_terminator
+    assert_nil @callback.terminator
+  end
+  
+  def test_should_have_a_guard_with_all_matcher_requirements
+    assert_equal StateMachine::AllMatcher.instance, @callback.guard.event_requirement
+    assert_equal StateMachine::AllMatcher.instance, @callback.guard.state_requirements.first[:from]
+    assert_equal StateMachine::AllMatcher.instance, @callback.guard.state_requirements.first[:to]
+  end
+  
+  def test_should_not_have_any_known_states
+    assert_equal [], @callback.known_states
+  end
+end
+
+class CallbackWithMethodArgumentTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(lambda {|*args| @args = args})
+    
+    @object = Object.new
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_with_empty_context
+    assert_equal [@object], @args
+  end
+end
+
+class CallbackWithMultipleMethodArgumentsTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:run_1, :run_2)
+    
+    class << @object = Object.new
+      attr_accessor :callbacks
+      
+      def run_1
+        (@callbacks ||= []) << :run_1
+      end
+      
+      def run_2
+        (@callbacks ||= []) << :run_2
+      end
+    end
+    
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_each_callback_in_order
+    assert_equal [:run_1, :run_2], @object.callbacks
+  end
+end
+
+class CallbackWithDoMethodTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => lambda {|*args| @args = args})
+    
+    @object = Object.new
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_with_empty_context
+    assert_equal [@object], @args
+  end
+end
+
+class CallbackWithMultipleDoMethodsTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => [:run_1, :run_2])
+    
+    class << @object = Object.new
+      attr_accessor :callbacks
+      
+      def run_1
+        (@callbacks ||= []) << :run_1
+      end
+      
+      def run_2
+        (@callbacks ||= []) << :run_2
+      end
+    end
+    
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_each_callback_in_order
+    assert_equal [:run_1, :run_2], @object.callbacks
+  end
+end
+
+class CallbackWithBlockTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new do |*args|
+      @args = args
+    end
+    
+    @object = Object.new
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_with_empty_context
+    assert_equal [@object], @args
+  end
+end
+
+class CallbackWithMixedMethodsTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:run_argument, :do => :run_do) do |object|
+      object.callbacks << :block
+    end
+    
+    class << @object = Object.new
+      attr_accessor :callbacks
+      
+      def run_argument
+        (@callbacks ||= []) << :argument
+      end
+      
+      def run_do
+        (@callbacks ||= []) << :do
+      end
+    end
+    
+    @result = @callback.call(@object)
+  end
+  
+  def test_should_be_successful
+    assert @result
+  end
+  
+  def test_should_call_each_callback_in_order
+    assert_equal [:argument, :do, :block], @object.callbacks
+  end
+end
+
+class CallbackWithExplicitRequirementsTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+    @callback = StateMachine::Callback.new(:from => :parked, :to => :idling, :on => :ignite, :do => lambda {})
+  end
+  
+  def test_should_call_with_empty_context
+    assert @callback.call(@object, {})
+  end
+  
+  def test_should_not_call_if_from_not_included
+    assert !@callback.call(@object, :from => :idling)
+  end
+  
+  def test_should_not_call_if_to_not_included
+    assert !@callback.call(@object, :to => :parked)
+  end
+  
+  def test_should_not_call_if_on_not_included
+    assert !@callback.call(@object, :on => :park)
+  end
+  
+  def test_should_call_if_all_requirements_met
+    assert @callback.call(@object, :from => :parked, :to => :idling, :on => :ignite)
+  end
+  
+  def test_should_include_in_known_states
+    assert_equal [:parked, :idling], @callback.known_states
+  end
+end
+
+class CallbackWithImplicitRequirementsTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+    @callback = StateMachine::Callback.new(:parked => :idling, :on => :ignite, :do => lambda {})
+  end
+  
+  def test_should_call_with_empty_context
+    assert @callback.call(@object, {})
+  end
+  
+  def test_should_not_call_if_from_not_included
+    assert !@callback.call(@object, :from => :idling)
+  end
+  
+  def test_should_not_call_if_to_not_included
+    assert !@callback.call(@object, :to => :parked)
+  end
+  
+  def test_should_not_call_if_on_not_included
+    assert !@callback.call(@object, :on => :park)
+  end
+  
+  def test_should_call_if_all_requirements_met
+    assert @callback.call(@object, :from => :parked, :to => :idling, :on => :ignite)
+  end
+  
+  def test_should_include_in_known_states
+    assert_equal [:parked, :idling], @callback.known_states
+  end
+end
+
+class CallbackWithIfConditionTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+  end
+  
+  def test_should_call_if_true
+    callback = StateMachine::Callback.new(:if => lambda {true}, :do => lambda {})
+    assert callback.call(@object)
+  end
+  
+  def test_should_not_call_if_false
+    callback = StateMachine::Callback.new(:if => lambda {false}, :do => lambda {})
+    assert !callback.call(@object)
+  end
+end
+
+class CallbackWithUnlessConditionTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+  end
+  
+  def test_should_call_if_false
+    callback = StateMachine::Callback.new(:unless => lambda {false}, :do => lambda {})
+    assert callback.call(@object)
+  end
+  
+  def test_should_not_call_if_true
+    callback = StateMachine::Callback.new(:unless => lambda {true}, :do => lambda {})
+    assert !callback.call(@object)
+  end
+end
+
+class CallbackWithoutTerminatorTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+  end
+  
+  def test_should_not_halt_if_result_is_false
+    callback = StateMachine::Callback.new(:do => lambda {false}, :terminator => nil)
+    assert_nothing_thrown { callback.call(@object) }
+  end
+end
+
+class CallbackWithTerminatorTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+  end
+  
+  def test_should_not_halt_if_terminator_does_not_match
+    callback = StateMachine::Callback.new(:do => lambda {false}, :terminator => lambda {|result| result == true})
+    assert_nothing_thrown { callback.call(@object) }
+  end
+  
+  def test_should_halt_if_terminator_matches
+    callback = StateMachine::Callback.new(:do => lambda {false}, :terminator => lambda {|result| result == false})
+    assert_throws(:halt) { callback.call(@object) }
+  end
+  
+  def test_should_halt_if_terminator_matches_any_method
+    callback = StateMachine::Callback.new(:do => [lambda {true}, lambda {false}], :terminator => lambda {|result| result == false})
+    assert_throws(:halt) { callback.call(@object) }
+  end
+end
+
+class CallbackWithoutArgumentsTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => lambda {|object| @arg = object})
+    
+    @object = Object.new
+    @callback.call(@object, {}, 1, 2, 3)
+  end
+  
+  def test_should_call_method_with_object_as_argument
+    assert_equal @object, @arg
+  end
+end
+
+class CallbackWithArgumentsTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => lambda {|*args| @args = args})
+    
+    @object = Object.new
+    @callback.call(@object, {}, 1, 2, 3)
+  end
+  
+  def test_should_call_method_with_all_arguments
+    assert_equal [@object, 1, 2, 3], @args
+  end
+end
+
+class CallbackWithUnboundMethodTest < Test::Unit::TestCase
+  def setup
+    @callback = StateMachine::Callback.new(:do => lambda {|*args| @context = args.unshift(self)})
+    
+    @object = Object.new
+    @callback.call(@object, {}, 1, 2, 3)
+  end
+  
+  def test_should_call_method_outside_the_context_of_the_object
+    assert_equal [self, @object, 1, 2, 3], @context
+  end
+end
+
+class CallbackWithBoundMethodTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+  end
+  
+  def test_should_call_method_within_the_context_of_the_object_for_block_methods
+    context = nil
+    callback = StateMachine::Callback.new(:do => lambda {|*args| context = [self] + args}, :bind_to_object => true)
+    callback.call(@object, {}, 1, 2, 3)
+    
+    assert_equal [@object, 1, 2, 3], context
+  end
+  
+  def test_should_ignore_option_for_symbolic_methods
+    class << @object
+      attr_reader :context
+      
+      def after_ignite(*args)
+        @context = args
+      end
+    end
+    
+    callback = StateMachine::Callback.new(:do => :after_ignite, :bind_to_object => true)
+    callback.call(@object)
+    
+    assert_equal [], @object.context
+  end
+  
+  def test_should_ignore_option_for_string_methods
+    callback = StateMachine::Callback.new(:do => '[1, 2, 3]', :bind_to_object => true)
+    assert callback.call(@object)
+  end
+end
+
+class CallbackWithMultipleBoundMethodsTest < Test::Unit::TestCase
+  def setup
+    @object = Object.new
+    
+    first_context = nil
+    second_context = nil
+    
+    @callback = StateMachine::Callback.new(:do => [lambda {first_context = self}, lambda {second_context = self}], :bind_to_object => true)
+    @callback.call(@object)
+    
+    @first_context = first_context
+    @second_context = second_context
+  end
+  
+  def test_should_call_each_method_within_the_context_of_the_object
+    assert_equal @object, @first_context
+    assert_equal @object, @second_context
+  end
+end
+
+class CallbackWithApplicationBoundObjectTest < Test::Unit::TestCase
+  def setup
+    @original_bind_to_object = StateMachine::Callback.bind_to_object
+    StateMachine::Callback.bind_to_object = true
+    
+    context = nil
+    @callback = StateMachine::Callback.new(:do => lambda {|*args| context = self})
+    
+    @object = Object.new
+    @callback.call(@object)
+    @context = context
+  end
+  
+  def test_should_call_method_within_the_context_of_the_object
+    assert_equal @object, @context
+  end
+  
+  def teardown
+    StateMachine::Callback.bind_to_object = @original_bind_to_object
+  end
+end
+
+class CallbackWithApplicationTerminatorTest < Test::Unit::TestCase
+  def setup
+    @original_terminator = StateMachine::Callback.bind_to_object
+    StateMachine::Callback.terminator = lambda {|result| result == false}
+    
+    @object = Object.new
+  end
+  
+  def test_should_not_halt_if_terminator_does_not_match
+    callback = StateMachine::Callback.new(:do => lambda {true})
+    assert_nothing_thrown { callback.call(@object) }
+  end
+  
+  def test_should_halt_if_terminator_matches
+    callback = StateMachine::Callback.new(:do => lambda {false})
+    assert_throws(:halt) { callback.call(@object) }
+  end
+  
+  def teardown
+    StateMachine::Callback.bind_to_object = @original_bind_to_object
+  end
+end