kagemusha 0.0.3 → 0.0.4

data/script/txt2html.cmd

@@ -0,0 +1 @@
+@ruby script/txt2html %*

data/tasks/deployment.rake

@@ -0,0 +1,34 @@
+desc 'Release the website and new gem version'
+task :deploy => [:check_version, :website, :release] do
+  puts "Remember to create SVN tag:"
+  puts "svn copy svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/trunk " +
+    "svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/tags/REL-#{VERS} "
+  puts "Suggested comment:"
+  puts "Tagging release #{CHANGES}"
+end
+
+desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
+task :local_deploy => [:website_generate, :install_gem]
+
+task :check_version do
+  unless ENV['VERSION']
+    puts 'Must pass a VERSION=x.y.z release version'
+    exit
+  end
+  unless ENV['VERSION'] == VERS
+    puts "Please update your version.rb to match the release version, currently #{VERS}"
+    exit
+  end
+end
+
+desc 'Install the package as a gem, without generating documentation(ri/rdoc)'
+task :install_gem_no_doc => [:clean, :package] do
+  sh "#{'sudo ' unless Hoe::WINDOZE }gem install pkg/*.gem --no-rdoc --no-ri"
+end
+
+namespace :manifest do
+  desc 'Recreate Manifest.txt to include ALL files'
+  task :refresh do
+    `rake check_manifest | patch -p0 > Manifest.txt`
+  end
+end

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/tasks/website.rake

@@ -0,0 +1,17 @@
+desc 'Generate website files'
+task :website_generate => :ruby_env do
+  (Dir['website/**/*.txt'] - Dir['website/version*.txt']).each do |txt|
+    sh %{ #{RUBY_APP} script/txt2html #{txt} > #{txt.gsub(/txt$/,'html')} }
+  end
+end
+
+desc 'Upload website files to rubyforge'
+task :website_upload do
+  host = "#{rubyforge_username}@rubyforge.org"
+  remote_dir = "/var/www/gforge-projects/#{PATH}/"
+  local_dir = 'website'
+  sh %{rsync -aCv #{local_dir}/ #{host}:#{remote_dir}}
+end
+
+desc 'Generate and upload website files'
+task :website => [:website_generate, :website_upload, :publish_docs]

data/test/test_bugs.rb

@@ -0,0 +1,93 @@
+
+#==============================================================================#
+# $Id: test_bugs.rb 52 2008-07-09 05:24:17Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+
+#==============================================================================#
+
+class TestBugs < Test::Unit::TestCase
+  # MEMO:
+  #   * rubyneko - KagemushaとActiveRecordの不具合
+  #     http://ujihisa.nowa.jp/entry/6a4d5a6423
+  #   * rubyneko - KagemushaとActiveRecordの不具合(2)
+  #     http://ujihisa.nowa.jp/entry/c45f6db41e
+  #   * Non free as in air - KagemushaとActiveRecordの不具合(2)
+  #     http://www.kuwashima.org/niki/?date=20071116
+  #   * KagemushaとActiveRecordの不具合の解消 - Hello, world! - s21g
+  #     http://blog.s21g.com/articles/656
+  def test_report01
+    parent_c = Class.new
+    parent_m = class << parent_c; self; end
+    child_c  = Class.new(parent_c)
+
+    parent_m.instance_eval { define_method(:target) { :original } }
+
+    musha = Kagemusha.new(child_c)
+    musha.defs(:target) { :replaced }
+
+    assert_equal(:original, child_c.target)
+
+    musha.swap {
+      assert_equal(:replaced, child_c.target)
+    }
+
+    # TypeError: singleton method bound for a different object
+    assert_nothing_raised {
+      assert_equal(:original, child_c.target)
+    }
+  end
+
+  def test_report01_failure_mechanism
+    parent_c = Class.new
+    parent_m = class << parent_c; self; end
+    child_c  = Class.new(parent_c)
+    child_m  = class << child_c; self; end
+
+    parent_m.instance_eval { define_method(:target) { :original } }
+
+    assert_equal(:original, child_c.target)
+
+    name = :target
+    new_method = proc { :replaced }
+    old_method = child_m.instance_method(name)
+    child_m.instance_eval { define_method(name, new_method) }
+
+    assert_equal(:replaced, child_c.target)
+
+    child_m.instance_eval { define_method(name, old_method) }
+
+    assert_raise(TypeError) {
+      child_c.target
+    }
+  end
+
+  def test_report01_correct_mechanism
+    parent_c = Class.new
+    parent_m = class << parent_c; self; end
+    child_c  = Class.new(parent_c)
+    child_m  = class << child_c; self; end
+
+    parent_m.instance_eval { define_method(:target) { :original } }
+
+    assert_equal(:original, child_c.target)
+
+    name = :target
+    new_method = proc { :replaced }
+    old_method = child_m.instance_method(name)
+
+    assert_equal(false, child_c.singleton_methods(false).include?(name.to_s))
+
+    child_m.instance_eval { define_method(name, new_method) }
+
+    assert_equal(:replaced, child_c.target)
+
+    child_m.instance_eval { remove_method(name) }
+
+    assert_equal(:original, child_c.target)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/test/test_complex_cases.rb

@@ -0,0 +1,308 @@
+
+#==============================================================================#
+# $Id: test_complex_cases.rb 60 2008-07-09 08:15:02Z yuyakato $
+#==============================================================================#
+
+require File.dirname(__FILE__) + "/test_helper.rb"
+
+#==============================================================================#
+
+class TestComplexCases < Test::Unit::TestCase
+  module M1
+    def m1_instance
+      return :m1_instance
+    end
+  end
+
+  module M2
+    def m2_class
+      return :m2_class
+    end
+  end
+
+  class C1
+    include M1
+    extend M2
+
+    def self.c1_class
+      return :c1_class
+    end
+
+    def c1_instance
+      return :c1_instance
+    end
+  end
+
+  class C2 < C1
+  end
+
+  class C3 < C1
+  end
+
+  def test_replace_instance_method_defined_on_self_class
+    c1 = C1.new
+    c2 = C2.new
+    c3 = C3.new
+
+    old_value = :c1_instance
+    new_value = :c1_instance_replaced1
+
+    musha = Kagemusha.new(C1)
+    musha.def(:c1_instance) { new_value }
+
+    assert_equal(old_value, c1.c1_instance)
+    assert_equal(old_value, c2.c1_instance)
+    assert_equal(old_value, c3.c1_instance)
+
+    musha.swap {
+      assert_equal(new_value, c1.c1_instance)
+      assert_equal(new_value, c2.c1_instance)
+      assert_equal(new_value, c3.c1_instance)
+    }
+
+    assert_equal(old_value, c1.c1_instance)
+    assert_equal(old_value, c2.c1_instance)
+    assert_equal(old_value, c3.c1_instance)
+
+    def c1.c1_instance
+      return :singleton
+    end
+
+    assert_equal(:singleton, c1.c1_instance)
+    assert_equal(old_value,  c2.c1_instance)
+    assert_equal(old_value,  c3.c1_instance)
+
+    musha.swap {
+      assert_equal(:singleton, c1.c1_instance)
+      assert_equal(new_value,  c2.c1_instance)
+      assert_equal(new_value,  c3.c1_instance)
+    }
+
+    assert_equal(:singleton, c1.c1_instance)
+    assert_equal(old_value,  c2.c1_instance)
+    assert_equal(old_value,  c3.c1_instance)
+  end
+
+  def test_replace_class_method_defined_on_self_class
+    old_value = :c1_class
+    new_value = :c1_class_replaced1
+
+    musha = Kagemusha.new(C1)
+    musha.defs(:c1_class) { new_value }
+
+    assert_equal(old_value, C1.c1_class)
+    assert_equal(old_value, C2.c1_class)
+    assert_equal(old_value, C3.c1_class)
+
+    musha.swap {
+      assert_equal(new_value, C1.c1_class)
+      assert_equal(new_value, C2.c1_class)
+      assert_equal(new_value, C3.c1_class)
+    }
+
+    assert_equal(old_value, C1.c1_class)
+    assert_equal(old_value, C2.c1_class) # FIXME: TypeError: singleton method bound for a different object
+    assert_equal(old_value, C3.c1_class) # FIXME: TypeError: singleton method bound for a different object
+  end
+
+  def test_replace_instance_method_defined_on_parent_class
+    c1 = C1.new
+    c2 = C2.new
+    c3 = C3.new
+
+    old_value = :c1_instance
+    new_value = :c1_instance_replaced2
+
+    musha = Kagemusha.new(C2)
+    musha.def(:c1_instance) { new_value }
+
+    assert_equal(old_value, c1.c1_instance)
+    assert_equal(old_value, c2.c1_instance)
+    assert_equal(old_value, c3.c1_instance)
+
+    musha.swap {
+      assert_equal(old_value, c1.c1_instance)
+      assert_equal(new_value, c2.c1_instance)
+      assert_equal(old_value, c3.c1_instance)
+    }
+
+    assert_equal(old_value, c1.c1_instance)
+    assert_equal(old_value, c2.c1_instance)
+    assert_equal(old_value, c3.c1_instance)
+
+    def c2.c1_instance
+      return :singleton
+    end
+
+    assert_equal(old_value,  c1.c1_instance)
+    assert_equal(:singleton, c2.c1_instance)
+    assert_equal(old_value,  c3.c1_instance)
+
+    musha.swap {
+      assert_equal(old_value,  c1.c1_instance)
+      assert_equal(:singleton, c2.c1_instance)
+      assert_equal(old_value,  c3.c1_instance)
+    }
+
+    assert_equal(old_value,  c1.c1_instance)
+    assert_equal(:singleton, c2.c1_instance)
+    assert_equal(old_value,  c3.c1_instance)
+  end
+
+  def test_replace_class_method_defined_on_parent_class
+    old_value = :c1_class
+    new_value = :c1_class_replaced2
+
+    musha = Kagemusha.new(C2)
+    musha.defs(:c1_class) { new_value }
+
+    assert_equal(old_value, C1.c1_class)
+    assert_equal(old_value, C2.c1_class)
+    assert_equal(old_value, C3.c1_class)
+
+    musha.swap {
+      assert_equal(old_value, C1.c1_class)
+      assert_equal(new_value, C2.c1_class)
+      assert_equal(old_value, C3.c1_class)
+    }
+
+    assert_equal(old_value, C1.c1_class)
+    assert_equal(old_value, C2.c1_class)
+    assert_equal(old_value, C3.c1_class)
+  end
+
+  def test_replace_instance_method_defined_on_self_class_including_module
+    c1 = C1.new
+    c2 = C2.new
+    c3 = C3.new
+
+    old_value = :m1_instance
+    new_value = :m1_instance_replaced1
+
+    musha = Kagemusha.new(C1)
+    musha.def(:m1_instance) { new_value }
+
+    assert_equal(old_value, c1.m1_instance)
+    assert_equal(old_value, c2.m1_instance)
+    assert_equal(old_value, c3.m1_instance)
+
+    musha.swap {
+      assert_equal(new_value, c1.m1_instance)
+      assert_equal(new_value, c2.m1_instance)
+      assert_equal(new_value, c3.m1_instance)
+    }
+
+    assert_equal(old_value, c1.m1_instance)
+    assert_equal(old_value, c2.m1_instance)
+    assert_equal(old_value, c3.m1_instance)
+
+    def c1.m1_instance
+      return :singleton
+    end
+
+    assert_equal(:singleton, c1.m1_instance)
+    assert_equal(old_value,   c2.m1_instance)
+    assert_equal(old_value,   c3.m1_instance)
+
+    musha.swap {
+      assert_equal(:singleton, c1.m1_instance)
+      assert_equal(new_value,  c2.m1_instance)
+      assert_equal(new_value,  c3.m1_instance)
+    }
+
+    assert_equal(:singleton, c1.m1_instance)
+    assert_equal(old_value,   c2.m1_instance)
+    assert_equal(old_value,   c3.m1_instance)
+  end
+
+  def test_replace_class_method_defined_on_self_class_extending_module
+    old_value = :m2_class
+    new_value = :m2_class_replaced1
+
+    musha = Kagemusha.new(C1)
+    musha.defs(:m2_class) { new_value }
+
+    assert_equal(old_value, C1.m2_class)
+    assert_equal(old_value, C2.m2_class)
+    assert_equal(old_value, C3.m2_class)
+
+    musha.swap {
+      assert_equal(new_value, C1.m2_class)
+      assert_equal(new_value, C2.m2_class)
+      assert_equal(new_value, C3.m2_class)
+    }
+
+    assert_equal(old_value, C1.m2_class)
+    assert_equal(old_value, C2.m2_class)
+    assert_equal(old_value, C3.m2_class)
+  end
+
+  def test_replace_instance_method_defined_on_parent_class_including_module
+    c1 = C1.new
+    c2 = C2.new
+    c3 = C3.new
+
+    old_value = :m1_instance
+    new_value = :m1_instance_replaced2
+
+    musha = Kagemusha.new(C2)
+    musha.def(:m1_instance) { new_value }
+
+    assert_equal(old_value, c1.m1_instance)
+    assert_equal(old_value, c2.m1_instance)
+    assert_equal(old_value, c3.m1_instance)
+
+    musha.swap {
+      assert_equal(old_value, c1.m1_instance)
+      assert_equal(new_value, c2.m1_instance)
+      assert_equal(old_value, c3.m1_instance)
+    }
+
+    assert_equal(old_value, c1.m1_instance)
+    assert_equal(old_value, c2.m1_instance)
+    assert_equal(old_value, c3.m1_instance)
+
+    def c2.m1_instance
+      return :singleton
+    end
+
+    assert_equal(old_value,  c1.m1_instance)
+    assert_equal(:singleton, c2.m1_instance)
+    assert_equal(old_value,  c3.m1_instance)
+
+    musha.swap {
+      assert_equal(old_value,  c1.m1_instance)
+      assert_equal(:singleton, c2.m1_instance)
+      assert_equal(old_value,  c3.m1_instance)
+    }
+
+    assert_equal(old_value,  c1.m1_instance)
+    assert_equal(:singleton, c2.m1_instance)
+    assert_equal(old_value,  c3.m1_instance)
+  end
+
+  def test_replace_class_method_defined_on_parent_class_extending_module
+    old_value = :m2_class
+    new_value = :m2_class_replaced2
+
+    musha = Kagemusha.new(C2)
+    musha.defs(:m2_class) { new_value }
+
+    assert_equal(old_value, C1.m2_class)
+    assert_equal(old_value, C2.m2_class)
+    assert_equal(old_value, C3.m2_class)
+
+    musha.swap {
+      assert_equal(old_value, C1.m2_class)
+      assert_equal(new_value, C2.m2_class)
+      assert_equal(old_value, C3.m2_class)
+    }
+
+    assert_equal(old_value, C1.m2_class)
+    assert_equal(old_value, C2.m2_class)
+    assert_equal(old_value, C3.m2_class)
+  end
+end
+
+#==============================================================================#
+#==============================================================================#

data/website/index.html

@@ -33,36 +33,37 @@
     <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.3</a>
+      <a href="http://rubyforge.org/projects/kagemusha" class="numbers">0.0.4</a>
     </div>
-    <h2>What</h2>
-
-
-	<p>Kagemusha is a library of helper functions for testing Ruby scripts.
-It helps you generating scoped mock-objects which overrides behavior of the class restricted in given blocks, without tainting a global area.</p>
-
-
-	<h2>Installing</h2>
-
-
-<pre syntax="ruby"># gem install kagemusha</pre>
-
-	<h2>The basics</h2>
-
-
-	<h2>Demonstration of usage</h2>
-
-
-	<h2>License</h2>
-
-
-	<p>This code is free to use under the terms of Ruby&#8217;s license.</p>
-
-
-	<h2>Contact</h2>
-
-
-	<p>Comments are welcome.
+    <h2>What</h2>
+
+
+	<p>Kagemusha is a library of helper functions for testing Ruby scripts.
+It helps you generating scoped mock-objects which overrides behavior of the class restricted in given blocks, without tainting a global area.</p>
+
+
+	<h2>Installing</h2>
+
+
+	<p><pre class='syntax'><span class="comment"># gem install kagemusha</span></pre></p>
+
+
+	<h2>The basics</h2>
+
+
+	<h2>Demonstration of usage</h2>
+
+
+	<h2>License</h2>
+
+
+	<p>This code is free to use under the terms of Ruby&#8217;s license.</p>
+
+
+	<h2>Contact</h2>
+
+
+	<p>Comments are welcome.
 Send an email to yuyakato at gmail dot com.</p>
 </div>
 

data/website/{template.rhtml → template.html.erb}

@@ -1,44 +1,44 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
-"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
-<head>
-  <link rel="stylesheet" href="stylesheets/screen.css" type="text/css" media="screen" />
-  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
-  <title>
-      <%= title %>
-  </title>
-  <script src="javascripts/rounded_corners_lite.inc.js" type="text/javascript"></script>
-<style>
-
-</style>
-  <script type="text/javascript">
-    window.onload = function() {
-      settings = {
-          tl: { radius: 10 },
-          tr: { radius: 10 },
-          bl: { radius: 10 },
-          br: { radius: 10 },
-          antiAlias: true,
-          autoPad: true,
-          validTags: ["div"]
-      }
-      var versionBox = new curvyCorners(settings, document.getElementById("version"));
-      versionBox.applyCornersToAll();
-    }
-  </script>
-</head>
-<body>
-<div id="main">
-
-    <h1><%= title %></h1>
-    <div id="version" class="clickable" onclick='document.location = "<%= download %>"; return false'>
-      <p>Get Version</p>
-      <a href="<%= download %>" class="numbers"><%= version %></a>
-    </div>
-    <%= body %>
-</div>
-
-<!-- insert site tracking codes here, like Google Urchin -->
-
-</body>
-</html>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+  <link rel="stylesheet" href="stylesheets/screen.css" type="text/css" media="screen" />
+  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+  <title>
+      <%= title %>
+  </title>
+  <script src="javascripts/rounded_corners_lite.inc.js" type="text/javascript"></script>
+<style>
+
+</style>
+  <script type="text/javascript">
+    window.onload = function() {
+      settings = {
+          tl: { radius: 10 },
+          tr: { radius: 10 },
+          bl: { radius: 10 },
+          br: { radius: 10 },
+          antiAlias: true,
+          autoPad: true,
+          validTags: ["div"]
+      }
+      var versionBox = new curvyCorners(settings, document.getElementById("version"));
+      versionBox.applyCornersToAll();
+    }
+  </script>
+</head>
+<body>
+<div id="main">
+
+    <h1><%= title %></h1>
+    <div id="version" class="clickable" onclick='document.location = "<%= download %>"; return false'>
+      <p>Get Version</p>
+      <a href="<%= download %>" class="numbers"><%= version %></a>
+    </div>
+    <%= body %>
+</div>
+
+<!-- insert site tracking codes here, like Google Urchin -->
+
+</body>
+</html>