From 6175ca03be6d0d51359f9017123708987d0f5eb7 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 15 Aug 2007 23:23:39 +0000
Subject: add tag v1_8_5_91

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_91@13046 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_5/test/ruby/test_settracefunc.rb | 138 ++++++++++++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100644 ruby_1_8_5/test/ruby/test_settracefunc.rb

(limited to 'ruby_1_8_5/test/ruby/test_settracefunc.rb')

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
-- 
cgit v1.2.3