greenbar 0.1.1

data/test/ClassMethodSetupTest.rb

@@ -0,0 +1,113 @@
+# Copyright 2005, 2006 Enttek, Inc, All Rights Reserved
+# Copyright 2005, 2006 Kiel Hodges, All Rights Reserved
+# Copyright 2005, 2006 David Corbin <dcorbin@users.sourceforge.net>, All Rights Reserved
+#
+# This software may be copied and used only in accordance with the
+# terms provided in the include LICENSE file.  If no such file is included
+# then please contact the authors of the Greenbar project at 
+# http://rubyforge.org/projects/greenbar/
+#
+require 'test/unit'
+require 'greenbar'
+
+class ClassMethodSetupTest < Test::Unit::TestCase
+
+  class Alpha
+    def self.foo x, y
+      "foo for #{x}, #{y}"
+    end
+
+    def initialize x, y
+      @x = x
+      @y = y
+    end
+    
+    attr_reader :x, :y
+
+    def == other
+      self.class == other.class &&
+        self.x == other.x &&
+        self.y == other.y
+      true
+    end
+    
+  end
+  
+  class Beta
+    def initialize
+    end  
+  end
+  
+  class Test
+    include Greenbar::ClassMethodSetup
+  end
+
+  def setup
+    @test = Test.new
+    @test.setup
+  end
+
+  def test_define_class_method
+    assert_raise(NoMethodError) {
+       Alpha.undefined('a', 7)
+    }
+    
+    value = 'hey!'
+    @test.define_class_method(Alpha, :undefined) {|x, y|
+      "#{value} new undefined for #{x} and #{y}"
+    }
+    assert_equal 'hey! new undefined for a and 7', Alpha.undefined('a', 7)
+    
+    @test.teardown
+    assert_raise(NoMethodError) {
+       Alpha.undefined('a', 7)
+    }
+  end
+
+  
+  def test_replace_class_method
+    assert_equal 'foo for a, 7', Alpha.foo('a', 7)
+    
+    value = 'hey!'
+    @test.replace_class_method(Alpha, :foo) {|x, y|
+      "#{value} new foo for #{x} and #{y}"
+    }
+    assert_equal 'hey! new foo for a and 7', Alpha.foo('a', 7)
+    
+    @test.teardown
+    assert_equal 'foo for a, 7', Alpha.foo('a', 7)
+  end
+  
+  def test_replace_new
+    true_alpha = Alpha.new 'a', 7
+    alpha1  = 'alpha1'
+    alpha2  = 'alpha2'
+    beta1   = 'beta1'
+    
+    @test.replace_new Alpha, ['a', 7] => alpha1,
+                            ['b', 8] => alpha2
+    @test.replace_new Beta,  []       => beta1
+    
+    assert_equal alpha1, Alpha.new('a', 7)
+    assert_equal alpha2, Alpha.new('b', 8)
+    assert_equal beta1,  Beta.new
+    exception = assert_raise(RuntimeError) {Alpha.new 'b', 5}
+    assert_equal "No instance has been set to return from #{Alpha}.new for #{['b', 5].inspect}.",
+                 exception.message
+    assert_raise(RuntimeError) {Beta.new 'extraneous argument'}
+    
+    @test.teardown
+    assert_equal true_alpha, Alpha.new('a', 7)
+  end
+
+  def test_replace_new_for_no_args
+    beta1   = 'beta1'
+    
+    @test.replace_new Beta, beta1
+    
+    assert_equal beta1,  Beta.new
+    assert_raise(RuntimeError) {Beta.new 'extraneous argument'}
+    
+    @test.teardown
+  end
+end

data/test/DateSetupTest.rb

@@ -0,0 +1,39 @@
+# Copyright 2005, 2006 Enttek, Inc, All Rights Reserved
+# Copyright 2005, 2006 Kiel Hodges, All Rights Reserved
+# Copyright 2005, 2006 David Corbin <dcorbin@users.sourceforge.net>, All Rights Reserved
+#
+# This software may be copied and used only in accordance with the
+# terms provided in the include LICENSE file.  If no such file is included
+# then please contact the authors of the Greenbar project at 
+# http://rubyforge.org/projects/greenbar/
+#
+require 'test/unit'
+require 'greenbar/DateSetup'
+
+class DateSetupTest < Test::Unit::TestCase
+
+  class Test
+    include Greenbar::DateSetup
+  end
+
+  def test_date_mixin
+    july4th2004       = Date.civil 2004, 7, 4
+    
+    test = Test.new
+    test.setup
+    
+    assert_raise(RuntimeError, 'Expected a RuntimeError if Date.now= not called before Date.today') {
+      Date.today
+    }
+
+    Date.today = july4th2004
+    assert_equal july4th2004, Date.today
+    
+    test.teardown
+
+    assert Date.today > july4th2004
+    assert_raise(NoMethodError) {
+      Date.today = july4th2004
+    }
+  end
+end

data/test/EnvSetupTest.rb

@@ -0,0 +1,29 @@
+# Copyright 2005, 2006 Enttek, Inc, All Rights Reserved
+# Copyright 2005, 2006 Kiel Hodges, All Rights Reserved
+# Copyright 2005, 2006 David Corbin <dcorbin@users.sourceforge.net>, All Rights Reserved
+#
+# This software may be copied and used only in accordance with the
+# terms provided in the include LICENSE file.  If no such file is included
+# then please contact the authors of the Greenbar project at 
+# http://rubyforge.org/projects/greenbar/
+#
+require 'test/unit'
+require 'greenbar'
+
+class EnvSetupTest < Test::Unit::TestCase
+
+  class Test
+    include Greenbar::EnvSetup
+  end
+
+  def test_env_setup
+    test = Test.new
+    test.setup
+    ENV['EnvSetupTest'] = 'test value'
+    assert_equal 'test value', ENV['EnvSetupTest']
+    
+    test.teardown
+    assert_nil ENV['EnvSetupTest']
+  end
+
+end

data/test/RailsSetupTest.rb

@@ -0,0 +1,35 @@
+require 'test/unit'
+module Test::Unit
+  def TestCase.fixtures *args
+    @@rails_mixin_args = args
+  end
+  
+  def TestCase.fixture_args
+    @@rails_mixin_args
+  end
+end
+
+#TODO teardown not really tested
+#TODO find a way to do this where we can undo what's been done in teardown
+RAILS_ROOT=true
+load 'greenbar/RailsSetup.rb'
+
+class RailsSetupWithRailsTest < Test::Unit::TestCase
+  fixtures :foo
+
+  def setup_with_fixtures
+    @setup_with_mixins_called = true
+  end
+
+  def teardown_with_fixtures
+    @teardown_with_mixins_called = true
+  end
+
+  
+  def test_mixin_works
+    assert_equal [:foo], Test::Unit::TestCase.fixture_args
+    
+    assert_kind_of Greenbar::RailsSetup, self
+    assert @setup_with_mixins_called
+  end
+end

data/test/RandSetupTest.rb

@@ -0,0 +1,109 @@
+# Copyright 2005, 2006 Enttek, Inc, All Rights Reserved
+# Copyright 2005, 2006 Kiel Hodges, All Rights Reserved
+# Copyright 2005, 2006 David Corbin <dcorbin@users.sourceforge.net>, All Rights Reserved
+#
+# This software may be copied and used only in accordance with the
+# terms provided in the include LICENSE file.  If no such file is included
+# then please contact the authors of the Greenbar project at 
+# http://rubyforge.org/projects/greenbar/
+#
+require 'test/unit'
+require 'greenbar'
+
+class RandSetupTest < Test::Unit::TestCase
+
+  class Test
+    include Greenbar::RandSetup
+  
+    def random_sequence(length, upTo)
+      (1..length).collect {rand(upTo)}
+    end
+  
+  end
+
+  def test_rand_setup
+    test = Test.new
+    sequence_for_8  = [3, 4, 5, 1, 7, 1, 0, 3, 2]
+    sequence_for_10 = [3, 8, 5, 9, 7, 9, 3, 0, 3, 7]
+    newSequence   = [5, 7, 4, 2, 6]
+    
+    test.setup
+    seed_rand_sequence  8, sequence_for_8
+    seed_rand_sequence 10, sequence_for_10
+    assert_equal sequence_for_8  * 3, test.random_sequence(sequence_for_8.length  * 3, 8)
+    assert_equal sequence_for_10 * 3, test.random_sequence(sequence_for_10.length * 3, 10)
+    
+    seed_rand_sequence 10, newSequence
+    assert_equal newSequence * 3, test.random_sequence(newSequence.length * 3, 10)
+    
+    test.teardown
+    10.times {
+      test.setup
+      test.teardown
+      return if sequence_for_8 != test.random_sequence(sequence_for_8.length, 8)
+    }
+    flunk 'Should have restored the non-predictable sequence'
+  
+  end
+  
+  def test_seeding_with_array_duck
+    test = Test.new
+    test.setup
+    
+    duck = Object.new
+    class << duck
+      def to_a
+        [0, 1, 2, 3, 4]
+      end
+    end
+    
+    seed_rand_sequence 5, duck
+    assert_equal [0, 1, 2, 3, 4], test.random_sequence(5, 5)
+    
+    test.teardown
+  end
+
+end
+
+class ProblemRandSetupTest < Test::Unit::TestCase
+
+  class Test
+    include Greenbar::RandSetup
+  
+    def prepare max, sequence
+      seed_rand_sequence max, sequence
+    end
+    
+    def random max
+      rand max
+    end
+  end
+  
+  def setup
+    @test = Test.new
+    @test.setup
+  end
+  
+  def teardown
+    @test.teardown
+  end
+  
+
+  def test_uninitialized_sequence
+    
+    e = assert_raise(RuntimeError) {
+     @test.random 10
+    }
+    assert_equal "Must use seed_rand_sequence(#{10}) before using rand(10).", e.message
+  end
+
+  def test_empty_sequence
+    
+    e = assert_raise(RuntimeError) {
+     @test.prepare 10,[]
+    }
+    assert_equal "Must provide a non-empty sequence.", e.message
+  end
+  
+end
+

data/test/TestSetupTest.rb

@@ -0,0 +1,122 @@
+# Copyright 2005, 2006 Enttek, Inc, All Rights Reserved
+# Copyright 2005, 2006 Kiel Hodges, All Rights Reserved
+# Copyright 2005, 2006 David Corbin <dcorbin@users.sourceforge.net>, All Rights Reserved
+#
+# This software may be copied and used only in accordance with the
+# terms provided in the include LICENSE file.  If no such file is included
+# then please contact the authors of the Greenbar project at 
+# http://rubyforge.org/projects/greenbar/
+#
+require 'test/unit'
+require 'greenbar'
+
+module AlphaSetup
+  include Greenbar::TestSetup
+
+  def setup_mixin
+    assert_equal false, @alpha_setup_called
+    @alpha_setup_called = true
+  end
+  
+  def teardown_mixin
+    assert_equal false, @alpha_teardown_called
+    assert_equal true,  @beta_teardown_called
+    @alpha_teardown_called = true
+  end
+  
+end
+
+module BetaSetup
+  include Greenbar::TestSetup
+
+  def setup_mixin
+    assert_equal true,  @alpha_setup_called
+    assert_equal false, @beta_setup_called
+    @beta_setup_called = true
+  end
+  
+  def teardown_mixin
+    assert_equal false, @beta_teardown_called
+    @beta_teardown_called = true
+  end
+  
+end
+
+class TestWithoutSetupAndTeardown
+  include Test::Unit::Assertions
+  include AlphaSetup
+  include BetaSetup
+  
+  attr_reader :alpha_setup_called, :beta_setup_called, :alpha_teardown_called, :beta_teardown_called
+  
+  def initialize
+    @alpha_setup_called = false
+    @beta_setup_called  = false
+    @test_case_setup_called = false
+    @alpha_teardown_called = false
+    @beta_teardown_called  = false
+    @test_case_teardown_called = false
+  end
+end
+
+class TestWithSetupAndTeardown
+  include Test::Unit::Assertions
+  include AlphaSetup
+  include BetaSetup
+  
+  attr_reader :alpha_setup_called,    :beta_setup_called,    :test_case_setup_called,
+              :alpha_teardown_called, :beta_teardown_called, :test_case_teardown_called
+  
+  def initialize
+    @alpha_setup_called    = false
+    @beta_setup_called     = false
+    @test_case_setup_called = false
+    @alpha_teardown_called = false
+    @beta_teardown_called  = false
+    @test_case_teardown_called = false
+  end
+  
+  def setup
+    assert_equal true,  @alpha_setup_called
+    assert_equal true,  @beta_setup_called
+    assert_equal false, @test_case_setup_called
+    @test_case_setup_called = true
+  end
+  
+  def teardown
+    assert_equal false, @alpha_teardown_called
+    assert_equal false, @beta_teardown_called
+    assert_equal false, @test_case_teardown_called
+    @test_case_teardown_called = true
+  end
+end
+
+class TestSetupTest < Test::Unit::TestCase
+
+  def test_test_without_setup_and_teardown
+    test = TestWithoutSetupAndTeardown.new
+    
+    test.setup
+    assert_equal true, test.alpha_setup_called
+    assert_equal true, test.beta_setup_called
+    
+    test.teardown
+    assert_equal true, test.beta_teardown_called
+    assert_equal true, test.alpha_teardown_called
+  end
+
+  def test_test_with_setup_and_teardown
+    test = TestWithSetupAndTeardown.new
+    
+    test.setup
+    assert_equal true, test.alpha_setup_called
+    assert_equal true, test.beta_setup_called
+    assert_equal true, test.test_case_setup_called
+    
+    test.teardown
+    assert_equal true, test.test_case_teardown_called
+    assert_equal true, test.beta_teardown_called
+    assert_equal true, test.alpha_teardown_called
+  end
+
+end