require File.expand_path(File.dirname(__FILE__) + "/../../example_helper")

describe Micronaut::Behaviour do

  before(:all) { puts "ba: describe Micronaut::Behaviour" }
  after(:all)  { puts "aa: describe Micronaut::Behaviour" }

  def empty_behaviour_group
    group = Micronaut::Behaviour.describe(Object, 'Empty Behaviour Group') { }
    remove_last_describe_from_world
  end

  describe "describing behaviour with #describe" do
    
    before(:all) { puts "ba: describing behaviour with #describe" }
    after(:all)  { puts "aa: describing behaviour with #describe" }

    example "an ArgumentError is raised if no type or description is given" do
      lambda { Micronaut::Behaviour.describe() {} }.should raise_error(ArgumentError, "No arguments given.  You must a least supply a type or description")
    end

    example "an ArgumentError is raised if no block is given" do
      lambda { Micronaut::Behaviour.describe('foo') }.should raise_error(ArgumentError, "You must supply a block when calling describe")
    end

    describe '#name' do

      it "should expose the first parameter as name" do
        Micronaut::Behaviour.describe("my favorite pony") { }.name.should == 'my favorite pony'
        remove_last_describe_from_world
      end

      it "should call to_s on the first parameter in case it is a constant" do
        Micronaut::Behaviour.describe(Object) { }.name.should == 'Object'
        remove_last_describe_from_world
      end

    end

    describe '#describes' do

      it "should be the first parameter when it is a constant" do
        Micronaut::Behaviour.describe(Object) { }.describes.should == Object
        remove_last_describe_from_world
      end

      it "should be nil when the first parameter is a string" do
        Micronaut::Behaviour.describe("i'm a computer") { }.describes.should be_nil
        remove_last_describe_from_world
      end

    end

    describe '#description' do

      it "should expose the second parameter as description" do
        Micronaut::Behaviour.describe(Object, "my desc") { }.description.should == 'my desc'
        remove_last_describe_from_world
      end

      it "should allow the second parameter to be nil" do
        Micronaut::Behaviour.describe(Object, nil) { }.description.size.should == 0
        remove_last_describe_from_world
      end

    end

    describe '#metadata' do

      it "should add the third parameter to the metadata" do
        Micronaut::Behaviour.describe(Object, nil, 'foo' => 'bar') { }.metadata.should include({ "foo" => 'bar' })
        remove_last_describe_from_world
      end

      it "should add the caller to metadata" do
        Micronaut::Behaviour.describe(Object) { }.metadata[:behaviour][:caller][4].should =~ /#{__FILE__}:#{__LINE__}/
        remove_last_describe_from_world
      end

      it "should add the the file_path to metadata" do
        Micronaut::Behaviour.describe(Object) { }.metadata[:behaviour][:file_path].should == __FILE__
        remove_last_describe_from_world
      end

      it "should have a reader for file_path" do
        Micronaut::Behaviour.describe(Object) { }.file_path.should == __FILE__
        remove_last_describe_from_world
      end

      it "should add the line_number to metadata" do
        Micronaut::Behaviour.describe(Object) { }.metadata[:behaviour][:line_number].should == __LINE__
        remove_last_describe_from_world
      end

      it "should add file path and line number metadata for arbitrarily nested describes" do
        Micronaut::Behaviour.describe(Object) do
          Micronaut::Behaviour.describe("foo") do
            Micronaut::Behaviour.describe(Object) { }.metadata[:behaviour][:file_path].should == __FILE__
            Micronaut::Behaviour.describe(Object) { }.metadata[:behaviour][:line_number].should == __LINE__
          end
        end
        remove_last_describe_from_world
        remove_last_describe_from_world
        remove_last_describe_from_world
        remove_last_describe_from_world
      end

    end

    describe "adding before and after hooks" do

      it "should expose the before each blocks at before_eachs" do
        group = empty_behaviour_group
        group.before(:each) { 'foo' }
        group.should have(1).before_eachs
      end

      it "should maintain the before each block order" do
        group = empty_behaviour_group 
        group.before(:each) { 15 }
        group.before(:each) { 'A' }
        group.before(:each) { 33.5 }

        group.before_eachs[0].call.should == 15
        group.before_eachs[1].call.should == 'A'
        group.before_eachs[2].call.should == 33.5
      end

      it "should expose the before all blocks at before_alls" do
        group = empty_behaviour_group
        group.before(:all) { 'foo' }
        group.should have(1).before_alls
      end

      it "should maintain the before all block order" do
        group = empty_behaviour_group 
        group.before(:all) { 15 }
        group.before(:all) { 'A' }
        group.before(:all) { 33.5 }

        group.before_alls[0].call.should == 15
        group.before_alls[1].call.should == 'A'
        group.before_alls[2].call.should == 33.5
      end

      it "should expose the after each blocks at after_eachs" do
        group = empty_behaviour_group
        group.after(:each) { 'foo' }
        group.should have(1).after_eachs
      end

      it "should maintain the after each block order" do
        group = empty_behaviour_group 
        group.after(:each) { 15 }
        group.after(:each) { 'A' }
        group.after(:each) { 33.5 }

        group.after_eachs[0].call.should == 15
        group.after_eachs[1].call.should == 'A'
        group.after_eachs[2].call.should == 33.5
      end

      it "should expose the after all blocks at after_alls" do
        group = empty_behaviour_group
        group.after(:all) { 'foo' }
        group.should have(1).after_alls
      end

      it "should maintain the after each block order" do
        group = empty_behaviour_group 
        group.after(:all) { 15 }
        group.after(:all) { 'A' }
        group.after(:all) { 33.5 }

        group.after_alls[0].call.should == 15
        group.after_alls[1].call.should == 'A'
        group.after_alls[2].call.should == 33.5
      end

    end

    describe "adding examples" do

      it "should allow adding an example using 'it'" do
        group = empty_behaviour_group
        group.it("should do something") { }
        group.examples.size.should == 1
      end

      it "should expose all examples at examples" do
        group = empty_behaviour_group
        group.it("should do something 1") { }
        group.it("should do something 2") { }
        group.it("should do something 3") { }
        group.examples.size.should == 3
      end

      it "should maintain the example order" do
        group = empty_behaviour_group
        group.it("should 1") { }
        group.it("should 2") { }
        group.it("should 3") { }
        group.examples[0].description.should == 'should 1'
        group.examples[1].description.should == 'should 2'
        group.examples[2].description.should == 'should 3'
      end

    end

  end

  describe Object, "describing nested behaviours", :little_less_nested => 'yep' do 

    describe "A sample nested describe", :nested_describe => "yep" do

      it "should set the described type to the constant Object" do
        running_example.behaviour.describes.should == Object
      end

      it "should set the description to 'A sample nested describe'" do
        running_example.behaviour.description.should == 'A sample nested describe'
      end

      it "should have top level metadata from the behaviour and its ancestors" do
        running_example.behaviour.metadata.should include(:little_less_nested => 'yep', :nested_describe => 'yep')
      end

      it "should make the parent metadata available on the contained examples" do
        running_example.metadata.should include(:little_less_nested => 'yep', :nested_describe => 'yep')
      end

    end

  end

  describe "#run_examples" do

    def stub_behaviour
      stub_everything('behaviour', :metadata => { :behaviour => { :name => 'behaviour_name' }})
    end

    it "should return true if all examples pass" do
      passing_example1 = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 1 }))
      passing_example2 = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 1 }))
      Micronaut::Behaviour.stubs(:examples_to_run).returns([passing_example1, passing_example2])

      Micronaut::Behaviour.run_examples(stub_behaviour, stub_everything('reporter')).should == true
    end

    it "should return false if any of the examples return false" do
      failing_example = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 2 }))
      passing_example = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 1 }))
      Micronaut::Behaviour.stubs(:examples_to_run).returns([failing_example, passing_example])

      Micronaut::Behaviour.run_examples(stub_behaviour, stub_everything('reporter')).should == false
    end

    it "should run all examples, regardless of any of them failing" do
      failing_example = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 2 }))
      passing_example = Micronaut::Example.new(stub_behaviour, 'description', {}, (lambda { 1.should == 1 }))
      Micronaut::Behaviour.stubs(:examples_to_run).returns([failing_example, passing_example])

      passing_example.expects(:run)

      Micronaut::Behaviour.run_examples(stub_behaviour, stub_everything('reporter'))
    end

  end
  
  describe "how instance variables inherit" do
    
    before do
      @before_each_top_level = 'before_each_top_level'
    end
    
    before(:all) do
      @before_all_top_level = 'before_all_top_level'
    end
    
    it "should be able to access a before each ivar at the same level" do
      @before_each_top_level.should == 'before_each_top_level'
    end
    
    it "should be able to access a before all ivar at the same level" do
      @before_all_top_level.should == 'before_all_top_level'
    end
    
    describe "but now I am nested" do
      
      it "should be able to access a parent behaviours before each ivar at a nested level" do
        @before_each_top_level.should == 'before_each_top_level'
      end
      
      it "should not be able to access a parent behaviours before all ivar at a nested level (YET)" do
        @before_all_top_level.should be_nil
      end
      
    end
    
  end

end