From 07413b1a5e535e103b3794f28a60b74e08202e0d Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 19 Jun 2014 22:27:53 +0000
Subject: * test/ruby/test_settracefunc.rb: rewrite tests with  
 assert_consistent_call_return().   assert_consistent_call_return() is also
 modified to check   consistency.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@46472 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                      |   8 +++
 test/ruby/test_settracefunc.rb | 139 ++++++++++++-----------------------------
 2 files changed, 48 insertions(+), 99 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index afb92e220e..740c57167b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Fri Jun 20 07:26:44 2014  Koichi Sasada  <ko1@atdot.net>
+
+	* test/ruby/test_settracefunc.rb: rewrite tests with 
+	  assert_consistent_call_return().
+
+	  assert_consistent_call_return() is also modified to check
+	  consistency.
+
 Fri Jun 20 07:07:28 2014  Koichi Sasada  <ko1@atdot.net>
 
 	* compile.c (rb_iseq_compile_node): put start label of block after
diff --git a/test/ruby/test_settracefunc.rb b/test/ruby/test_settracefunc.rb
index 3bbe5b3eea..ac9f9050f9 100644
--- a/test/ruby/test_settracefunc.rb
+++ b/test/ruby/test_settracefunc.rb
@@ -1203,6 +1203,42 @@ class TestSetTraceFunc < Test::Unit::TestCase
     }, '[Bug #9940]'
   end
 
+  def method_prefix event
+    case event
+    when :call, :return
+      :n
+    when :c_call, :c_return
+      :c
+    when :b_call, :b_return
+      :b
+    end
+  end
+
+  def method_label tp
+    "#{method_prefix(tp.event)}##{tp.method_id}"
+  end
+
+  def assert_consistent_call_return message='', check_events: nil
+    check_events ||= %i(a_call a_return)
+    call_stack = []
+
+    TracePoint.new(*check_events){|tp|
+      next unless target_thread?
+
+      case tp.event.to_s
+      when /call/
+        call_stack << method_label(tp)
+      when /return/
+        frame = call_stack.pop
+        assert_equal(frame, method_label(tp))
+      end
+    }.enable do
+      yield
+    end
+
+    assert_equal true, call_stack.empty?
+  end
+
   def method_test_rescue_should_not_cause_b_return
     begin
       raise
@@ -1220,135 +1256,40 @@ class TestSetTraceFunc < Test::Unit::TestCase
   end
 
   def test_rescue_and_ensure_should_not_cause_b_return
-    curr_thread = Thread.current
-    trace = TracePoint.new(:b_call, :b_return){
-      next if curr_thread != Thread.current
-      flunk("Should not reach here because there is no block.")
-    }
-
-    begin
-      trace.enable
+    assert_consistent_call_return '[Bug #9957]' do
       method_test_rescue_should_not_cause_b_return
       begin
         method_test_ensure_should_not_cause_b_return
       rescue
         # ignore
       end
-    ensure
-      trace.disable
     end
   end
 
   define_method(:method_test_argument_error_on_bmethod){|correct_key: 1|}
 
   def test_argument_error_on_bmethod
-    events = []
-    curr_thread = Thread.current
-    TracePoint.new(:call, :return){|tp|
-      next if curr_thread != Thread.current
-      events << [tp.event, tp.method_id]
-    }.enable do
+    assert_consistent_call_return '[Bug #9959]' do
       begin
         method_test_argument_error_on_bmethod(wrong_key: 2)
       rescue => e
         # ignore
       end
     end
-
-    assert_equal [], events # should be empty.
   end
 
   def test_rb_rescue
-    events = []
-    curr_thread = Thread.current
-    TracePoint.new(:a_call, :a_return){|tp|
-      next if curr_thread != Thread.current
-      events << [tp.event, tp.method_id]
-    }.enable do
+    assert_consistent_call_return '[Bug #9961]' do
       begin
         -Numeric.new
       rescue => e
         # ignore
       end
     end
-
-    assert_equal [
-    [:b_call, :test_rb_rescue],
-      [:c_call, :new],
-        [:c_call, :initialize],
-        [:c_return, :initialize],
-      [:c_return, :new],
-      [:c_call, :-@],
-        [:c_call, :coerce],
-          [:c_call, :to_s],
-          [:c_return, :to_s],
-          [:c_call, :new],
-            [:c_call, :initialize],
-            [:c_return, :initialize],
-          [:c_return, :new],
-          [:c_call, :exception],
-          [:c_return, :exception],
-          [:c_call, :backtrace],
-          [:c_return, :backtrace],
-        [:c_return, :coerce],            # don't miss it!
-        [:c_call, :to_s],
-        [:c_return, :to_s],
-        [:c_call, :to_s],
-        [:c_return, :to_s],
-        [:c_call, :new],
-          [:c_call, :initialize],
-          [:c_return, :initialize],
-        [:c_return, :new],
-        [:c_call, :exception],
-        [:c_return, :exception],
-        [:c_call, :backtrace],
-        [:c_return, :backtrace],
-      [:c_return, :-@],
-      [:c_call, :===],
-      [:c_return, :===],
-    [:b_return, :test_rb_rescue]], events
-  end
-
-  def method_prefix event
-    case event
-    when :call, :return
-      :n
-    when :c_call, :c_return
-      :c
-    when :b_call, :b_return
-      :b
-    end
-  end
-
-  def method_label tp
-    "#{method_prefix(tp.event)}##{tp.method_id}"
-  end
-
-  def assert_consistent_call_return message='', check_events: nil
-    check_events ||= %i(a_call a_return)
-    call_events = []
-    return_events = []
-
-    TracePoint.new(*check_events){|tp|
-      next unless target_thread?
-
-      case tp.event.to_s
-      when /call/
-        call_events << method_label(tp)
-      when /return/
-        return_events << method_label(tp)
-      end
-    }.enable do
-      yield
-    end
-
-    assert_equal false, call_events.empty?
-    assert_equal false, return_events.empty?
-    assert_equal call_events, return_events.reverse, message
   end
 
   def test_b_call_with_redo
-    assert_consistent_call_return do
+    assert_consistent_call_return '[Bug #9964]' do
       i = 0
       1.times{
         break if (i+=1) > 10
-- 
cgit v1.2.3