summaryrefslogtreecommitdiff
path: root/test/ruby/test_trace.rb
diff options
context:
space:
mode:
Diffstat (limited to 'test/ruby/test_trace.rb')
-rw-r--r--test/ruby/test_trace.rb23
1 files changed, 23 insertions, 0 deletions
diff --git a/test/ruby/test_trace.rb b/test/ruby/test_trace.rb
new file mode 100644
index 0000000000..74fb1148f0
--- /dev/null
+++ b/test/ruby/test_trace.rb
@@ -0,0 +1,23 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestTrace < Test::Unit::TestCase
+ def test_trace
+ $x = 1234
+ $y = 0
+ trace_var :$x, proc{$y = $x}
+ $x = 40414
+ assert($y == $x)
+
+ untrace_var :$x
+ $x = 19660208
+ assert($y != $x)
+
+ trace_var :$x, proc{$x *= 2}
+ $x = 5
+ assert($x == 10)
+
+ untrace_var :$x
+ end
+end