kagemusha 0.0.1 → 0.0.2

data/History.txt

@@ -1,3 +1,8 @@
+
+== 0.0.2 2007-08-27
+
+...
+
 == 0.0.1 2007-08-15
 
 * 1 major enhancement:

data/Manifest.txt

@@ -8,6 +8,7 @@ examples/date.rb
 examples/datetime.rb
 examples/first.rb
 examples/rand.rb
+examples/style.rb
 examples/time.rb
 lib/kagemusha.rb
 lib/kagemusha/core.rb

data/examples/date.rb

@@ -1,19 +1,22 @@
 
-# $Id: date.rb 26 2007-08-15 14:22:25Z yuyakato $
+# $Id: date.rb 40 2007-08-27 13:21:13Z yuyakato $
 
 require "rubygems"
 require "kagemusha/date"
 
-musha = Kagemusha::Date.on(2007, 1, 1)
-
-p Date.today.strftime("%Y-%m-%d")
-
-puts "---"
+p Date.today.strftime("%Y-%m-%d") #=> today
 
+# Normal Style.
+musha = Kagemusha::Date.on(2007, 1, 1)
 musha.swap {
-  p Date.today.strftime("%Y-%m-%d")
+  p Date.today.strftime("%Y-%m-%d") #=> 2007-01-01
 }
 
-puts "---"
+p Date.today.strftime("%Y-%m-%d") #=> today
+
+# Block Style.
+Kagemusha::Date.on(2007, 1, 1) {
+  p Date.today.strftime("%Y-%m-%d") #=> 2007-01-01
+}
 
-p Date.today.strftime("%Y-%m-%d")
+p Date.today.strftime("%Y-%m-%d") #=> today

data/examples/datetime.rb

@@ -1,22 +1,32 @@
 
-# $Id: datetime.rb 26 2007-08-15 14:22:25Z yuyakato $
+# $Id: datetime.rb 40 2007-08-27 13:21:13Z yuyakato $
 
 require "rubygems"
 require "kagemusha/datetime"
 
-musha = Kagemusha::DateTime.at(1984, 5, 11, 5, 15, 30)
-
-p Date.today.strftime("%Y-%m-%d")
-p Time.now
-
+p Date.today.strftime("%Y-%m-%d") #=> today
+p Time.now                        #=> now
 puts "---"
 
+# Normal Style.
+musha = Kagemusha::DateTime.at(1984, 5, 11, 5, 15, 30)
 musha.swap {
-  p Date.today.strftime("%Y-%m-%d")
-  p Time.now
+  p Date.today.strftime("%Y-%m-%d") #=> 1984-05-11
+  p Time.now                        #=> 1984-05-11 05:15:30
+  puts "---"
 }
 
+p Date.today.strftime("%Y-%m-%d") #=> today
+p Time.now                        #=> now
 puts "---"
 
-p Date.today.strftime("%Y-%m-%d")
-p Time.now
+# Block Style.
+Kagemusha::DateTime.at(1984, 5, 11, 5, 15, 30) {
+  p Date.today.strftime("%Y-%m-%d") #=> 1984-05-11
+  p Time.now                        #=> 1984-05-11 05:15:30
+  puts "---"
+}
+
+p Date.today.strftime("%Y-%m-%d") #=> today
+p Time.now                        #=> now
+puts "---"

data/examples/first.rb

@@ -1,5 +1,5 @@
 
-# $Id: first.rb 25 2007-08-15 14:18:09Z yuyakato $
+# $Id: first.rb 40 2007-08-27 13:21:13Z yuyakato $
 
 require "rubygems"
 require "kagemusha"
@@ -8,17 +8,16 @@ musha = Kagemusha.new(Time)
 musha.defs(:now) { self.local(1984, 5, 11) }
 musha.def(:+) { |other| other }
 
-p Time.now
-p Time.now + 60 * 60 * 24
-
+p Time.now                #=> now
+p Time.now + 60 * 60 * 24 #=> now + 24 hours
 puts "---"
 
 musha.swap {
-  p Time.now
-  p Time.now + 60 * 60 * 24
+  p Time.now                #=> 1984-05-11 00:00:00
+  p Time.now + 60 * 60 * 24 #=> 86400
+  puts "---"
 }
 
+p Time.now                #=> now
+p Time.now + 60 * 60 * 24 #=> now + 24 hours
 puts "---"
-
-p Time.now
-p Time.now + 60 * 60 * 24

data/examples/rand.rb

@@ -1,22 +1,32 @@
 
-# $Id: rand.rb 26 2007-08-15 14:22:25Z yuyakato $
+# $Id: rand.rb 40 2007-08-27 13:21:13Z yuyakato $
 
 require "rubygems"
 require "kagemusha/rand"
 
-musha = Kagemusha::Rand.always(1)
-
-p rand(5)
-p rand(5)
-
+p rand(100) #=> rand
+p rand(100) #=> rand
 puts "---"
 
+# Normal Style.
+musha = Kagemusha::Rand.always(1)
 musha.swap {
-  p rand(5)
-  p rand(5)
+  p rand(100) #=> 1
+  p rand(100) #=> 1
+  puts "---"
 }
 
+p rand(100) #=> rand
+p rand(100) #=> rand
 puts "---"
 
-p rand(5)
-p rand(5)
+# Block Style.
+Kagemusha::Rand.always(1) {
+  p rand(100) #=> 1
+  p rand(100) #=> 1
+  puts "---"
+}
+
+p rand(100) #=> rand
+p rand(100) #=> rand
+puts "---"

data/examples/style.rb

@@ -0,0 +1,39 @@
+
+# $Id: style.rb 38 2007-08-27 13:03:39Z yuyakato $
+
+require "rubygems"
+require "kagemusha"
+
+def one_plus_one
+  return 1 + 1
+end
+
+p one_plus_one #=> 2
+
+# Normal Style.
+musha = Kagemusha.new(Fixnum)
+musha.def(:+) { 1 }
+musha.swap {
+  p one_plus_one #=> 1
+}
+
+p one_plus_one #=> 2
+
+# Block Style.
+Kagemusha.new(Fixnum) { |m|
+  m.def(:+) { 1 }
+  m.swap {
+    p one_plus_one #=> 1
+  }
+}
+
+p one_plus_one #=> 2
+
+# Chain Style.
+Kagemusha.new(Fixnum).
+  def(:+) { 1 }.
+  swap {
+    p one_plus_one #=> 1
+  }
+
+p one_plus_one #=> 2

data/examples/time.rb

@@ -1,19 +1,22 @@
 
-# $Id: time.rb 26 2007-08-15 14:22:25Z yuyakato $
+# $Id: time.rb 40 2007-08-27 13:21:13Z yuyakato $
 
 require "rubygems"
 require "kagemusha/time"
 
-musha = Kagemusha::Time.at(2007, 1, 1)
-
-p Time.now
-
-puts "---"
+p Time.now #=> now
 
+# Normal Style.
+musha = Kagemusha::Time.at(2007, 1, 1)
 musha.swap {
-  p Time.now
+  p Time.now #=> 2007-01-01 00:00:00
 }
 
-puts "---"
+p Time.now #=> now
+
+# Block Style.
+Kagemusha::Time.at(2007, 1, 1) {
+  p Time.now #=> 2007-01-01 00:00:00
+}
 
-p Time.now
+p Time.now #=> now

data/lib/kagemusha/core.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: core.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: core.rb 35 2007-08-27 12:59:31Z yuyakato $
 #==============================================================================#
 
 class Kagemusha #:nodoc:
@@ -9,25 +9,33 @@ class Kagemusha #:nodoc:
     @meta             = class << @klass; self; end
     @class_methods    = {}
     @instance_methods = {}
+
+    if block_given?
+      yield(self)
+    end
   end
 
   def define_class_method(name, &block) #:nodoc:
     @class_methods[name.to_s.intern] = block
+    return self
   end
   alias :defs :define_class_method
 
   def undefine_class_method(name) #:nodoc:
     @class_methods.delete(name.to_s.intern)
+    return self
   end
   alias :undefs :undefine_class_method
 
   def define_instance_method(name, &block) #:nodoc:
     @instance_methods[name.to_s.intern] = block
+    return self
   end
   alias :def :define_instance_method
 
   def undefine_instance_method(name) #:nodoc:
     @instance_methods.delete(name.to_s.intern)
+    return self
   end
   alias :undef :undefine_instance_method
 
@@ -47,7 +55,7 @@ class Kagemusha #:nodoc:
       original_instance_methods[name] = method
     }
 
-    yield
+    return yield
   ensure
     original_class_methods.each { |name, method|
       @meta.instance_eval { define_method(name, method) }

data/lib/kagemusha/date.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: date.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: date.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require "kagemusha"
@@ -10,7 +10,11 @@ require "date"
 
 class Kagemusha #:nodoc:
   module Date #:nodoc:
-    def self.on(date_or_year, mon = 1, mday = 1) #:nodoc:
+    def self.on(date_or_year, mon = 1, mday = 1, &block) #:nodoc:
+      if block_given?
+        return self.on(date_or_year, mon, mday).swap(&block)
+      end
+
       date =
         case date_or_year
         when ::Date    then date_or_year

data/lib/kagemusha/datetime.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: datetime.rb 22 2007-08-15 12:34:58Z yuyakato $
+# $Id: datetime.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require "kagemusha/date"
@@ -14,7 +14,11 @@ class Kagemusha #:nodoc:
       @mock1, @mock2 = mock1, mock2
     end
 
-    def self.at(time_or_year, mon = 1, mday = 1, hour = 0, min = 0, sec = 0)
+    def self.at(time_or_year, mon = 1, mday = 1, hour = 0, min = 0, sec = 0, &block)    
+      if block_given?
+        return self.at(time_or_year, mon, mday, hour, min, sec).swap(&block)
+      end
+
       case time_or_year
       when ::Time
         time = time_or_year
@@ -30,7 +34,7 @@ class Kagemusha #:nodoc:
 
       datemusha = Kagemusha::Date.on(date)
       timemusha = Kagemusha::Time.at(time)
-    
+
       return self.new(datemusha, timemusha)
     end
 

data/lib/kagemusha/rand.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: rand.rb 22 2007-08-15 12:34:58Z yuyakato $
+# $Id: rand.rb 33 2007-08-27 12:25:50Z yuyakato $
 #==============================================================================#
 
 require "kagemusha"
@@ -9,7 +9,11 @@ require "kagemusha"
 
 class Kagemusha #:nodoc:
   module Rand
-    def self.always(num)
+    def self.always(num, &block)
+      if block_given?
+        return self.always(num).swap(&block)
+      end
+
       musha = Kagemusha.new(Kernel)
       musha.def(:rand) { num }
 

data/lib/kagemusha/time.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: time.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: time.rb 33 2007-08-27 12:25:50Z yuyakato $
 #==============================================================================#
 
 require "kagemusha"
@@ -9,7 +9,11 @@ require "kagemusha"
 
 class Kagemusha #:nodoc:
   module Time #:nodoc:
-    def self.at(time_or_year, mon = 1, mday = 1, hour = 0, min = 0, sec = 0)
+    def self.at(time_or_year, mon = 1, mday = 1, hour = 0, min = 0, sec = 0, &block)
+      if block_given?
+        return self.at(time_or_year, mon, mday, hour, min, sec).swap(&block)
+      end
+
       time =
         case time_or_year
         when ::Time    then time_or_year

data/lib/kagemusha/version.rb

@@ -1,13 +1,13 @@
 
 #==============================================================================#
-# $Id: version.rb 6 2007-08-15 08:47:26Z yuyakato $
+# $Id: version.rb 33 2007-08-27 12:25:50Z yuyakato $
 #==============================================================================#
 
 class Kagemusha #:nodoc:
   module VERSION #:nodoc:
     MAJOR = 0
     MINOR = 0
-    TINY  = 1
+    TINY  = 2
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

data/test/test_date.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: test_date.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: test_date.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require File.dirname(__FILE__) + "/test_helper.rb"
@@ -28,6 +28,15 @@ class TestKagemushaDate < Test::Unit::TestCase
       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

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: test_datetime.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: test_datetime.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require File.dirname(__FILE__) + "/test_helper.rb"
@@ -37,6 +37,16 @@ class TestKagemushaDateTime < Test::Unit::TestCase
       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_kagemusha.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: test_kagemusha.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: test_kagemusha.rb 35 2007-08-27 12:59:31Z yuyakato $
 #==============================================================================#
 
 require File.dirname(__FILE__) + "/test_helper.rb"
@@ -16,12 +16,24 @@ class TestKagemusha < Test::Unit::TestCase
     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 }
@@ -29,23 +41,27 @@ class TestKagemusha < Test::Unit::TestCase
     assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
     assert_equal(nil, @musha.instance_eval { @class_methods[:bar] })
 
-    @musha.define_class_method(:foo, &block1)
+    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] })
 
-    @musha.define_class_method("bar", &block2)
+    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] })
 
-    @musha.undefine_class_method("foo")
+    ret = @musha.undefine_class_method("foo")
 
+    assert_same(ret, @musha)
     assert_equal(nil,    @musha.instance_eval { @class_methods[:foo] })
     assert_equal(block2, @musha.instance_eval { @class_methods[:bar] })
 
-    @musha.undefine_class_method(:bar)
+    ret = @musha.undefine_class_method(:bar)
 
+    assert_same(ret, @musha)
     assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
     assert_equal(nil, @musha.instance_eval { @class_methods[:bar] })
   end
@@ -55,12 +71,14 @@ class TestKagemusha < Test::Unit::TestCase
 
     assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
 
-    @musha.defs(:foo, &block)
+    ret = @musha.defs(:foo, &block)
 
+    assert_same(ret, @musha)
     assert_equal(block, @musha.instance_eval { @class_methods[:foo] })
 
-    @musha.undefs(:foo)
+    ret = @musha.undefs(:foo)
 
+    assert_same(ret, @musha)
     assert_equal(nil, @musha.instance_eval { @class_methods[:foo] })
   end
 
@@ -71,23 +89,27 @@ class TestKagemusha < Test::Unit::TestCase
     assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
     assert_equal(nil, @musha.instance_eval { @instance_methods[:bar] })
 
-    @musha.define_instance_method(:foo, &block1)
+    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] })
 
-    @musha.define_instance_method("bar", &block2)
+    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] })
 
-    @musha.undefine_instance_method("foo")
+    ret = @musha.undefine_instance_method("foo")
 
+    assert_same(ret, @musha)
     assert_equal(nil,    @musha.instance_eval { @instance_methods[:foo] })
     assert_equal(block2, @musha.instance_eval { @instance_methods[:bar] })
 
-    @musha.undefine_instance_method(:bar)
+    ret = @musha.undefine_instance_method(:bar)
 
+    assert_same(ret, @musha)
     assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
     assert_equal(nil, @musha.instance_eval { @instance_methods[:bar] })
   end
@@ -97,12 +119,14 @@ class TestKagemusha < Test::Unit::TestCase
 
     assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
 
-    @musha.def(:foo, &block)
+    ret = @musha.def(:foo, &block)
 
+    assert_same(ret, @musha)
     assert_equal(block, @musha.instance_eval { @instance_methods[:foo] })
 
-    @musha.undef(:foo)
+    ret = @musha.undef(:foo)
 
+    assert_same(ret, @musha)
     assert_equal(nil, @musha.instance_eval { @instance_methods[:foo] })
   end
 
@@ -112,10 +136,12 @@ class TestKagemusha < Test::Unit::TestCase
 
     assert_equal(/foo/, Regexp.compile("foo"))
 
-    @musha.swap {
+    ret = @musha.swap {
       assert_equal(/bar/, Regexp.compile("foo"))
+      1
     }
 
+    assert_equal(1, ret)
     assert_equal(/foo/, Regexp.compile("foo"))
   end
 
@@ -125,10 +151,12 @@ class TestKagemusha < Test::Unit::TestCase
 
     assert_equal("foo", target.to_s)
 
-    @musha.swap {
+    ret = @musha.swap {
       assert_equal("bar", target.to_s)
+      1
     }
 
+    assert_equal(1, ret)
     assert_equal("foo", target.to_s)
   end
 end

data/test/test_rand.rb

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: test_rand.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: test_rand.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require File.dirname(__FILE__) + "/test_helper.rb"
@@ -23,6 +23,19 @@ class TestKagemushaRand < Test::Unit::TestCase
       assert_equal(1, rand(5))
     }
   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

@@ -1,6 +1,6 @@
 
 #==============================================================================#
-# $Id: test_time.rb 27 2007-08-15 14:35:31Z yuyakato $
+# $Id: test_time.rb 37 2007-08-27 13:02:39Z yuyakato $
 #==============================================================================#
 
 require File.dirname(__FILE__) + "/test_helper.rb"
@@ -28,6 +28,15 @@ class TestKagemushaTime < Test::Unit::TestCase
       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
 
 #==============================================================================#

data/website/index.html

@@ -33,7 +33,7 @@
     <h1>Kagemusha &#8211; 影武者</h1>
     <div id="version" class="clickable" onclick='document.location = "http://rubyforge.org/projects/kagemusha"; return false'>
       <p>Get Version</p>
-      <a href="http://rubyforge.org/projects/kagemusha" class="numbers">0.0.1</a>
+      <a href="http://rubyforge.org/projects/kagemusha" class="numbers">0.0.2</a>
     </div>
     <h2>What</h2>
 

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.2
 specification_version: 1
 name: kagemusha
 version: !ruby/object:Gem::Version 
-  version: 0.0.1
-date: 2007-08-16 00:00:00 +09:00
+  version: 0.0.2
+date: 2007-08-27 00:00:00 +09:00
 summary: Kagemusha is a library of helper functions for testing Ruby scripts.
 require_paths: 
 - lib
@@ -39,6 +39,7 @@ files:
 - examples/datetime.rb
 - examples/first.rb
 - examples/rand.rb
+- examples/style.rb
 - examples/time.rb
 - lib/kagemusha.rb
 - lib/kagemusha/core.rb