mcmire-context 0.5.6

data/tasks/environment.rake

@@ -0,0 +1,7 @@
+task :ruby_env do
+  RUBY_APP = if RUBY_PLATFORM =~ /java/
+    "jruby"
+  else
+    "ruby"
+  end unless defined? RUBY_APP
+end

data/test/test_context.rb

@@ -0,0 +1,62 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class CustomTest < Test::Unit::TestCase
+  def setup
+  end
+end
+
+class TestContext < CustomTest
+  def test_can_write_tests_without_context
+    assert true
+  end
+  
+  def test_context_aliases
+    [:context, :contexts, :describe, :describes, :group, :specify, :specifies].each do |method_alias|
+      assert self.class.respond_to?(method_alias)
+    end
+  end
+  
+  context "A new context" do
+    context "when not nested" do
+      before do
+        @context = Class.new(Test::Unit::TestCase).context("When testing") do
+                    def test_this_thing
+                      true
+                    end
+                  end
+      end
+
+      it "should set the context name" do
+        assert_equal "When testing", @context.context_name
+      end
+      
+      it "should be a Test::Unit::TestCase" do
+        assert @context.ancestors.include?(Test::Unit::TestCase)
+      end
+    end
+  
+    context "when nested" do
+      before do
+        @context = self.class.context("and we're testing") do
+          def self.nested
+            @nested
+          end
+          
+          @nested = context "should be nested" do
+            def test_this_thing
+              true
+            end
+          end
+        end
+      end
+      
+      it "should set a nested context's name" do
+        assert_equal "A new context when nested and we're testing should be nested", @context.nested.context_name
+      end
+      
+      it "should also be a Test::Unit::TestCase" do
+        assert @context.nested.ancestors.include?(Test::Unit::TestCase)
+      end
+    end
+  end
+end

data/test/test_core_ext.rb

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestCoreExt < Test::Unit::TestCase
+  context "A string" do
+    it "should be converted to method name" do
+      assert_equal 'this_is_fun', "this is fun".to_method_name
+    end
+
+    it "should be converted to class name" do
+      assert_equal 'ThisIsFunYes_', "this is fun... - (yes)??!".to_class_name
+    end
+    
+    it "should be downcased when converted" do
+      assert_equal 'this_is_a_blast', "THIS is A BlASt".to_method_name
+    end
+    
+    it "should change spaces to _" do
+      assert_equal 'this_has_been_great', "This has been great".to_method_name
+    end
+
+    it "should change dangerous punctuation to _" do
+      assert_equal 'no_really_this_was_good_', "No, really; this was #good!".to_method_name
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,2 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/context'

data/test/test_lifecycle.rb

@@ -0,0 +1,224 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestLifecycle < Test::Unit::TestCase
+  before do
+    @inherited_before_each_var ||= 0
+    @inherited_before_each_var  += 1
+  end
+
+  before do
+    @inherited_before_each_var   ||= 0
+    @inherited_before_each_var_2 ||= 0
+    @inherited_before_each_var    += 2
+    @inherited_before_each_var_2  += 1
+  end
+
+  after do
+    @inherited_after_each_var ||= 0
+    @inherited_after_each_var  += 1
+  end
+
+  before :all do
+    @inherited_before_all_var ||= 0
+    @inherited_before_all_var  += 1
+  end
+
+  after :all do
+    @inherited_after_all_var ||= 0
+    @inherited_after_all_var  += 1
+  end
+
+  sample_test = context "lifecycle" do
+    attr_reader :inherited_before_each_var, :inherited_before_each_var_2, :inherited_after_each_var, 
+      :after_each_var, :inherited_before_all_var, :inherited_after_all_var, :before_all_var, :after_all_var, :ivar,
+      :superclass_before_each_var, :superclass_after_each_var, :superclass_before_all_var, :superclass_after_all_var, :one, :two
+
+    before do
+      @inherited_before_each_var ||= 0
+      @inherited_before_each_var  += 4
+    end
+
+    after do
+      @after_each_var ||= 0
+      @after_each_var  += 1
+    end
+
+    before :all do
+      @before_all_var ||= 0
+      @before_all_var  += 1
+    end
+
+    after :all do
+      @after_all_var ||= 0
+      @after_all_var  += 1
+    end
+
+    after :a_method
+
+    test "foo" do
+    end
+  end
+
+  before do
+    @superclass_before_each_var ||= 0
+    @superclass_before_each_var  += 1
+  end
+
+  after do
+    @superclass_after_each_var ||= 0
+    @superclass_after_each_var  += 1
+  end
+
+  before :all do
+    @superclass_before_all_var ||= 0
+    @superclass_before_all_var  += 1
+  end
+
+  after :all do
+    @superclass_after_all_var ||= 0
+    @superclass_after_all_var  += 1
+  end
+
+  context "With before/after :each blocks" do
+    before do
+      @result = Test::Unit::TestResult.new
+      @test = sample_test.new("test: lifecycle foo")
+      @test.run(@result) { |inherited_after_each_var, v| }
+    end
+
+    it "it runs superclass before callbacks in order" do
+      assert_equal 1, @test.superclass_before_each_var
+    end
+
+    it "it runs inherited before callbacks in order" do
+      assert_equal 7, @test.inherited_before_each_var
+    end
+
+    it "it runs before callbacks in order" do
+      assert_equal 1, @test.inherited_before_each_var_2
+    end
+
+    it "it runs superclass after callbacks" do
+      assert_equal 1, @test.superclass_after_each_var
+    end
+
+    it "it runs inherited after callbacks" do
+      assert_equal 1, @test.inherited_after_each_var
+    end
+
+    it "it runs after callbacks" do
+      assert_equal 1, @test.after_each_var
+    end
+
+    it "it runs after callbacks specified with method names, instead of blocks" do
+      assert_equal "a method ran", @test.ivar
+    end
+  end
+
+  context "With before/after :all blocks" do
+    before do
+      @result = Test::Unit::TestResult.new
+      @suite  = sample_test.suite
+      @suite.run(@result) { |inherited_after_each_var, v| }
+      @test   = @suite.tests.first
+    end
+
+    it "it runs superclass before callbacks in order" do
+      assert_equal 1, @test.superclass_before_all_var
+    end
+
+    it "it runs inherited before callbacks in order" do
+      assert_equal 1, @test.inherited_before_all_var
+    end
+
+    it "it runs before callbacks in order" do
+      assert_equal 1, @test.before_all_var
+    end
+
+    it "it runs superclass after callbacks" do
+      assert_equal 1, @test.superclass_after_all_var
+    end
+
+    it "it runs inherited after callbacks" do
+      assert_equal 1, @test.inherited_after_all_var
+    end
+
+    it "it runs after callbacks" do
+      assert_equal 1, @test.after_all_var
+    end
+  end
+  
+  # Test that we aren't stomping on defined seutp method
+  context "With setup/teardown methods" do
+    before do
+      @result = Test::Unit::TestResult.new
+      @test = sample_test.new("test: lifecycle foo")
+      
+      @test.class.setup do
+        @one = 1
+      end
+      
+      @test.class.teardown do
+        @two = 10
+      end
+      
+      @test.run(@result) { |inherited_after_each_var, v| }
+    end
+    
+    it "runs setup method block a la Shoulda" do
+      assert_equal 1, @test.one
+    end
+    
+    it "runs setup method block and regular callbacks" do
+      assert_equal 7, @test.inherited_before_each_var
+    end
+    
+    it "runs teardown method block a la Shoulda" do
+      assert_equal 10, @test.two
+    end
+    
+    it "runs teardown method block and regular callbacks" do
+      assert_equal 1, @test.after_each_var
+    end
+  end
+
+  context "With the before option" do
+    setup do
+      @jvar = "override success!"
+    end
+
+    l = lambda { @ivar = "awesome" }
+    should "run the lambda", :before => l do
+      assert_equal "awesome", @ivar
+    end
+
+    l = lambda { @jvar = "should be overridden" }
+    should "run the lambda before the setup", :before => l do
+      assert_equal "override success!", @jvar
+    end
+  end
+
+  context "Before tests" do
+    # omg this is odd
+    setup do
+      assert_equal "yup, it's set", @ivar
+    end
+
+    before_test "run before the setup block" do
+      @ivar = "yup, it's set"
+    end
+  end
+
+  context "To be compatible with rails' expectations" do
+    setup :a_method
+
+    it "should accept a symbol for an argument to setup and run that method at setup time" do
+      assert_equal "a method ran", @ivar
+    end
+  end
+
+  protected
+    def a_method
+      @ivar = "a method ran"
+    end
+end

data/test/test_nested_lifecycle.rb

@@ -0,0 +1,44 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestNestedLifecycle < Test::Unit::TestCase
+  before :all  do
+    @var = 0
+  end
+  
+  before do
+    @var += 1
+  end
+  context "A new context" do
+    before do
+      @var += 1
+    end
+    
+    before :all do
+      @var = 0
+    end
+    
+    context "A nested context" do
+      before do
+        @var += 1
+      end
+      
+      before :all do
+        @var += 1
+      end
+
+      context "A second, nested context" do
+        before do
+          @var += 1
+        end
+
+        before :all do
+          @var += 1
+        end
+
+        it "should set var" do
+          assert_equal 6, @var
+        end
+      end
+    end
+  end
+end

data/test/test_shared.rb

@@ -0,0 +1,116 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestTest < Test::Unit::TestCase
+  def test_shared_aliases
+    %w(shared_behavior share_as share_behavior_as shared_examples_for).each do |method_alias|
+      assert self.class.respond_to?(method_alias.to_sym)
+    end
+  end
+  
+  def test_use_aliases
+    %w(uses it_should_behave_like behaves_like uses_examples_from).each do |method_alias|
+      assert self.class.respond_to?(method_alias.to_sym)
+    end
+  end
+  
+  context "A shared group" do
+    context "creates a module" do
+      test "based on a string name" do
+        self.class.shared "things and fun" do
+        end
+
+        assert Object.const_get(:ThingsAndFun)
+        assert_equal Context::SharedBehavior, Object.const_get(:ThingsAndFun).class
+      end
+    
+      it "based on a symbol name" do
+        self.class.shared :fun_and_games do
+        end
+      
+        assert Object.const_get(:FunAndGames)
+        assert_equal Context::SharedBehavior, Object.const_get(:FunAndGames).class
+      end
+    
+      it "unless the name is not a String or Symbol" do
+        assert_raise ArgumentError do
+          self.class.shared StandardError do
+          end
+        end
+      end
+    end
+  
+    context "should be locatable" do      
+      shared "hello sir" do
+        def amazing!
+          puts "back off!"
+        end
+      end
+    
+      it "by a symbol" do
+        assert_nothing_raised do
+          self.class.use :hello_sir
+        end
+      end
+    
+      shared "hello madam" do
+        def fantastic!
+          puts "you know me!"
+        end
+      end
+    
+      it "by a string" do
+        assert_nothing_raised do
+          self.class.use "hello madam"
+        end
+      end
+    
+      shared "hi dog" do
+        def stupendous!
+          puts "hoo hah!"
+        end
+      end
+    
+      it "by direct reference" do
+        assert_nothing_raised do
+          self.class.use HiDog
+        end
+      end
+    end
+  
+    context "should include its shared behavior" do
+      shared "Athos" do
+        it "en_garde" do
+          true
+        end
+      end
+    
+      it "by a symbol" do
+        self.class.use :athos
+
+        assert send("test: A shared group should include its shared behavior en_garde")
+      end
+    
+      shared "Porthos" do
+        def parry!
+          true
+        end
+      end
+    
+      it "by a string" do
+        self.class.use "Porthos"
+        assert parry!
+      end
+    
+      shared "Aramis" do
+        def lunge!
+          true
+        end
+      end
+    
+      it "by direct reference" do
+        self.class.use Aramis
+        assert lunge!
+      end
+    end
+  end
+end