trepanning 0.0.4

data/test/functional/test-condition.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+require_relative '../../app/breakpoint'
+
+class TestBreak < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_condition
+    file = File.basename(__FILE__)
+
+    # See that we can next with parameter which is the same as 'next 1'
+    cmds = ['set basename on',
+            'break ' + (__LINE__ + 7).to_s, 
+            'condition 1 x < 5',
+            'continue']
+    d = strarray_setup(cmds)
+    d.start
+    ########### b1 ###############
+    x = 6
+    y = 7
+    z = 8
+    ##############################
+    d.stop
+    out = ['-- ',
+           'x = 6',
+           'basename is on.',
+           "Breakpoint 1 set at line #{__LINE__-7} in file #{file},\n" + 
+           "\tVM offset 55 of instruction sequence \"test_condition\"."
+          ]
+    compare_output(out, d, cmds)
+
+    # Try a condition that fails
+    cmds = ['set basename on',
+            'break ' + (__LINE__ + 7).to_s, 
+            'condition 1 x > 5',
+            'continue']
+    d = strarray_setup(cmds)
+    d.start
+    ########### b2 ###############
+    x = 6
+    y = 7
+    z = 8
+    ##############################
+    d.stop
+    out = ['-- ',
+           'x = 6',
+           'basename is on.',
+           "Breakpoint 1 set at line #{__LINE__-7} in file #{file},\n" + 
+           "\tVM offset 55 of instruction sequence \"test_condition\".",
+           'xx ',
+           'y = 7']
+    compare_output(out, d, cmds)
+  end
+    
+end
+

data/test/functional/test-debugger-call-bug.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require_relative '../../lib/trepanning'
+
+class TestTrepanCallBug < Test::Unit::TestCase
+
+  def test_debugger_call_bug
+    $calls = []
+    mydbgr = nil
+    2.times do
+      x = 1
+      mydbgr = Trepan.new()
+      mydbgr.core.processor.define_singleton_method(:process_commands) do
+        |frame|
+        # p [frame.source_container, frame.source_location, @core.event].flatten
+        $calls << [frame.source_container, frame.source_location].flatten
+      end
+      mydbgr.debugger
+      y = 2
+    end
+    mydbgr.stop  
+    assert_equal true, $calls.size > 0, $calls
+  end
+  
+end
+
+
+
+
+
+

data/test/functional/test-delete.rb

@@ -0,0 +1,71 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+require_relative '../../app/breakpoint'
+
+class TestDelete < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_delete
+
+    # See that when we can delete a breakpoint.
+    cmds = ['set basename on',
+            'break ' + (__LINE__ + 9).to_s, 
+            'delete 1', 
+            'continue',
+           ]
+    d = strarray_setup(cmds)
+    d.start
+    ########### b1 ###############
+    va = 1
+    vb = 2
+    vc = 3
+    vd = 4
+    ve = 5
+    ##############################
+    d.stop
+    out = ['-- ',
+           'va = 1',
+           'basename is on.',
+           "Breakpoint 1 set at line #{__LINE__-8} in file test-delete.rb,\n\tVM offset 55 of instruction sequence \"test_delete\".",
+           "Deleted breakpoint 1."]
+    compare_output(out, d, cmds)
+
+    # See that when we can delete a breakpoint but get to the next one.
+    cmds = ['set basename on',
+            'set autoeval on',
+            'break ' + (__LINE__ + 11).to_s, 
+            'break ' + (__LINE__ + 12).to_s, 
+            'delete 1', 
+            'continue',
+            'va',
+            'continue',
+           ]
+    d = strarray_setup(cmds)
+    d.start
+    ########### b1 ###############
+    va = 1
+    vb = 2
+    va = 3
+    vd = 4
+    ve = 5
+    ##############################
+    d.stop
+    out = ["-- ",
+           "va = 1",
+           "basename is on.",
+           "Evaluation of unrecognized debugger commands is on.",
+           "Breakpoint 1 set at line #{__LINE__-10} in file test-delete.rb,\n\tVM offset 55 of instruction sequence \"test_delete\".",
+           "Breakpoint 2 set at line #{__LINE__-9} in file test-delete.rb,\n\tVM offset 55 of instruction sequence \"test_delete\".",
+           "Deleted breakpoint 1.",
+           "xx ",
+           "vd = 4",
+           "D=> 3"]
+    compare_output(out, d, cmds)
+
+  end
+    
+end
+

data/test/functional/test-finish.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+
+class TestFinish < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_finish_between_fn
+    
+    # Finish over functions
+    def fact(x)
+      return 1 if x <= 1
+      x = x * fact(x-1)
+      return x
+    end
+    cmds = %w(step finish) + ['24 == x', 'continue'] 
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    x = fact(4)
+    y = 5
+    ##############################
+    d.stop # ({:remove => true})
+    out = ['-- ',
+           'x = fact(4)',
+           'METHOD TestFinish#fact(x)',
+           '-> ',
+           'def fact(x)',
+           '<- ',
+           'R=> 24',
+           'end',
+           'D=> true']
+    compare_output(out, d, cmds)
+  end
+  
+end
+
+
+
+
+
+

data/test/functional/test-immediate-step-bug.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+
+class TestStep < Test::Unit::TestCase
+
+  include FnTestHelper
+  include Trace
+
+  def test_step_same_level
+
+    puts "FIXME test_step_same_level"
+    assert true
+    return
+    # See that we can step with parameter which is the same as 'step 1'
+    cmds = ['next', 'next', 'continue', 'continue']
+    d = strarray_setup(cmds)
+    d.core.step_events = TEST_STEP_EVENT_MASK
+
+    ########### immediate bug1 ###############
+    2.times do 
+      x = 1
+      d.debugger(:immediate => true)
+      y = 2
+    end
+    ##############################
+    d.stop
+    out = [':o ', 'd.debugger(:immediate => true)', 
+           '-- ', 'y = 2',
+           '-- ', 'x = 1',
+           ':o ', 'd.debugger(:immediate => true)']
+    compare_output(out, d, cmds)
+  end
+end

data/test/functional/test-next.rb

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+
+class TestNext < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_next_same_level
+
+    # See that we can next with parameter which is the same as 'next 1'
+    cmds = %w(next continue)
+    d = strarray_setup(cmds)
+    d.start
+    x = 5
+    y = 6
+    d.stop
+    out = ['-- ', 'x = 5', '-- ', 'y = 6']
+    compare_output(out, d, cmds)
+    
+    # See that we can next with a computed count value
+    cmds = ['next 5-3', 'continue']
+    d = strarray_setup(cmds)
+    d.start
+    ########### t1 ###############
+    x = 5
+    y = 6
+    z = 7
+    ##############################
+    d.stop # ({'remove': true})
+    out = ['-- ', 'x = 5', '-- ', 'z = 7']
+    compare_output(out, d, cmds)
+  end
+    
+  def test_next_between_fn
+    
+    # Next over functions
+    cmds = ['next 2', 'continue']
+    d = strarray_setup(cmds)
+    d.start
+    ########### t2 ###############
+    def fact(x)
+      return 1 if x <= 1
+      return fact(x-1)
+    end
+    x = fact(4)
+    y = 5
+    ##############################
+    d.stop # ({:remove => true})
+    out = ['-- ', 'def fact(x)', '-- ', 'y = 5']
+    compare_output(out, d, cmds)
+  end
+  
+  def test_next_in_exception
+    cmds = %w(next! continue)
+    d = strarray_setup(cmds)
+    d.start
+    ########### t2 ###############
+    begin
+      got_boom = false
+      x = 4/0
+    rescue
+      got_boom = true
+    end
+    ##############################
+    d.stop # ({:remove => true})
+    out = ['-- ', 'begin']
+    compare_output(out, d, cmds)
+  end
+end
+
+
+
+
+
+

data/test/functional/test-raise.rb

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+
+class TestRaise < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_raise
+
+    cmds = [
+            'step',
+            'step',
+            'raise',
+            'print "hi"',
+            ]
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    begin
+      x = 1
+      y = 2
+      z = 3
+    rescue RuntimeError
+      d.stop
+      assert 'We are cool with RuntimeError'
+    else
+      d.stop
+      assert false, 'Should have got RuntimeError'
+    end
+    ##############################
+    out = ['-- ', 'begin',
+           '-- ', 'x = 1',
+           '-- ', 'y = 2',
+           '-- ', 'd.stop',
+           'hi']
+    compare_output(out, d, cmds)
+
+    # Try with explicit Exception name
+    cmds = [
+            'next',
+            'raise [5]',
+            'raise NotanError',
+            'step',
+            'raise TypeError',
+            ]
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    begin
+      x = 1
+      y = 2
+      z = 3
+    rescue TypeError
+      d.stop
+      assert 'We are cool with TypeError'
+    else
+      d.stop
+      assert false, 'Should have got TypeError'
+    end
+    ##############################
+    d.stop # ({:remove => true})
+    out = ['-- ', 'begin',
+           '-- ', 'x = 1',
+           '** "[5]" does not inherit Exception.',
+           '** "NotanError" does not inherit Exception.',
+           '-- ', 'y = 2',
+           '-- ', 'd.stop']
+    compare_output(out, d, cmds)
+  end
+  
+end

data/test/functional/test-return.rb

@@ -0,0 +1,100 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'trace'
+require_relative 'fn_helper'
+
+class TestRaise < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_return
+
+    cmds = [
+            'set events call, return',
+            'step',
+            'info args',
+            'step',
+            'info return',
+            'set return 10',
+            'set events line',
+            'step',
+            'print foo_retval',
+            ]
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    x = 1
+    def foo(arg)
+      5
+    end
+    foo_retval = foo('ho')
+    z = 3
+    ##############################
+    d.stop
+    out = ['-- ',
+           'x = 1',
+           'Trace events we may stop on:',
+           "\tbrkpt, call, return",
+           'METHOD TestRaise#foo(arg)',
+           '-> ',
+           'def foo(arg)',
+           "arg = \"ho\"",
+           '<- ',
+           'R=> 5',
+           'end',
+           'Return value: 5',
+           'Return value was: 5',
+           'New value is: 10',
+           'Trace events we may stop on:',
+           "\tbrkpt, line",
+           '-- ',
+           'z = 3',
+           '10',
+           '-- ',
+           'd.stop']
+    compare_output(out, d, cmds)
+
+    # Try C function
+    cmds = [
+            'set different off',
+            'set events c_call, c_return',
+            'step',
+            'info args',
+            'step',
+            'info return',
+            'set return "abc"',
+            'set events line',
+            'step',
+            'print result',
+            ]
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    a = 1
+    result = File.basename('/a/b.c')
+    ##############################
+    d.stop # ({:remove => true})
+    out = ["-- ",
+           "a = 1",
+           'different is off.',
+           "Trace events we may stop on:",
+           "\tbrkpt, c_call, c_return",
+           "CFUNC File#basename(\"/a/b.c\")", 
+           "C> ",
+           "result = File.basename('/a/b.c')",
+           "1: \"/a/b.c\"",
+           "<C ",
+           "R=> \"b.c\"",
+           "result = File.basename('/a/b.c')",
+           "Return value: \"b.c\"",
+           "Return value was: \"b.c\"",
+           "New value is: \"abc\"",
+           "Trace events we may stop on:",
+           "\tbrkpt, line",
+           "-- ",
+           "d.stop # ({:remove => true})",
+           "abc"]
+    compare_output(out, d, cmds)
+  end
+  
+end