require "assert"
require "assert/context/setup_dsl"

module Assert::Context::SetupDSL

  class UnitTests < Assert::Context
    desc "Assert::Context::SetupDSL"
    subject{ @context_class }

  end

  class SetupTeardownOnceMethodsTests < UnitTests
    desc "once methods"
    setup do
      block = @block = ::Proc.new{ something_once = true }
      @context_class = Factory.modes_off_context_class do
        setup_once(&block)
        teardown_once(&block)
      end
    end

    should "add the block to the suite" do
      assert_includes @block, subject.suite.send(:setups)
      assert_includes @block, subject.suite.send(:teardowns)
    end

  end

  class SetupTeardownMethodsTests < UnitTests
    desc "methods"
    setup do
      block = @block = ::Proc.new{ something = true }
      @context_class = Factory.modes_off_context_class do
        setup(&block)
        teardown(&block)
      end
    end

    should "add the block to the context" do
      assert_includes @block, subject.send(:setups)
      assert_includes @block, subject.send(:teardowns)
    end

  end

  class SetupTeardownWithMethodNameTests < UnitTests
    desc "methods given a method name"
    setup do
      method_name = @method_name = :something_amazing
      @context_class = Factory.modes_off_context_class do
        setup(method_name)
        teardown(method_name)
      end
    end

    should "add the method name to the context" do
      assert_includes @method_name, subject.send(:setups)
      assert_includes @method_name, subject.send(:teardowns)
    end

  end

  class SetupTeardownMultipleTests < UnitTests
    desc "with multiple calls"
    setup do
      parent_setup_block    = ::Proc.new{ self.setup_status    =  "the setup"    }
      parent_teardown_block = ::Proc.new{ self.teardown_status += "the teardown" }
      @parent_class = Factory.modes_off_context_class do
        setup(&parent_setup_block)
        teardown(&parent_teardown_block)
      end

      context_setup_block    = ::Proc.new{ self.setup_status    += " has been run" }
      context_teardown_block = ::Proc.new{ self.teardown_status += "has been run " }
      @context_class = Factory.modes_off_context_class(@parent_class) do
        setup(&context_setup_block)
        setup(:setup_something)
        teardown(:teardown_something)
        teardown(&context_teardown_block)
      end

      @test_status_class = Class.new do
        attr_accessor :setup_status, :teardown_status
        define_method(:setup_something) do
          self.setup_status += " with something"
        end
        define_method(:teardown_something) do
          self.teardown_status = "with something "
        end
      end
    end

    should "run it's parent and it's own blocks in the correct order" do
      subject.send("run_setups", obj = @test_status_class.new)
      assert_equal "the setup has been run with something", obj.setup_status

      subject.send("run_teardowns", obj = @test_status_class.new)
      assert_equal "with something has been run the teardown", obj.teardown_status
    end

  end

  class AroundMethodTests < UnitTests
    desc "with multiple `around` calls"
    setup do
      @parent_class = Factory.modes_off_context_class do
        around do |block|
          self.out_status ||= ""
          self.out_status += "p-around start, "
          block.call
          self.out_status += "p-around end."
        end
      end

      @context_class = Factory.modes_off_context_class(@parent_class) do
        around do |block|
          self.out_status += "c-around1 start, "
          block.call
          self.out_status += "c-around1 end, "
        end
        around do |block|
          self.out_status += "c-around2 start, "
          block.call
          self.out_status += "c-around2 end, "
        end
      end

      @test_status_class = Class.new do
        attr_accessor :out_status
      end
    end

    should "run it's parent and it's own blocks in the correct order" do
      obj = @test_status_class.new
      subject.send("run_arounds", obj) do
        obj.instance_eval{ self.out_status += "TEST, " }
      end

      exp = "p-around start, c-around1 start, c-around2 start, "\
            "TEST, "\
            "c-around2 end, c-around1 end, p-around end."
      assert_equal exp, obj.out_status
    end

  end

end