rbx-trepanning 0.2.0-universal-rubinius-2.0

data/test/data/fname-with-blank.right

@@ -0,0 +1,6 @@
+-> (fname with blank.rb:1 @0)
+puts "Ha!"
+basename is off.
+Ha!
+trepanx: That's all, folks...
+trepanx: That's all, folks...

data/test/data/inline-call.cmd

@@ -0,0 +1,6 @@
+# ***************************************************
+# This calling the debugger from inside the source
+# ***************************************************
+set basename off
+list
+q!

data/test/data/inline-call.right

@@ -0,0 +1,14 @@
+-- (inline-call.rb:11 @12)
+if a > b
+basename is off.
+  3    	require_relative '../../lib/trepanning.rb'
+  4    	DATA_DIR = File.join(File.dirname(RequireRelative::abs_file), %w(.. data))
+  5    	cmdfile = File.join(DATA_DIR, 'inline-call.cmd')
+  6    	$dbgr = Trepan.new(:nx => true, :cmdfiles => [cmdfile])
+  7    	# GCD. We assume positive numbers
+  8    	def gcd(a, b)
+  9    	  $dbgr.debugger
+ 10    	  # Make: a <= b
+ 11  ->	  if a > b
+ 12    	    a, b = [b, a]
+trepanx: That's all, folks...

data/test/data/quit-Xdebug.right

@@ -0,0 +1,3 @@
+-> (/home/rocky-rvm/.rvm/src/rbx-trepanning/test/example/null.rb:1 @0)
+# Nothing here. Move along.
+(trepanx): (trepanx): (trepanx): (trepanx): (trepanx): 

data/test/data/quit.cmd

@@ -0,0 +1,5 @@
+# ***************************************************
+# This tests the quit.
+# ***************************************************
+# FIXME need to test --no-quit.
+quit!

data/test/data/quit.right

@@ -0,0 +1,3 @@
+-> (null.rb:1 @0)
+# Nothing here. Move along.
+trepanx: That's all, folks...

data/test/data/quit2.cmd

@@ -0,0 +1,6 @@
+# ***************************************************
+# This tests the quit via "set confirm off"
+# ***************************************************
+# FIXME need to test --no-quit.
+set confirm off
+quit

data/test/data/quit2.right

@@ -0,0 +1,3 @@
+-> (null.rb:1 @0)
+# Nothing here. Move along.
+confirm is off.

data/test/example/.gitignore

@@ -0,0 +1,2 @@
+/*~
+/*.rbc

data/test/example/debugger-stop.rb

@@ -0,0 +1,16 @@
+# !/usr/bin/env ruby
+# Bug in debugger in 1.9.2 only in that where 
+# stopping where we were inside debugger was stopping
+# inside itself because multiple debugger names in the presence of modules
+# 
+require 'rubygems'; require 'require_relative'
+require_relative '../../lib/trepanning'
+module Foo
+  module_function
+  def five
+    debugger  # Resolves to Module#debugger not Kernel#debugger
+    5
+  end
+end
+debugger(:immediate=>true)
+Foo::five

data/test/example/factorial.rb

@@ -0,0 +1,10 @@
+def factorial(n)
+  if n > 0
+    return n * factorial(n-1)
+  else
+    return 1
+  end
+end
+n = ARGV[0] || 5
+puts "#{n}! is #{factorial(5)}"
+

data/test/example/fname with blank.rb

@@ -0,0 +1 @@
+puts "Ha!"

data/test/example/gcd-server.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# GCD. We assume positive numbers
+require 'rubygems'; require 'require_relative'
+require_relative '../../lib/trepanning.rb'
+$dbgr = Trepan.new(:server => true)
+def gcd(a, b)
+  $dbgr.debugger
+  # Make: a <= b
+  if a > b
+    a, b = [b, a]
+  end
+
+  return nil if a <= 0
+
+  if a == 1 or b-a == 0
+    return a
+  end
+  return gcd(b-a, a)
+end
+
+a, b = ARGV[0..1].map {|arg| arg.to_i}
+puts "The GCD of %d and %d is %d" % [a, b, gcd(a, b)]

data/test/example/gcd.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+
+# GCD. We assume positive numbers
+def gcd(a, b)
+  # Make: a <= b
+  if a > b
+    a, b = [b, a]
+  end
+
+  return nil if a <= 0
+
+  if a == 1 or b-a == 0
+    return a
+  end
+  return gcd(b-a, a)
+end
+
+a, b = ARGV[0..1].map {|arg| arg.to_i}
+puts "The GCD of %d and %d is %d" % [a, b, gcd(a, b)]

data/test/example/goto2goto.rb

@@ -0,0 +1,11 @@
+def find_main_script(loc)
+  candidate = nil
+  if loc
+    candidate = 20
+  else
+    return 10
+  end
+  candidate
+end
+
+find_main_script('foo')

data/test/example/inline-call.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative '../../lib/trepanning.rb'
+DATA_DIR = File.join(File.dirname(RequireRelative::abs_file), %w(.. data))
+cmdfile = File.join(DATA_DIR, 'inline-call.cmd')
+$dbgr = Trepan.new(:nx => true, :cmdfiles => [cmdfile])
+# GCD. We assume positive numbers
+def gcd(a, b)
+  $dbgr.debugger
+  # Make: a <= b
+  if a > b
+    a, b = [b, a]
+  end
+
+  return nil if a <= 0
+
+  if a == 1 or b-a == 0
+    return a
+  end
+end
+
+a, b = ARGV[0..1].map {|arg| arg.to_i}
+puts "The GCD of %d and %d is %d" % [a, b, gcd(a, b)]

data/test/example/null.rb

@@ -0,0 +1 @@
+# Nothing here. Move along.

data/test/example/thread1.rb

@@ -0,0 +1,3 @@
+Thread.new do 
+  x = 1
+end.join

data/test/functional/.gitignore

@@ -0,0 +1,3 @@
+/*.rbc
+/*~
+

data/test/functional/fn_helper.rb

@@ -0,0 +1,112 @@
+## require 'thread_frame'
+## require 'trace'
+require 'rubygems'; require 'require_relative'
+require_relative '../../lib/trepanning'
+require_relative '../../io/string_array'
+
+module FnTestHelper
+  ## include Trace
+
+  ## # Synchronous events without C frames or instructions
+  # Common setup to create a debugger with String Array I/O attached
+  def strarray_setup(debugger_cmds, insn_stepping=false)
+    stringin               = Trepan::StringArrayInput.open(debugger_cmds)
+    stringout              = Trepan::StringArrayOutput.open
+    d_opts                 = {:input  => stringin, :output => stringout,
+                              :nx     => true}
+    d                      = Trepan.new(d_opts)
+
+    d.settings[:basename]  = d.processor.settings[:basename] = true
+    d.settings[:different] = false
+    d.settings[:autoeval]  = false
+    return d
+  end
+
+  unless defined?(TREPAN_PROMPT)
+    TREPAN_PROMPT = /^\(trepanx\): /
+    TREPAN_LOC    = /.. \(.+:\d+( @\d+)?\)/
+  end
+
+  # Return the caller's line number
+  def get_lineno
+    Rubinius::VM.backtrace(0)[1].line
+  end
+
+  def compare_output(right, d, debugger_cmds)
+    # require_relative '../../lib/trepanning'
+    # Trepan.debug(:set_restart => true)
+    got = filter_line_cmd(d.intf[-1].output.output)
+    if got != right
+      got.each_with_index do |got_line, i|
+        if i < right.size and got_line != right[i]
+          # dbgr.debugger
+          puts "! #{got_line}"
+        else
+          puts "  #{got_line}"
+        end
+      end
+      puts '-' * 10
+      right.each_with_index do |right_line, i|
+        if i < got.size and got[i] != right_line
+          # dbgr.debugger
+          puts "! #{right_line}"
+        else
+          puts "  #{right_line}"
+        end
+      end
+    end
+    assert_equal(right, got, caller[0])
+  end
+
+  # Return output with source lines prompt and command removed
+  def filter_line_cmd(a, show_prompt=false)
+    # Remove debugger prompt
+    a = a.map do |s|
+     s =~ TREPAN_PROMPT ? nil : s
+    end.compact unless show_prompt
+
+    # Remove debugger location lines. 
+    # For example: 
+    #   -- (/src/external-vcs/trepan/tmp/gcd.rb:4 @21)
+    # becomes:
+    #   -- 
+    a2 = a.map do |s|
+      s =~ TREPAN_LOC ? s.gsub(/\(.+:\d+( @\d+)?\)\n/, '').chomp : s.chomp
+    end
+
+    # Canonicalize breakpoint messages. 
+    # For example: 
+    #   Set breakpoint 1: test/functional/test-tbreak.rb:10 (@0)
+    # becomes :
+    #   Set breakpoint 1: foo.rb:55 (@3)
+    a3 = a2.map do |s|
+      s.gsub(/^Set (temporary )?breakpoint (\d+): .+:(\d+) \(@\d+\)/, 
+             'Set \1breakpoint \2: foo.rb:55 (@3)')
+    end
+    return a3
+  end
+
+end
+
+# Demo it
+if __FILE__ == $0
+  include FnTestHelper
+  strarray_setup(%w(eh bee see))
+  puts get_lineno()
+  p '-- (/src/external-vcs/trepan/tmp/gcd.rb:4)' =~ TREPAN_LOC
+  p '(trepan): exit' =~ TREPAN_PROMPT
+  output='
+-- (/src/external-vcs/trepan/tmp/gcd.rb:4)
+(trepan): s
+-- (/src/external-vcs/trepan/tmp/gcd.rb:18)
+(trepan): s
+-- (/src/external-vcs/trepan/tmp/gcd.rb:19)
+(trepan): s
+.. (/src/external-vcs/trepan/tmp/gcd.rb:0)
+(trepan): s
+-> (/src/external-vcs/trepan/tmp/gcd.rb:4)
+'.split(/\n/)
+  puts filter_line_cmd(output)
+  puts '-' * 10
+  puts filter_line_cmd(output, true)
+end

data/test/functional/test-break-name.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+def five
+  5
+end
+
+class TestNameBreak < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def self.six=(val)
+      @six = val
+  end
+
+  def five?(num) 5 == num; end
+
+  def test_basic
+    # Check that we can set breakpoints in parent, sibling and children
+    # of sibling returns. We have one more 'continue' than we need
+    # just in case something goes wrong.
+    cmds = ['break Object.five', 'break TestNameBreak.five?',
+            'break TestNameBreak.six=', 
+            'continue', 'continue', 'continue', 'continue']
+            
+    d = strarray_setup(cmds)
+    ##############################
+    d.start 
+    five 
+    five?(5)
+    TestNameBreak::six=6
+    ##############################
+    d.stop # ({:remove => true})
+    out =  ["-- ",
+            "five ",
+            "Set breakpoint 1: foo.rb:55 (@3)",
+            "Set breakpoint 2: foo.rb:55 (@3)",
+            "Set breakpoint 3: foo.rb:55 (@3)",
+            "xx ",
+            "5",
+            "xx ",
+            "def five?(num) 5 == num; end",
+            "xx ",
+            "@six = val"]
+    compare_output(out, d, cmds)
+  end
+
+end
+
+

data/test/functional/test-break.rb

@@ -0,0 +1,85 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+class TestBreak < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  # Looks like we can no longer get lines inside of foo or inner blocks
+  def FIXME_test_line_only_break
+    # Check that we can set breakpoints in parent, sibling and children
+    # of sibling returns. We have one more 'continue' than we need
+    # just in case something goes wrong.
+    cmds_pat = ((['break %d'] * 4) + (%w(continue) * 4)).join("\n")
+    line = __LINE__
+    cmds = (cmds_pat % [line, line+6, line+11, line+14]).split(/\n/)
+    d = strarray_setup(cmds)
+    ##############################
+    def foo      # line +  4
+      a = 5      # line +  5
+      b = 6      # line +  6
+    end          # line +  7
+    1.times do   # line +  8
+      d.start    # line +  9
+      1.times do # line + 10
+        x = 11   # line + 11
+        foo      # line + 12
+      end        # line + 13
+      c = 14     # line + 14
+    end
+    ##############################
+    d.stop # ({:remove => true})
+    puts d.intf[-1].output.output
+    assert(true)
+    return
+    out = ["-- ",
+           '1.times do # line + 10',
+           'Set breakpoint 1: foo.rb:55 (@3)',
+           'Set breakpoint 2: foo.rb:55 (@3)',
+           'Set breakpoint 3: foo.rb:55 (@3)',
+           'Set breakpoint 4: foo.rb:55 (@3)',
+           'xx ',
+           'x = 11   # line + 11',
+           'xx ',
+           'b = 6      # line +  6',
+           'xx ',
+           'c = 14     # line + 14'
+          ]
+    compare_output(out, d, cmds)
+  end
+
+  def test_line_only_break_reduced
+    # Check that we can set breakpoints in parent, sibling and children
+    # of sibling returns. We have one more 'continue' than we need
+    # just in case something goes wrong.
+    cmds_pat = ((['break %d'] * 1) + (%w(continue) * 3)).join("\n")
+    line = __LINE__
+    cmds = (cmds_pat % [line+14]).split(/\n/)
+    d = strarray_setup(cmds)
+    ##############################
+    def foo      # line +  4
+      a = 5      # line +  5
+      b = 6      # line +  6
+    end          # line +  7
+    1.times do   # line +  8
+      d.start    # line +  9
+      1.times do # line + 10
+        x = 11   # line + 11
+        foo      # line + 12
+      end        # line + 13
+      c = 14     # line + 14
+    end
+    ##############################
+    d.stop # ({:remove => true})
+    out = ["-- ",
+           '1.times do # line + 10',
+           'Set breakpoint 1: foo.rb:55 (@3)',
+           'xx ',
+           'c = 14     # line + 14'
+          ]
+    compare_output(out, d, cmds)
+  end
+
+end

data/test/functional/test-eval.rb

@@ -0,0 +1,115 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+class TestEval < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_eval_questionmark
+
+    # See that eval? strips 'if'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    if 3 > 5
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'if 3 > 5', 'eval: 3 > 5', '$d0 = false']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'if' and 'then'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    if 3 > 5 then
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'if 3 > 5 then', 'eval: 3 > 5', '$d0 = false']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'unless'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    unless 3 < 5
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'unless 3 < 5', 'eval: 3 < 5', '$d0 = true']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'unless' and 'then
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    unless 3 < 5 then
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'unless 3 < 5 then', 'eval: 3 < 5', '$d0 = true']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'while'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    while nil
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'while nil', 'eval: nil', '$d0 = nil']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'while' and 'do'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    while nil do
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'while nil do', 'eval: nil', '$d0 = nil']
+    compare_output(out, d, cmds)
+    
+    # See that eval? strips 'until' and 'do'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    until true do
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'until true do', 'eval: true', '$d0 = true']
+    compare_output(out, d, cmds)
+
+    # See that eval? strips 'until'
+    cmds = %w(eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    until true
+      assert false
+    end
+    d.stop
+    out = ['-- ', 'until true', 'eval: true', '$d0 = true']
+    compare_output(out, d, cmds)
+
+    # See that eval? strips 'return'
+    def five
+      return 5
+    end
+    cmds = %w(step eval? continue)
+    d = strarray_setup(cmds)
+    d.start
+    five
+    d.stop
+    out = ['-- ', 'five', '-> ', 'return 5', 'eval: 5', '$d0 = 5']
+    compare_output(out, d, cmds)
+  end
+    
+end
+
+

data/test/functional/test-finish.rb

@@ -0,0 +1,70 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+class TestFinish < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_finish_between_fn
+    # "Finish" over a recursive function. We use a recursive function
+    # so that we check that the temporary breakpoint created in the
+    # implementation is specific to the frame. See Rubinius issue
+    # #558.
+    def fact(x)
+      return 1 if x <= 1
+      x = x * fact(x-1)
+      return x
+    end
+    # An extra 'continue' added in case something goes wrong.
+    cmds = %w(step finish) + ['pr x', 'continue', 'continue'] 
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    x = fact(4)
+    y = 5
+    ##############################
+    d.stop # ({:remove => true})
+    out = ['-- ',
+           'x = fact(4)',
+           '-> ',
+           'return 1 if x <= 1',
+           '<- ',
+           'return x',
+           '24']
+    compare_output(out, d, cmds)
+  end
+  
+  def test_finish_between_fn_simple
+    
+    # Finish over functions
+    def five; 5 end
+    def something(x)
+      return 1 if x <= 1
+      x =
+        if five > 5
+          24
+        else
+          22
+        end
+    end
+    cmds = %w(step finish) + ['pr x', 'continue'] 
+    d = strarray_setup(cmds)
+    d.start
+    ##############################
+    x = something(4)
+    y = 5
+    ##############################
+    d.stop # ({:remove => true})
+    out = [
+           '-- ', 
+           'x = something(4)', 
+           '-> ',
+           'return 1 if x <= 1',
+           '<- ',
+           'x =', '22']
+    compare_output(out, d, cmds)
+  end
+  
+end

data/test/functional/test-fn_helper.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+class TestFnTestHelper < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def test_basic
+    assert_equal(__LINE__, get_lineno, 'get_lineno()')
+    assert_equal(0,
+                 '-- (/tmp/trepan/tmp/gcd.rb:4)' =~ TREPAN_LOC)
+    assert_equal(0, '(trepanx): exit' =~ TREPAN_PROMPT)
+
+    output='
+-- (/tmp/trepan/tmp/gcd.rb:4)
+(trepanx): s
+-- (/tmp/trepan/tmp/gcd.rb:18)
+(trepanx): s
+-- (/tmp/trepan/tmp/gcd.rb:19)
+(trepanx): s
+.. (/tmp/trepan/tmp/gcd.rb:0)
+(trepanx): s
+-> (/tmp/trepan/tmp/gcd.rb:4)
+'.split(/\n/)
+   expect='
+-- (/tmp/trepan/tmp/gcd.rb:4)
+-- (/tmp/trepan/tmp/gcd.rb:18)
+-- (/tmp/trepan/tmp/gcd.rb:19)
+.. (/tmp/trepan/tmp/gcd.rb:0)
+-> (/tmp/trepan/tmp/gcd.rb:4)
+'.split(/\n/)
+  assert_equal(expect, filter_line_cmd(output))
+  end
+  
+end
+
+
+
+
+
+