1 files changed, 61 insertions, 0 deletions
diff --git a/spec/ruby/library/fiber/current_spec.rb b/spec/ruby/library/fiber/current_spec.rb
new file mode 100644
index 0000000000..48345fb7cf
--- /dev/null
+++ b/spec/ruby/library/fiber/current_spec.rb
@@ -0,0 +1,61 @@
+require File.expand_path('../../../spec_helper', __FILE__)
+
+with_feature :fiber_library do
+  require 'fiber'
+
+  describe "Fiber.current" do
+    it "returns the root Fiber when called outside of a Fiber" do
+      root = Fiber.current
+      root.should be_an_instance_of(Fiber)
+      # We can always transfer to the root Fiber; it will never die
+      5.times do
+        root.transfer.should be_nil
+        root.alive?.should_not be_false #Workaround for bug #1547
+      end
+    end
+
+    it "returns the current Fiber when called from a Fiber" do
+      fiber = Fiber.new do
+        this = Fiber.current
+        this.should be_an_instance_of(Fiber)
+        this.should == fiber
+        this.alive?.should_not be_false # Workaround for bug #1547
+      end
+      fiber.resume
+    end
+
+    it "returns the current Fiber when called from a Fiber that transferred to another" do
+
+      states = []
+      fiber = Fiber.new do
+        states << :fiber
+        this = Fiber.current
+        this.should be_an_instance_of(Fiber)
+        this.should === fiber
+        this.alive?.should_not be_false # Workaround for bug #1547
+      end
+
+      fiber2 = Fiber.new do
+        states << :fiber2
+        fiber.transfer
+        this = Fiber.current
+        this.should be_an_instance_of(Fiber)
+        this.should === fiber2
+        this.alive?.should_not be_false # Workaround for bug #1547
+      end
+
+      fiber3 = Fiber.new do
+        states << :fiber3
+        fiber2.transfer
+        this = Fiber.current
+        this.should be_an_instance_of(Fiber)
+        this.should === fiber3
+        this.alive?.should_not be_false # Workaround for bug #1547
+        fiber2.transfer
+      end
+
+      fiber3.resume
+      states.should == [:fiber3, :fiber2, :fiber]
+    end
+  end
+end