From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001
From: Jari Vetoniemi <jari.vetoniemi@indooratlas.com>
Date: Mon, 16 Mar 2020 18:49:26 +0900
Subject: Fresh start

---
 jni/ruby/test/-ext-/debug/test_profile_frames.rb | 104 +++++++++++++++++++++++
 1 file changed, 104 insertions(+)
 create mode 100644 jni/ruby/test/-ext-/debug/test_profile_frames.rb

(limited to 'jni/ruby/test/-ext-/debug/test_profile_frames.rb')

diff --git a/jni/ruby/test/-ext-/debug/test_profile_frames.rb b/jni/ruby/test/-ext-/debug/test_profile_frames.rb
new file mode 100644
index 0000000..1879c22
--- /dev/null
+++ b/jni/ruby/test/-ext-/debug/test_profile_frames.rb
@@ -0,0 +1,104 @@
+require 'test/unit'
+require '-test-/debug'
+
+class SampleClassForTestProfileFrames
+  class Sample2
+    def baz(block)
+      instance_eval "def zab(block) block.call end"
+      [self, zab(block)]
+    end
+  end
+
+  def self.bar(block)
+    Sample2.new.baz(block)
+  end
+
+  def foo(block)
+    self.class.bar(block)
+  end
+end
+
+class TestProfileFrames < Test::Unit::TestCase
+  def test_profile_frames
+    obj, frames = Fiber.new{
+      Fiber.yield SampleClassForTestProfileFrames.new.foo(lambda{ Bug::Debug.profile_frames(0, 10) })
+    }.resume
+
+    labels = [
+      "block (2 levels) in test_profile_frames",
+      "zab",
+      "baz",
+      "bar",
+      "foo",
+      "block in test_profile_frames",
+    ]
+    base_labels = [
+      "test_profile_frames",
+      "zab",
+      "baz",
+      "bar",
+      "foo",
+      "test_profile_frames",
+    ]
+    full_labels = [
+      "block (2 levels) in TestProfileFrames#test_profile_frames",
+      "#{obj.inspect}.zab",
+      "SampleClassForTestProfileFrames::Sample2#baz",
+      "SampleClassForTestProfileFrames.bar",
+      "SampleClassForTestProfileFrames#foo",
+      "block in TestProfileFrames#test_profile_frames",
+    ]
+    classes = [
+      TestProfileFrames,
+      obj,
+      SampleClassForTestProfileFrames::Sample2,
+      SampleClassForTestProfileFrames, # singleton method
+      SampleClassForTestProfileFrames,
+      TestProfileFrames,
+    ]
+    singleton_method_p = [
+      false, true, false, true, false, false, false,
+    ]
+    method_names = [
+      "test_profile_frames",
+      "zab",
+      "baz",
+      "bar",
+      "foo",
+      "test_profile_frames",
+    ]
+    qualified_method_names = [
+      "TestProfileFrames#test_profile_frames",
+      "#{obj.inspect}.zab",
+      "SampleClassForTestProfileFrames::Sample2#baz",
+      "SampleClassForTestProfileFrames.bar",
+      "SampleClassForTestProfileFrames#foo",
+      "TestProfileFrames#test_profile_frames",
+    ]
+    paths = [ file=__FILE__, "(eval)", file, file, file, file ]
+    absolute_paths = [ file, nil, file, file, file, file ]
+
+    # pp frames
+
+    assert_equal(labels.size, frames.size)
+
+    frames.each.with_index{|(path, absolute_path, label, base_label, full_label, first_lineno,
+                            classpath, singleton_p, method_name, qualified_method_name), i|
+      err_msg = "#{i}th frame"
+      assert_equal(paths[i], path, err_msg)
+      assert_equal(absolute_paths[i], absolute_path, err_msg)
+      assert_equal(labels[i], label, err_msg)
+      assert_equal(base_labels[i], base_label, err_msg)
+      assert_equal(singleton_method_p[i], singleton_p, err_msg)
+      assert_equal(method_names[i], method_name, err_msg)
+      assert_match(qualified_method_names[i], qualified_method_name, err_msg)
+      assert_match(full_labels[i], full_label, err_msg)
+      assert_match(classes[i].inspect, classpath, err_msg)
+      if label == method_name
+        c = classes[i]
+        m = singleton_p ? c.method(method_name) : c.instance_method(method_name)
+        assert_equal(m.source_location[1], first_lineno, err_msg)
+      end
+    }
+  end
+end
-- 
cgit v1.2.3