test/ruby/test_trace.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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
end