require "test/helper"

module TestBelt

  class ShouldMethodTest < Test::Unit::TestCase
    include TestBelt

    define_method "test: should provide a 'should' method.  ".to_sym do
      assert self.class.respond_to?(:should), "no #should method"
    end

    define_method "test: should provide a 'should_eventually' method for skipping tests.  ".to_sym do
      assert self.class.respond_to?(:should_eventually), "no #should_eventually method"
    end

    define_method "test: should require a description and test block.  ".to_sym do
      assert_raises ArgumentError do
        self.class.send(:should)
      end
      assert_raises ArgumentError do
        self.class.send(:should, 'test_something')
      end
    end

    should "run this assertion" do
      assert true
    end
  end



  class SkipTest < Test::Unit::TestCase
    include TestBelt

    context "Test Belt"

    should "provide a skip assertion that uses LeftRight's skipping logic" do
      assert_respond_to self, :skip, 'no skip method for the test case'
      prev_skipped_count = ::LeftRight.state.skipped_count if defined? ::LeftRight
      skip(false)
      if defined? ::LeftRight
        assert ::LeftRight.state.skip, 'left right is not in skip state for this case'
        assert_equal prev_skipped_count+1, ::LeftRight.state.skipped_count, 'LeftRight\'s skip count was not incremented'
        ::LeftRight.state.skip = false
        ::LeftRight.state.skipped_count -= 1
      end
    end
  end



  class ClassWithNoTestsTest < Test::Unit::TestCase
    include TestBelt

    # the test here is that having a TestCase with
    # no 'test_*' methods should not flunk

  end



  class ContextTest < Test::Unit::TestCase
    include TestBelt

    should "provide a 'context' class method" do
      assert self.class.respond_to?(:context), "no :context class method"
    end

    should "provide a 'context' instance method" do
      assert self.respond_to?(:context), "no :context instance method"
    end

    should "require a description" do
      assert_raises ArgumentError do
        self.class.send(:context, nil)
      end
    end

    should "have an empty context by default" do
      assert_equal "", self.send(:context)
    end
  end

  class UsingContextTest < Test::Unit::TestCase
    include TestBelt

    context "using context test"

    should "use the context string" do
      assert_equal "using context test", self.send(:context)
    end
  end

  class RootNestedTest < Test::Unit::TestCase
    include TestBelt

    context 'root'
  end
  class OneNestedTest < RootNestedTest
    include TestBelt

    context 'one'
  end
  class TwoNestedTest < OneNestedTest
    include TestBelt

    context 'two'

    should "have a nested context string" do
      assert_equal "root one two", self.send(:context)
    end
  end



  class SubjectTest < Test::Unit::TestCase
    include TestBelt

    context "a test defining it's subject"
    subject {
      'my subject'
    }

    should "know it's subject" do
      assert_equal 'my subject', subject
    end
  end
  class RootSubjectTest < Test::Unit::TestCase
    include TestBelt

    subject {
      'root subject'
    }

  end
  class SubclassOrigSubjectTest < RootSubjectTest
    include TestBelt

    context "a test subclassing a test with a root subject"

    should "recognize the super class subject" do
      assert_equal 'root subject', subject
    end
  end
  class SubclassNewSubjectTest < RootSubjectTest
    include TestBelt

    context "a test subclassing a test with a root subject but defining it's own subject"
    subject {
      'new sub class subject'
    }

    should "recognize use it's subject over the super class subject" do
      assert_equal 'new sub class subject', subject
    end
  end
  class ScopedSubjectTest < Test::Unit::TestCase
    include TestBelt

    context "a test defining a before callback data that is used in it's subject"
    before {
      @setup_info = "my setup'd"
    }
    subject {
      @setup_info + ' subject'
    }

    should "know it's subject" do
      assert_equal "my setup'd subject", subject
    end
  end



end