mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
afb02bbe92
path without caching the computed path. Some classes are frozen, and will raise an exception without this. * probes.d (cmethod-entry, cmethod-return): separate cmethods from regular methods to match set trace func. * probes_helper.h: refactor macros. Fix probes to avoid calling #inspect when profiling. * insns.def: update for use with new macros. * vm_eval.c: ditto * vm_insnhelper.c: ditto * test/dtrace/test_singleton_function.rb: fix test for new output. * test/dtrace/test_cmethod.rb: test the cmethod probes. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@38099 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
55 lines
1.3 KiB
Ruby
55 lines
1.3 KiB
Ruby
require 'dtrace/helper'
|
|
|
|
module DTrace
|
|
class TestSingletonFunctionEntry < TestCase
|
|
def test_entry
|
|
probe = <<-eoprobe
|
|
ruby$target:::method-entry
|
|
/strstr(copyinstr(arg0), "Foo") != NULL/
|
|
{
|
|
printf("%s %s %s %d\\n", copyinstr(arg0), copyinstr(arg1), copyinstr(arg2), arg3);
|
|
}
|
|
eoprobe
|
|
|
|
trap_probe(probe, ruby_program) { |d_file, rb_file, probes|
|
|
foo_calls = probes.map { |line| line.split }.find_all { |row|
|
|
row.first == 'Foo' && row[1] == 'foo'
|
|
}
|
|
|
|
assert_equal 10, foo_calls.length
|
|
line = '2'
|
|
foo_calls.each { |f| assert_equal line, f[3] }
|
|
foo_calls.each { |f| assert_equal rb_file, f[2] }
|
|
}
|
|
end
|
|
|
|
def test_exit
|
|
probe = <<-eoprobe
|
|
ruby$target:::method-return
|
|
{
|
|
printf("%s %s %s %d\\n", copyinstr(arg0), copyinstr(arg1), copyinstr(arg2), arg3);
|
|
}
|
|
eoprobe
|
|
|
|
trap_probe(probe, ruby_program) { |d_file, rb_file, probes|
|
|
foo_calls = probes.map { |line| line.split }.find_all { |row|
|
|
row.first == 'Foo' && row[1] == 'foo'
|
|
}
|
|
|
|
assert_equal 10, foo_calls.length
|
|
line = '2'
|
|
foo_calls.each { |f| assert_equal line, f[3] }
|
|
foo_calls.each { |f| assert_equal rb_file, f[2] }
|
|
}
|
|
end
|
|
|
|
def ruby_program
|
|
<<-eoruby
|
|
class Foo
|
|
def self.foo; end
|
|
end
|
|
10.times { Foo.foo }
|
|
eoruby
|
|
end
|
|
end
|
|
end if defined?(DTrace::TestCase)
|