require File.expand_path("#{File.dirname(__FILE__)}/../helper")


describe "Transition requirement reflection" do
  include MySpecHelper

  before do
    reset!
    make_pristine_class("Klass")
    @machine = Klass.machine do
      state :soviet_russia do
        requires( :papers_in_order?,
                  :money_for_bribe?, :on => [:entry, :exit] )
      end

      state :america do
        requires( :no_turban?,
                  :us_visa?,
                  :on => :entry )
        requires( :no_arrest_warrant, :on => [:entry,:exit] )
      end

      state :moon do
        requires :spacesuit?
      end

      event( :catch_plane,
             :from => states.except(:moon),
             :to   => states.except(:moon) ) do
        requires :plane_ticket?
      end

      event( :fly_spaceship,
             :from => :ALL,
             :to   => :ALL ) do
        requires :fuel?
      end

    end # machine
    @obj = Klass.new()
    stub( @obj ).papers_in_order?   { true }
    stub( @obj ).money_for_bribe?   { true }
    stub( @obj ).no_turban?         { true }
    stub( @obj ).no_arrest_warrant? { true }
    stub( @obj ).spacesuit?         { true }
    stub( @obj ).plane_ticket?      { true }
    stub( @obj ).fuel?              { true }
  end  # before

  describe "transition.valid? / transition.requirements_met?" do
    it "should be true if all requirements are met (return truth)" do
      @obj.state_fu.next_states[:moon].entry_requirements.should == [:spacesuit?]
      @obj.state_fu.evaluate_requirement(:spacesuit?).should == true
      @obj.fly_spaceship?(:moon).should == true
      @obj.fly_spaceship(:moon).requirements_met?.should == true
      @obj.fly_spaceship(:moon).should be_valid
    end

    it "should be false if not all requirements are met" do
      stub( @obj ).spacesuit?() { false }
      @obj.state_fu.next_states[:moon].entry_requirements.should == [:spacesuit?]
      @obj.state_fu.evaluate_requirement(:spacesuit?).should == false
      @obj.fly_spaceship?(:moon).should == false
      @obj.fly_spaceship(:moon).requirements_met?.should == false
      @obj.fly_spaceship(:moon).should_not be_valid
    end
  end

  describe "transition.unmet_requirements" do
    it "should be empty when all requirements are met" do
      @obj.state_fu.fly_spaceship(:moon).unmet_requirements.should == []
    end

    it "should contain a list of failing requirements" do
      mock( @obj ).spacesuit?() { false }
      mock( @obj ).fuel?() { false }
      @obj.state_fu.fly_spaceship(:moon).unmet_requirements.should == [:spacesuit?, :fuel?]
    end
  end

  describe "transition.unmet_requirement_messages" do
    describe "when a string message is defined for one of two unmet_requirements" do
      before do
        stub( @obj ).spacesuit?() { false }
        stub( @obj ).fuel?() { false }
        @msg = "You got no spacesuit."
        @machine.requirement_messages[:spacesuit?] = @msg
      end

      it "should return an array with the requirement message and nil" do
        t = @obj.state_fu.fly_spaceship(:moon)
        t.unmet_requirements.length.should == 2
        messages = t.unmet_requirement_messages
        messages.should be_kind_of( Array )
        messages.length.should == 2
        messages.compact.length.should == 1
        messages.compact.first.should be_kind_of( String )
        messages.compact.first.should == @msg
      end
    end

    describe "when a proc message is defined for one of two unmet_requirements" do
      before do
        stub( @obj ).spacesuit?() { false }
        stub( @obj ).fuel?() { false }
      end
      describe "when the arity of the proc is 1" do
        before do
          @msg = lambda { |trans| "I am a #{trans.class} and I fail it" }
          @machine.requirement_messages[:spacesuit?] = @msg
        end

        it "should return an array with the requirement message and nil" do
          t = @obj.state_fu.fly_spaceship(:moon)
          t.unmet_requirements.length.should == 2
          messages = t.unmet_requirement_messages
          messages.should be_kind_of( Array )
          messages.length.should == 2
          messages.compact.length.should == 1
          messages.compact.first.should be_kind_of( String )
          messages.compact.first.should == "I am a StateFu::Transition and I fail it"
        end
      end # arity 1

      describe "when the arity of the proc is 0" do
        before do
          @msg = lambda { "I am a #{self.class} and I fail it" }
          @machine.requirement_messages[:spacesuit?] = @msg
        end

        it "should return an array with the requirement message and nil" do
          t = @obj.state_fu.fly_spaceship(:moon)
          t.unmet_requirements.length.should == 2
          messages = t.unmet_requirement_messages
          messages.should be_kind_of( Array )
          messages.length.should == 2
          messages.compact.length.should == 1
          messages.compact.first.should be_kind_of( String )
          messages.compact.first.should == "I am a StateFu::Transition and I fail it"
        end
      end # arity 1

    end # 1 proc msg of 2
    describe "when a symbol message is defined for one of two unmet_requirements" do
      before do
        stub( @obj ).spacesuit?() { false }
        stub( @obj ).fuel?() { false }
        @machine.requirement_messages[:spacesuit?] = :no_spacesuit_msg_method
        Klass.class_eval do
          attr_accessor :arg

          def no_spacesuit_msg_method( t )
            self.arg = t
            raise ArgumentError unless t.is_a?( StateFu::Transition )
            "You can't go to the #{t.target.name} without a spacesuit!"
          end
        end
      end

      describe "when there is no named proc on the machine matching the symbol" do

        it "should call the method on @obj given transition.evaluate_named_proc_or_method() with the method name" do
          @obj.method( :no_spacesuit_msg_method ).arity.should == 1
          t = @obj.state_fu.fly_spaceship(:moon)
          x = t.evaluate_named_proc_or_method(:no_spacesuit_msg_method)
          @obj.arg.should == t
          x.should =~ /You can't go to the moon/
        end

        it "should call t.evaluate_named_proc_or_method(:no_spacesuit_msg_method)" do
          t = @obj.state_fu.fly_spaceship(:moon)
          t.unmet_requirements.length.should == 2
          mock( t ).evaluate_named_proc_or_method(:no_spacesuit_msg_method) { :my_string }
          messages = t.unmet_requirement_messages
          messages.should include(:my_string )
        end

        it "should call the method on @obj with the name of the symbol, passing it a transition" do
          t = @obj.state_fu.fly_spaceship(:moon)
          t.unmet_requirements.length.should == 2
          messages = t.unmet_requirement_messages
          @obj.arg.should == t
        end

        it "should return the result of the method execution as the message" do
          t = @obj.state_fu.fly_spaceship(:moon)
          t.unmet_requirements.length.should == 2
          messages = t.unmet_requirement_messages
          messages.length.should == 2
          messages.compact.length.should == 1
          @obj.arg.should == t
          messages.compact[0].should == "You can't go to the moon without a spacesuit!"
        end
      end # no named proc
    end   # symbol message
  end     # transition.unmet_requirement_messages

end