nayutaya-kagemusha 0.0.9

data/test/test_composite.rb

@@ -0,0 +1,107 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_composite.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+require "date"
+
+#==============================================================================#
+
+class TestComposite < Test::Unit::TestCase
+  def setup
+    @com = Kagemusha::Composite.new
+    @musha1 = Kagemusha.new(Time)
+    @musha2 = Kagemusha.new(Date)
+    @musha3 = Kagemusha.new(Regexp)
+  end
+
+  def test_initialize
+    com1 = Kagemusha::Composite.new
+    assert_equal([], com1.mocks)
+
+    com2 = Kagemusha::Composite.new(@musha1)
+    assert_equal([@musha1], com2.mocks)
+
+    com3 = Kagemusha::Composite.new(@musha1, @musha2)
+    assert_equal([@musha1, @musha2], com3.mocks)
+  end
+
+  def test_size
+    assert_equal(0, @com.size)
+
+    @com << @musha1
+    assert_equal(1, @com.size)
+
+    @com << @musha2
+    assert_equal(2, @com.size)
+  end
+
+  def test_add
+    assert_equal([], @com.mocks)
+
+    assert_equal(@com, @com.add(@musha1))
+    assert_equal([@musha1], @com.mocks)
+
+    assert_equal(@com, @com << @musha2)
+    assert_equal([@musha1, @musha2], @com.mocks)
+
+    assert_raise(ArgumentError) {
+      @com << 1
+    }
+  end
+
+  def test_concat
+    com1 = @com
+    assert_equal([], com1.mocks)
+
+    com2 = com1.concat(@musha1)
+    assert_equal([],        com1.mocks)
+    assert_equal([@musha1], com2.mocks)
+
+    com3 = com2 + @musha2
+    assert_equal([],                 com1.mocks)
+    assert_equal([@musha1],          com2.mocks)
+    assert_equal([@musha1, @musha2], com3.mocks)
+    
+    com4 = Kagemusha::Composite.new(@musha3)
+
+    com5 = com3 + com4
+    assert_equal([],                       com1.mocks)
+    assert_equal([@musha1],                com2.mocks)
+    assert_equal([@musha1, @musha2],       com3.mocks)
+    assert_equal([@musha1, @musha2, com4], com5.mocks)
+  end
+
+  def test_swap
+    @musha1.defs(:now) { :now }
+    @musha2.defs(:today) { :today }
+
+    assert_not_equal(:now, Time.now)
+    assert_not_equal(:today, Date.today)
+
+    @musha1.swap {
+      @musha2.swap {
+        assert_equal(:now, Time.now)
+        assert_equal(:today, Date.today)
+      }
+    }
+
+    assert_not_equal(:now, Time.now)
+    assert_not_equal(:today, Date.today)
+
+    ret = (@musha1 + @musha2).swap {
+      assert_equal(:now, Time.now)
+      assert_equal(:today, Date.today)
+      1
+    }
+    assert_equal(1, ret)
+
+    assert_not_equal(:now, Time.now)
+    assert_not_equal(:today, Date.today)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_date.rb

@@ -0,0 +1,44 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_date.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+require File.dirname(__FILE__) + "/../lib/kagemusha/date"
+
+#==============================================================================#
+
+class TestKagemushaDate < Test::Unit::TestCase
+  def setup
+  end
+
+  def test_on
+    musha1 = Kagemusha::Date.on(2007, 1, 2)
+    assert_equal(Date, musha1.instance_eval { @klass })
+    musha1.swap {
+      assert_equal(Date.new(2007, 1, 2), Date.today)
+    }
+
+    musha2 = Kagemusha::Date.on(Date.new(1984, 5, 11))
+    musha2.swap {
+      assert_equal(Date.new(1984, 5, 11), Date.today)
+    }
+
+    assert_raise(ArgumentError) {
+      Kagemusha::Date.on(:symbol)
+    }
+  end
+
+  def test_on_with_block
+    ret = Kagemusha::Date.on(2007, 1, 2) {
+      assert_equal(Date.new(2007, 1, 2), Date.today)
+      1
+    }
+
+    assert_equal(1, ret)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_datetime.rb

@@ -0,0 +1,54 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_datetime.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+require File.dirname(__FILE__) + "/../lib/kagemusha/date"
+require File.dirname(__FILE__) + "/../lib/kagemusha/time"
+require File.dirname(__FILE__) + "/../lib/kagemusha/datetime"
+
+#==============================================================================#
+
+class TestKagemushaDateTime < Test::Unit::TestCase
+  def setup
+  end
+
+  def test_at
+    musha1 = Kagemusha::DateTime.at(2007, 1, 2, 3, 4, 5)
+    musha1.swap {
+      assert_equal(Date.new(2007, 1, 2), Date.today)
+      assert_equal(Time.local(2007, 1, 2, 3, 4, 5), Time.now)
+    }
+
+    musha2 = Kagemusha::DateTime.at(Date.new(1984, 5, 11))
+    musha2.swap {
+      assert_equal(Date.new(1984, 5, 11), Date.today)
+      assert_equal(Time.local(1984, 5, 11), Time.now)
+    }
+
+    musha3 = Kagemusha::DateTime.at(Time.local(1984, 5, 11))
+    musha3.swap {
+      assert_equal(Date.new(1984, 5, 11), Date.today)
+      assert_equal(Time.local(1984, 5, 11), Time.now)
+    }
+
+    assert_raise(ArgumentError) {
+      Kagemusha::DateTime.at(:symbol)
+    }
+  end
+
+  def test_at_with_block
+    ret = Kagemusha::DateTime.at(2007, 1, 2, 3, 4, 5) {
+      assert_equal(Date.new(2007, 1, 2), Date.today)
+      assert_equal(Time.local(2007, 1, 2, 3, 4, 5), Time.now)
+      1
+    }
+
+    assert_equal(1, ret)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_helper.rb

@@ -0,0 +1,11 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_helper.rb 110 2009-02-09 07:20:20Z yuyakato $
+#==============================================================================#
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../lib/kagemusha"
+
+#==============================================================================#
+#==============================================================================#

data/test/test_kagemusha.rb

@@ -0,0 +1,257 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_kagemusha.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+
+#==============================================================================#
+
+class TestKagemusha < Test::Unit::TestCase
+  def setup
+    @musha = Kagemusha.new(String)
+  end
+
+  def test_initialize
+    klass = String
+    meta  = class << klass; self; end
+
+    assert_kind_of(Kagemusha, @musha)
+    assert_equal(klass, @musha.instance_eval { @klass })
+    assert_equal(meta,  @musha.instance_eval { @meta })
+    assert_equal({}, @musha.instance_eval { @class_methods })
+    assert_equal({}, @musha.instance_eval { @instance_methods })
+  end
+
+  def test_initialize_with_block
+    arg = nil
+
+    ret = Kagemusha.new(String) { |x|
+      arg = x
+    }
+
+    assert_kind_of(Kagemusha, ret)
+    assert_same(ret, arg)
+  end
+
+  def test_define_class_method_and_undefine
+    block1 = proc { 1 }
+    block2 = proc { 2 }
+
+    assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
+    assert_equal(nil, @musha.instance_eval { @class_methods[:bar] })
+
+    ret = @musha.define_class_method(:foo, &block1)
+
+    assert_same(ret, @musha)
+    assert_equal(block1, @musha.instance_eval { @class_methods[:foo] })
+    assert_equal(nil,    @musha.instance_eval { @class_methods[:bar] })
+
+    ret = @musha.define_class_method("bar", &block2)
+
+    assert_same(ret, @musha)
+    assert_equal(block1, @musha.instance_eval { @class_methods[:foo] })
+    assert_equal(block2, @musha.instance_eval { @class_methods[:bar] })
+
+    ret = @musha.undefine_class_method("foo")
+
+    assert_same(ret, @musha)
+    assert_equal(false,  @musha.instance_eval { @class_methods[:foo] })
+    assert_equal(block2, @musha.instance_eval { @class_methods[:bar] })
+
+    ret = @musha.undefine_class_method(:bar)
+
+    assert_same(ret, @musha)
+    assert_equal(false, @musha.instance_eval { @class_methods[:foo] })
+    assert_equal(false, @musha.instance_eval { @class_methods[:bar] })
+  end
+
+  def test_defs_and_undefs
+    block = proc { 1 }
+
+    assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
+
+    ret = @musha.defs(:foo, &block)
+
+    assert_same(ret, @musha)
+    assert_equal(block, @musha.instance_eval { @class_methods[:foo] })
+
+    ret = @musha.undefs(:foo)
+
+    assert_same(ret, @musha)
+    assert_equal(false, @musha.instance_eval { @class_methods[:foo] })
+  end
+
+  def test_define_instance_method_and_undefine
+    block1 = proc { 1 }
+    block2 = proc { 2 }
+
+    assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
+    assert_equal(nil, @musha.instance_eval { @instance_methods[:bar] })
+
+    ret = @musha.define_instance_method(:foo, &block1)
+
+    assert_same(ret, @musha)
+    assert_equal(block1, @musha.instance_eval { @instance_methods[:foo] })
+    assert_equal(nil,    @musha.instance_eval { @instance_methods[:bar] })
+
+    ret = @musha.define_instance_method("bar", &block2)
+
+    assert_same(ret, @musha)
+    assert_equal(block1, @musha.instance_eval { @instance_methods[:foo] })
+    assert_equal(block2, @musha.instance_eval { @instance_methods[:bar] })
+
+    ret = @musha.undefine_instance_method("foo")
+
+    assert_same(ret, @musha)
+    assert_equal(false,  @musha.instance_eval { @instance_methods[:foo] })
+    assert_equal(block2, @musha.instance_eval { @instance_methods[:bar] })
+
+    ret = @musha.undefine_instance_method(:bar)
+
+    assert_same(ret, @musha)
+    assert_equal(false, @musha.instance_eval { @instance_methods[:foo] })
+    assert_equal(false, @musha.instance_eval { @instance_methods[:bar] })
+  end
+
+  def test_def_and_undef
+    block = proc { 1 }
+
+    assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
+
+    ret = @musha.def(:foo, &block)
+
+    assert_same(ret, @musha)
+    assert_equal(block, @musha.instance_eval { @instance_methods[:foo] })
+
+    ret = @musha.undef(:foo)
+
+    assert_same(ret, @musha)
+    assert_equal(false, @musha.instance_eval { @instance_methods[:foo] })
+  end
+
+  def test_swap_class_method
+    @musha = Kagemusha.new(Regexp)
+    @musha.defs(:compile) { |string| /bar/ }
+
+    assert_equal(/foo/, Regexp.compile("foo"))
+
+    ret = @musha.swap {
+      assert_equal(/bar/, Regexp.compile("foo"))
+      1
+    }
+
+    assert_equal(1, ret)
+    assert_equal(/foo/, Regexp.compile("foo"))
+  end
+
+  def test_swap_instance_method
+    target = "foo"
+    @musha.def(:to_s) { "bar" }
+
+    assert_equal("foo", target.to_s)
+
+    ret = @musha.swap {
+      assert_equal("bar", target.to_s)
+      1
+    }
+
+    assert_equal(1, ret)
+    assert_equal("foo", target.to_s)
+  end
+
+  def test_insert_new_class_method
+    assert_raise(NoMethodError) {
+      String.foo
+    }
+
+    @musha.defs(:foo) { :ok }
+
+    assert_raise(NoMethodError) {
+      String.foo
+    }
+    assert_nothing_raised {
+      @musha.swap {
+        assert_equal(:ok, String.foo)
+      }
+    }
+    assert_raise(NoMethodError) {
+      String.foo
+    }
+  end
+
+  def test_remove_exist_class_method
+    assert_nothing_raised {
+      String.clone
+    }
+
+    @musha.undefs(:clone)
+
+    assert_nothing_raised {
+      String.clone
+    }
+    assert_raise(NoMethodError) {
+      @musha.swap {
+        String.clone
+      }
+    }
+    assert_nothing_raised {
+      String.clone
+    }
+  end
+
+  def test_insert_new_instance_method
+    assert_raise(NoMethodError) {
+      "".foo
+    }
+
+    @musha.def(:foo) { :ok }
+
+    assert_raise(NoMethodError) {
+      "".foo
+    }
+    assert_nothing_raised {
+      @musha.swap {
+        assert_equal(:ok, "".foo)
+      }
+    }
+    assert_raise(NoMethodError) {
+      "".foo
+    }
+  end
+
+  def test_remove_exist_instance_method
+    assert_nothing_raised {
+      "".clone
+    }
+
+    @musha.undef(:clone)
+
+    assert_nothing_raised {
+      "".clone
+    }
+    assert_raise(NoMethodError) {
+      @musha.swap {
+        "".clone
+      }
+    }
+    assert_nothing_raised {
+      "".clone
+    }
+  end
+
+  def test_concat
+    musha2 = Kagemusha.new(Time)
+    musha3 = Kagemusha.new(Regexp)
+
+    com1 = @musha.concat(musha2)
+    assert_equal([@musha, musha2], com1.mocks)
+
+    com2 = musha3 + com1
+    assert_equal([musha3, com1], com2.mocks)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_rand.rb

@@ -0,0 +1,48 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_rand.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+require File.dirname(__FILE__) + "/../lib/kagemusha/rand"
+
+#==============================================================================#
+
+class TestKagemushaRand < Test::Unit::TestCase
+  def setup
+  end
+
+  def test_always
+    musha = Kagemusha::Rand.always(1)
+    assert_equal(Kernel, musha.instance_eval { @klass })
+
+    assert_equal([0, 1, 2], (1..100).map { rand(3) }.sort.uniq)
+
+    musha.swap {
+      assert_equal(1, rand)
+      assert_equal(1, rand(2))
+      assert_equal(1, rand(3))
+      assert_equal(1, rand(4))
+      assert_equal(1, rand(5))
+    }
+
+    assert_equal([0, 1, 2], (1..100).map { rand(3) }.sort.uniq)
+  end
+
+  def test_always_with_block
+    ret = Kagemusha::Rand.always(1) {
+      assert_equal(1, rand)
+      assert_equal(1, rand(2))
+      assert_equal(1, rand(3))
+      assert_equal(1, rand(4))
+      assert_equal(1, rand(5))
+      1
+    }
+
+    assert_equal(1, ret)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_time.rb

@@ -0,0 +1,44 @@
+# coding: utf-8
+
+#==============================================================================#
+# $Id: test_time.rb 108 2009-02-09 06:04:39Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+require File.dirname(__FILE__) + "/../lib/kagemusha/time"
+
+#==============================================================================#
+
+class TestKagemushaTime < Test::Unit::TestCase
+  def setup
+  end
+
+  def test_at
+    musha1 = Kagemusha::Time.at(2007, 1, 2, 3, 4, 5)
+    assert_equal(Time, musha1.instance_eval { @klass })
+    musha1.swap {
+      assert_equal(Time.local(2007, 1, 2, 3, 4, 5), Time.now)
+    }
+
+    musha2 = Kagemusha::Time.at(Time.local(1984, 5, 11))
+    musha2.swap {
+      assert_equal(Time.local(1984, 5, 11), Time.now)
+    }
+
+    assert_raise(ArgumentError) {
+      Kagemusha::Time.at(:symbol)
+    }
+  end
+
+  def test_at_with_block
+    ret = Kagemusha::Time.at(2007, 1, 2, 3, 4, 5) {
+      assert_equal(Time.local(2007, 1, 2, 3, 4, 5), Time.now)
+      1
+    }
+
+    assert_equal(1, ret)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification 
+name: nayutaya-kagemusha
+version: !ruby/object:Gem::Version 
+  version: 0.0.9
+platform: ruby
+authors: 
+- Yuya Kato
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-06-29 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: kagemusha
+email: yuyakato@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- examples/date.rb
+- examples/datetime.rb
+- examples/first.rb
+- examples/rand.rb
+- examples/style.rb
+- examples/time.rb
+- HISTORY
+- HISTORY.ja
+- kagemusha.gemspec
+- kagemusha.gemspec.erb
+- lib/kagemusha/composite.rb
+- lib/kagemusha/core.rb
+- lib/kagemusha/date.rb
+- lib/kagemusha/datetime.rb
+- lib/kagemusha/rand.rb
+- lib/kagemusha/time.rb
+- lib/kagemusha/version.rb
+- lib/kagemusha.rb
+- LICENSE
+- Rakefile
+- README
+- README.ja
+- test/test_bugs.rb
+- test/test_complex_cases.rb
+- test/test_composite.rb
+- test/test_date.rb
+- test/test_datetime.rb
+- test/test_helper.rb
+- test/test_kagemusha.rb
+- test/test_rand.rb
+- test/test_time.rb
+has_rdoc: false
+homepage: http://github.com/nayutaya/kagemusha/
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.6
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: kagemusha
+test_files: 
+- test/test_bugs.rb
+- test/test_complex_cases.rb
+- test/test_composite.rb
+- test/test_date.rb
+- test/test_datetime.rb
+- test/test_helper.rb
+- test/test_kagemusha.rb
+- test/test_rand.rb
+- test/test_time.rb