From 6d2dee14f3d5d4224effd0ec2d8fbc07dc54cbac Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 6 Jun 2007 18:30:14 +0000
Subject: [PATCH] * test_fiber.rb: add a test (Continuation and Fiber).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12455 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog               |  4 ++++
 test/ruby/test_fiber.rb | 16 ++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 3df40a85ea..1abeb5e558 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun  7 03:29:18 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* test_fiber.rb: add a test (Continuation and Fiber).
+
 Thu Jun  7 03:17:24 2007  Koichi Sasada  <ko1@atdot.net>
 
 	* cont.c (cont_new): add debug message.
diff --git a/test/ruby/test_fiber.rb b/test/ruby/test_fiber.rb
index 44caba4520..c99e302b19 100644
--- a/test/ruby/test_fiber.rb
+++ b/test/ruby/test_fiber.rb
@@ -102,5 +102,21 @@ class TestFiber < Test::Unit::TestCase
       end.yield
     }
   end
+
+  def test_with_callcc
+    c = nil
+    f1 = f2 = nil
+    f1 = Fiber.new do
+      callcc do |c2|
+        c = c2
+        f2.yield
+      end
+      :ok
+    end
+    f2 = Fiber.new do
+      c.call
+    end
+    assert_equal(f1.yield, :ok)
+  end
 end