1 files changed, 138 insertions, 0 deletions
diff --git a/ruby_1_8_5/test/ruby/test_settracefunc.rb b/ruby_1_8_5/test/ruby/test_settracefunc.rb
new file mode 100644
index 0000000000..39e1b035d8
--- /dev/null
+++ b/ruby_1_8_5/test/ruby/test_settracefunc.rb
@@ -0,0 +1,138 @@
+require 'test/unit'
+
+class TestSetTraceFunc < Test::Unit::TestCase
+  def foo; end;
+
+  def bar
+    events = []
+    set_trace_func(Proc.new { |event, file, lineno, mid, bidning, klass|
+      events << [event, lineno, mid, klass]
+    })
+    return events
+  end
+
+  def test_event
+    events = []
+    set_trace_func(Proc.new { |event, file, lineno, mid, bidning, klass|
+      events << [event, lineno, mid, klass]
+    })
+    a = 1
+    foo
+    a
+    b = 1 + 2
+    if b == 3
+      case b
+      when 2
+        c = "b == 2"
+      when 3
+        c = "b == 3"
+      end
+    end
+    begin
+      raise "error"
+    rescue
+    end
+    eval("class Foo; end")
+    set_trace_func nil
+
+    assert_equal(["line", 19, :test_event, TestSetTraceFunc],
+                 events.shift)     # a = 1
+    assert_equal(["line", 20, :test_event, TestSetTraceFunc],
+                 events.shift)     # foo
+    assert_equal(["call", 4, :foo, TestSetTraceFunc],
+                 events.shift)     # foo
+    assert_equal(["return", 4, :foo, TestSetTraceFunc],
+                 events.shift)     # foo
+    assert_equal(["line", 21, :test_event, TestSetTraceFunc],
+                 events.shift)     # a
+    assert_equal(["line", 22, :test_event, TestSetTraceFunc],
+                 events.shift)     # b = 1 + 2
+    assert_equal(["c-call", 22, :+, Fixnum],
+                 events.shift)     # 1 + 2
+    assert_equal(["c-return", 22, :+, Fixnum],
+                 events.shift)     # 1 + 2
+    assert_equal(["line", 23, :test_event, TestSetTraceFunc],
+                 events.shift)     # if b == 3
+    assert_equal(["line", 23, :test_event, TestSetTraceFunc],
+                 events.shift)     # if b == 3
+    assert_equal(["c-call", 23, :==, Fixnum],
+                 events.shift)     # b == 3
+    assert_equal(["c-return", 23, :==, Fixnum],
+                 events.shift)     # b == 3
+    assert_equal(["line", 24, :test_event, TestSetTraceFunc],
+                 events.shift)     # case b
+    assert_equal(["line", 25, :test_event, TestSetTraceFunc],
+                 events.shift)     # when 2
+    assert_equal(["c-call", 25, :===, Kernel],
+                 events.shift)     # when 2
+    assert_equal(["c-call", 25, :==, Fixnum],
+                 events.shift)     # when 2
+    assert_equal(["c-return", 25, :==, Fixnum],
+                 events.shift)     # when 2
+    assert_equal(["c-return", 25, :===, Kernel],
+                 events.shift)     # when 2
+    assert_equal(["line", 27, :test_event, TestSetTraceFunc],
+                 events.shift)     # when 3
+    assert_equal(["c-call", 27, :===, Kernel],
+                 events.shift)     # when 3
+    assert_equal(["c-return", 27, :===, Kernel],
+                 events.shift)     # when 3
+    assert_equal(["line", 28, :test_event, TestSetTraceFunc],
+                 events.shift)     # c = "b == 3"
+    assert_equal(["line", 31, :test_event, TestSetTraceFunc],
+                 events.shift)     # begin
+    assert_equal(["line", 32, :test_event, TestSetTraceFunc],
+                 events.shift)     # raise "error"
+    assert_equal(["c-call", 32, :raise, Kernel],
+                 events.shift)     # raise "error"
+    assert_equal(["c-call", 32, :new, Class],
+                 events.shift)     # raise "error"
+    assert_equal(["c-call", 32, :initialize, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["c-return", 32, :initialize, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["c-return", 32, :new, Class],
+                 events.shift)     # raise "error"
+    assert_equal(["c-call", 32, :backtrace, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["c-return", 32, :backtrace, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["c-call", 32, :set_backtrace, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["c-return", 32, :set_backtrace, Exception],
+                 events.shift)     # raise "error"
+    assert_equal(["raise", 32, :test_event, TestSetTraceFunc],
+                 events.shift)     # raise "error"
+    assert_equal(["c-return", 32, :raise, Kernel],
+                 events.shift)     # raise "error"
+    assert_equal(["line", 35, :test_event, TestSetTraceFunc],
+                 events.shift)     # eval(<<EOF)
+    assert_equal(["c-call", 35, :eval, Kernel],
+                 events.shift)     # eval(<<EOF)
+    assert_equal(["line", 1, :test_event, TestSetTraceFunc],
+                 events.shift)     # class Foo
+    assert_equal(["c-call", 1, :inherited, Class],
+                 events.shift)     # class Foo
+    assert_equal(["c-return", 1, :inherited, Class],
+                 events.shift)     # class Foo
+    assert_equal(["class", 1, :test_event, TestSetTraceFunc],
+                 events.shift)     # class Foo
+    assert_equal(["end", 1, :test_event, TestSetTraceFunc],
+                 events.shift)     # class Foo
+    assert_equal(["c-return", 35, :eval, Kernel],
+                 events.shift)     # eval(<<EOF)
+    assert_equal(["line", 36, :test_event, TestSetTraceFunc],
+                 events.shift)     # set_trace_func nil
+    assert_equal(["c-call", 36, :set_trace_func, Kernel],
+                 events.shift)     # set_trace_func nil
+    assert_equal([], events)
+
+    events = bar
+    set_trace_func(nil)
+    assert_equal(["line", 11, :bar, TestSetTraceFunc], events.shift)
+    assert_equal(["return", 7, :bar, TestSetTraceFunc], events.shift)
+    assert_equal(["line", 131, :test_event, TestSetTraceFunc], events.shift)
+    assert_equal(["c-call", 131, :set_trace_func, Kernel], events.shift)
+    assert_equal([], events)
+  end
+end