From ebdd83920b6b97103c93325dbdae13aa32018f78 Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 7 Jun 2007 03:48:13 +0000
Subject: * cont.c (cont_restore_1): fix to check root fiber [ruby-dev:30911].
 * test/ruby/test_fiber.rb: add a test.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@12457 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/ruby/test_fiber.rb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'test/ruby')

diff --git a/test/ruby/test_fiber.rb b/test/ruby/test_fiber.rb
index c99e302b1..6c67a5815 100644
--- a/test/ruby/test_fiber.rb
+++ b/test/ruby/test_fiber.rb
@@ -116,7 +116,15 @@ class TestFiber < Test::Unit::TestCase
     f2 = Fiber.new do
       c.call
     end
-    assert_equal(f1.yield, :ok)
+    assert_equal(:ok, f1.yield)
+
+    assert_equal(:ok,
+      callcc {|c|
+        Fiber.new {
+          c.call :ok
+        }.yield
+      }
+    )
   end
 end
 
-- 
cgit