diff options
Diffstat (limited to 'trunk/test/ruby/test_trace.rb')
-rw-r--r-- | trunk/test/ruby/test_trace.rb | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/trunk/test/ruby/test_trace.rb b/trunk/test/ruby/test_trace.rb new file mode 100644 index 0000000000..48294c9694 --- /dev/null +++ b/trunk/test/ruby/test_trace.rb @@ -0,0 +1,49 @@ +require 'test/unit' + +class TestTrace < Test::Unit::TestCase + def test_trace + $x = 1234 + $y = 0 + trace_var :$x, proc{$y = $x} + $x = 40414 + assert_equal($x, $y) + + untrace_var :$x + $x = 19660208 + assert_not_equal($x, $y) + + trace_var :$x, proc{$x *= 2} + $x = 5 + assert_equal(10, $x) + + untrace_var :$x + end + + def test_trace_tainted_proc + $x = 1234 + s = proc { $y = :foo } + trace_var :$x, s + s.taint + $x = 42 + assert_equal(:foo, $y) + ensure + untrace_var :$x + end + + def test_trace_proc_that_raises_exception + $x = 1234 + trace_var :$x, proc { raise } + assert_raise(RuntimeError) { $x = 42 } + ensure + untrace_var :$x + end + + def test_trace_string + $x = 1234 + trace_var :$x, "$y = :bar" + $x = 42 + assert_equal(:bar, $y) + ensure + untrace_var :$x + end +end |