ruby-debug 0.9.3 → 0.10.0

data/test/frame.right

@@ -0,0 +1,45 @@
+gcd.rb:4
+def gcd(a, b)
+# # ***************************************************
+# # This tests step, next, finish and continue
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# continue 6
+gcd.rb:6
+if a > b
+# where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:18
+# up
+#1 at line gcd.rb:18
+# where
+    #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #1 at line gcd.rb:18
+# down
+#0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+# where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:18
+# frame 0
+#0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+# where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:18
+# frame -1
+#1 at line gcd.rb:18
+# where
+    #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #1 at line gcd.rb:18
+# up 2
+Adjusting would put us beyond the oldest (initial) frame.# where
+    #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #1 at line gcd.rb:18
+# down 2
+Adjusting would put us beyond the newest (innermost) frame.# where
+    #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #1 at line gcd.rb:18
+# # finish
+# quit

data/test/gcd.rb

@@ -0,0 +1,18 @@
+#!/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
+
+gcd(3,5)

data/test/help.cmd

@@ -0,0 +1,12 @@
+# $Id: setshow.cmd 298 2007-08-28 10:07:35Z rockyb $
+# This tests the functioning of some set/show debugger commands
+set debuggertesting on
+set autoeval off
+set width 80
+### *******************************
+### ***   help commands         ***
+### *******************************
+help foo
+# FIXME - the below should work
+# help 
+# help step

data/test/help.right

@@ -0,0 +1,4 @@
+Currently testing the debugger is on.
+autoeval is off.
+width is 80.
+Undefined command: "foo".  Try "help".

data/test/helper.rb

@@ -0,0 +1,87 @@
+# Some common routines used in testing.
+
+require "fileutils"
+# require "diff/lcs"
+# require "diff/lcs/hunk"
+
+module TestHelper
+  
+  def run_debugger(testname, args='', outfile=nil, filter=nil)
+    rightfile = File.join(SRC_DIR, "#{testname}.right")
+    
+    outfile = File.join(SRC_DIR, "#{testname}.out") unless outfile
+
+    if File.exists?(outfile)
+      FileUtils.rm(outfile)
+    end
+    
+    ENV['RDEBUG'] = "#{SRC_DIR}tdebug.rb"
+    cmd = "/bin/sh #{File.join(SRC_DIR, '../runner.sh')} #{args} >#{outfile}"
+    output = `#{cmd}`
+    
+    got_lines     = File.read(outfile).split(/\n/)
+    correct_lines = File.read(rightfile).split(/\n/)
+    filter.call(got_lines, correct_lines) if filter
+    if cheap_diff(got_lines, correct_lines)
+      FileUtils.rm(outfile)
+      return true
+    end
+    return false
+  end
+
+  def cheap_diff(got_lines, correct_lines)
+    puts got_lines if $DEBUG
+    correct_lines.each_with_index do |line, i|
+      correct_lines[i].chomp!
+      if got_lines[i] != correct_lines[i]
+        puts "difference found at line #{i+1}"
+        puts "got : #{got_lines[i]}"
+        puts "need: #{correct_lines[i]}"
+        return false
+      end
+    end
+    if correct_lines.size != got_lines.size
+      puts("difference in number of lines: " + 
+           "#{correct_lines.size} vs. #{got_lines.size}")
+      return false
+    end
+    return true
+  end
+
+
+  # Adapted from the Ruby Cookbook, Section 6.10: Comparing two files.
+  # def diff_as_string(rightfile, checkfile, format=:unified, context_lines=3)
+  #   right_data = File.read(rightfile)
+  #   check_data = File.read(checkfile)
+  #   output = ""
+  #   diffs = Diff::LCS.diff(right_data, check_data)
+  #   return output if diffs.empty?
+  #   oldhunk = hunk = nil
+  #   debugger
+  #   file_length_difference = 0
+  #   diffs.each do |piece|
+  #     begin
+  #       hunk = Diff::LCS::Hunk.new(right_data, check_data, piece, 
+  #                                  context_lines, file_length_difference)
+  #       next unless oldhunk
+  #
+  #       # Hunks may overlap, which is why we need to be careful when our
+  #       # diff includes lines of context. Otherwise, we might print
+  #       # redundant lines.
+  #       if (context_lines > 0) and hunk.overlaps?(oldhunk)
+  #         hunk.unshift(oldhunk)
+  #         else
+  #         output << oldhunk.diff(format)
+  #       end
+  #     ensure
+  #       oldhunk = hunk
+  #       output << "\n"
+  #     end
+  #   end
+  
+  #   # Handle the last remaining hunk 
+  #   output << oldhunk.diff(format) << "\n"
+  # end
+
+end
+

data/test/info-var-bug.rb

@@ -0,0 +1,45 @@
+class Lousy_inspect
+  attr_accessor :var
+  def inspect    # An unhelpful inspect
+    throw "Foo"  # Raises an exception
+  end
+  def initialize
+    @var = 'initialized'
+  end
+end
+class Lousy_inspect_and_to_s
+  attr_accessor :var
+  def inspect    # An unhelpful inspect
+    throw "Foo"  # Raises an exception
+  end
+  def to_s       # An unhelpful to_s
+    throw "bar"  # Raises an exception
+  end
+  def initialize
+    @var = 'initialized'  # Something to inspect
+  end
+end
+
+# Something that will be passed objects with
+# bad inspect or to_s methods
+class UnsuspectingClass
+  def initialize(a)
+    @a = a      # "info locals" will try to use
+                # inspect or to_s here
+    @b = 5
+  end
+end
+def test_Lousy_inspect
+  x = Lousy_inspect.new
+  return x
+end
+def test_lousy_inspect_and_to_s
+  x = Lousy_inspect_and_to_s.new
+  return x
+end
+x = test_Lousy_inspect
+y = test_lousy_inspect_and_to_s
+UnsuspectingClass.new(10)
+UnsuspectingClass.new(x)
+UnsuspectingClass.new(y)
+y = 2

data/test/info-var.cmd

@@ -0,0 +1,23 @@
+# ***************************************************
+# Test handling of info variables when we have 
+# redefined inspect or to_s which give an error.
+# ***************************************************
+set debuggertesting on
+# Go to where we have a bad "inspect" of a local variable
+continue 34
+info variables
+# Go to where we have a bad "inspect" and "to_s" of a local variable
+continue 38
+info variables
+break 29
+# The first time through, we can do inspect.
+continue
+info locals
+# Now go to where we have a bad "inspect" of an class variable
+continue
+info locals
+info variables
+# Now go to where we have a bad "inspect" and "to_s" of an class variable
+continue
+info locals
+quit

data/test/info-var.right

@@ -0,0 +1,47 @@
+info-var-bug.rb:1
+class Lousy_inspect
+# # ***************************************************
+# # Test handling of info variables when we have 
+# # redefined inspect or to_s which give an error.
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# # Go to where we have a bad "inspect" of a local variable
+# continue 34
+info-var-bug.rb:34
+return x
+# info variables
+x = #<Lousy_inspect:0xb784945c>
+# # Go to where we have a bad "inspect" and "to_s" of a local variable
+# continue 38
+info-var-bug.rb:38
+return x
+# info variables
+x = *Error in evaluation*
+# break 29
+Breakpoint 1 file info-var-bug.rb, line 29
+# # The first time through, we can do inspect.
+# continue
+Breakpoint 1 at info-var-bug.rb:29
+info-var-bug.rb:29
+@b = 5
+# info locals
+a = 10
+# # Now go to where we have a bad "inspect" of an class variable
+# continue
+Breakpoint 1 at info-var-bug.rb:29
+info-var-bug.rb:29
+@b = 5
+# info locals
+a = #<Lousy_inspect:0xb784945c>
+# info variables
+a = #<Lousy_inspect:0xb784945c>
+@a = #<Lousy_inspect:0xb784945c>
+# # Now go to where we have a bad "inspect" and "to_s" of an class variable
+# continue
+Breakpoint 1 at info-var-bug.rb:29
+info-var-bug.rb:29
+@b = 5
+# info locals
+*Error in evaluation*
+# quit

data/test/info.cmd

@@ -0,0 +1,12 @@
+# ***************************************************
+# This tests step, next, finish and continue
+# ***************************************************
+set debuggertesting on
+set callstyle last
+help info
+info args
+info line
+info locals
+info stack
+info display
+quit

data/test/info.right

@@ -0,0 +1,35 @@
+gcd.rb:4
+def gcd(a, b)
+# # ***************************************************
+# # This tests step, next, finish and continue
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# help info
+Generic command for showing things about the program being debugged.
+-- 
+List of info subcommands:
+--  
+info args -- Argument variables of current stack frame
+info breakpoints -- Status of user-settable breakpoints
+info display -- Expressions to display when program stops
+info file -- File names and timestamps of files read in
+info global_variables -- global variables
+info instance_variables -- instance variables
+info line -- Line number and file name of current position in source
+info locals -- Local variables of the current stack frame
+info program -- Execution status of the program
+info stack -- Backtrace of the stack
+info threads -- IDs of currently known threads
+info variables -- local and instance variables
+# info args
+# info line
+Line 4 of "./gcd.rb"
+# info locals
+# info stack
+--> #0 at line gcd.rb:4
+# info display
+There are no auto-display expressions now.
+# quit

data/test/quit.cmd

@@ -0,0 +1,9 @@
+# ***************************************************
+# This tests display expressions.
+# ***************************************************
+set debuggertesting on
+c
+break 18
+c
+next
+quit

data/test/quit.right

@@ -0,0 +1,22 @@
+gcd.rb:4
+def gcd(a, b)
+# # ***************************************************
+# # This tests display expressions.
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# c
+The program has finished and will be restarted.
+gcd.rb:4
+def gcd(a, b)
+# break 18
+Breakpoint 1 file gcd.rb, line 18
+# c
+Breakpoint 1 at gcd.rb:18
+gcd.rb:18
+gcd(3,5)
+# next
+The program has finished and will be restarted.
+gcd.rb:4
+def gcd(a, b)
+# quit

data/test/setshow.cmd

@@ -0,0 +1,44 @@
+# $Id: setshow.cmd 346 2007-11-14 01:39:05Z rockyb $
+# This tests the functioning of some set/show debugger commands
+set debuggertesting on
+### *******************************
+### ***   Set/show commands     ***
+### *******************************
+########################################
+###   test args and baseneme...
+########################################
+set args this is a test
+show args
+show basename
+set basename foo
+show base
+set basename off
+show basename
+set basename 0
+show basename
+set basename 1
+show basename
+########################################
+###   test listsize tests...
+########################################
+show listsize
+show listsi
+set listsize abc
+set listsize -20
+########################################
+###  test linetrace...
+########################################
+set linetrace on
+show linetrace
+set linetrace off
+show linetrace
+########################################
+###  show history
+########################################
+set history
+set history size 10
+show history size
+set history save off
+show history save
+set history save 1
+show history save

data/test/setshow.right

@@ -0,0 +1,73 @@
+gcd.rb:4
+def gcd(a, b)
+# # $Id: setshow.cmd 346 2007-11-14 01:39:05Z rockyb $
+# # This tests the functioning of some set/show debugger commands
+# set debuggertesting on
+Currently testing the debugger is on.
+# ### *******************************
+# ### ***   Set/show commands     ***
+# ### *******************************
+# ########################################
+# ###   test args and baseneme...
+# ########################################
+# set args this is a test
+Argument list to give program being debugged when it is started is "this is a test".
+# show args
+Argument list to give program being debugged when it is started is "this is a test".
+# show basename
+basename is on.
+# set basename foo
+Expecting 'on', 1, 'off', or 0. Got: foo.
+# show base
+basename is on.
+# set basename off
+basename is off.
+# show basename
+basename is off.
+# set basename 0
+basename is off.
+# show basename
+basename is off.
+# set basename 1
+basename is on.
+# show basename
+basename is on.
+# ########################################
+# ###   test listsize tests...
+# ########################################
+# show listsize
+Number of source lines to list by default is 10.
+# show listsi
+Number of source lines to list by default is 10.
+# set listsize abc
+Set listsize argument 'abc' needs to be a number.
+# set listsize -20
+Set listsize argument '-20' needs to at least 1.
+# ########################################
+# ###  test linetrace...
+# ########################################
+# set linetrace on
+line tracing is on.
+# show linetrace
+line tracing is on.
+# set linetrace off
+line tracing is off.
+# show linetrace
+line tracing is off.
+# ########################################
+# ###  show history
+# ########################################
+# set history
+Need two parameters for 'set history'; got 0.
+# set history size 10
+Debugger history size is 10
+# show history size
+Debugger history size is 10
+# set history save off
+Saving of history save is off.
+# show history save
+Saving of history save is off.
+# set history save 1
+Saving of history save is on.
+# show history save
+Saving of history save is on.