rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/test/data/enable.right

@@ -0,0 +1,36 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests the enable command.
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# set autoeval off
+autoeval is off.
+# break Object.gcd
+Breakpoint 1 at Object::gcd
+# # Should have a breakpoint 1
+# enable br 1
+# # Get help on enable
+# help enable
+Enable some things.
+This is used to cancel the effect of the "disable" command.
+-- 
+List of enable subcommands:
+--  
+enable breakpoints -- Enable specified breakpoints
+enable display -- Enable some expressions to be displayed when program stops
+# # Get help on just enable break
+# help enable break
+Enable specified breakpoints.
+Give breakpoint numbers (separated by spaces) as arguments.
+This is used to cancel the effect of the "disable" command.
+# # Plain enable should work
+# enable
+*** "enable" must be followed "display", "breakpoints" or breakpoint numbers.
+# # An invalid enable command
+# enable foo
+Enable breakpoints argument 'foo' needs to be a number.
+# quit

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

@@ -0,0 +1,6 @@
+# *******************************************************************
+# Just to see that we can load a filename with an blank in it
+# *******************************************************************
+set basename off
+continue
+

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

@@ -0,0 +1,4 @@
+-> (fname with blank.rb:1 @0)
+puts "Ha!"
+basename is off.
+Ha!

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,13 @@
+-- (inline-call.rb:11 @12)
+if a > b
+basename is off.
+  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]
+ 13   	  end
+ 14   	
+ 15   	  return nil if a <= 0

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,2 @@
+-> (null.rb:1 @0)
+# Nothing here. Move along.

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/data/step-bug.cmd

@@ -0,0 +1,11 @@
+# ***************************************************
+# This tests a stepping bug where lines looks like:
+# #<Rubinius::Tuple: 0, 6, 0, 5, 16, 6, ...
+# Note that line 6 and line 5 both start on offset 0
+# ***************************************************
+pr "HI"
+next
+next
+next
+next
+# quit!

data/test/data/step-bug.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/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/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/step-bug.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/env rake
+# -*- Ruby -*-
+# Are we rubinius? We'll test by checking the specific function we need.
+raise RuntimeError, 'This package is for rubinius only!' unless
+  Object.constants.include?('Rubinius') && 
+  Rubinius.constants.include?('VM') && 
+  Rubinius::VM.respond_to?(:backtrace)
+
+begin
+  require_relative 'lib/version'
+  puts 'Looks like you already have require_relative!'
+  exit 5
+rescue NameError
+end

data/test/example/thread1.rb

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

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]  = 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,51 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative 'fn_helper'
+
+class TestBreak < Test::Unit::TestCase
+
+  include FnTestHelper
+
+  def 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})
+    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
+
+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',
+           '<- ',
+           '22', '22']
+    compare_output(out, d, cmds)
+  end
+  
+end