ruby-debug 0.10.0 → 0.10.1

data/test/{quit.cmd → data/quit.cmd}

@@ -1,9 +1,6 @@
 # ***************************************************
-# This tests display expressions.
+# This tests the quit.
 # ***************************************************
 set debuggertesting on
-c
-break 18
-c
-next
+# FIXME need to test --no-quit.
 quit

data/test/data/quit.right

@@ -0,0 +1,9 @@
+tdebug.rb:53
+if bt
+# # ***************************************************
+# # This tests the quit.
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# # FIXME need to test --no-quit.
+# quit

data/test/data/raise.cmd

@@ -0,0 +1,11 @@
+# ********************************************************
+# This tests that the debugger doesn't step into itself
+# when the application doesn't terminate the right way.
+# ********************************************************
+set debuggertesting on
+catch x
+catch ZeroDivisionError
+info catch
+catch 5
+step
+quit

data/test/data/raise.right

@@ -0,0 +1,26 @@
+raise.rb:3
+raise "abc"
+# # ********************************************************
+# # This tests that the debugger doesn't step into itself
+# # when the application doesn't terminate the right way.
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# catch x
+NameError Exception: undefined local variable or method `x' for main:Object
+# catch ZeroDivisionError
+Catch exception ZeroDivisionError.
+# info catch
+ZeroDivisionError
+# catch 5
+Warning 5 is not known to be a Class
+Catch exception 5.
+# step
+	./raise.rb:3
+	./tdebug.rb:52:in `debug_load'
+	./tdebug.rb:52:in `debug_program'
+	./tdebug.rb:243
+	../rdbg.rb:23:in `load'
+	../rdbg.rb:23:in `runner'
+	../rdbg.rb:32
+Uncaught exception: abc

data/test/{setshow.cmd → data/setshow.cmd}

@@ -1,4 +1,3 @@
-# $Id: setshow.cmd 346 2007-11-14 01:39:05Z rockyb $
 # This tests the functioning of some set/show debugger commands
 set debuggertesting on
 ### *******************************

data/test/{setshow.right → data/setshow.right}

@@ -1,6 +1,5 @@
 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.

data/test/data/source.cmd

@@ -0,0 +1,5 @@
+# Test the source command
+# rdebug-save has breakpoint commands
+set debuggertesting on
+source ./rdebug-save.1
+quit

data/test/data/source.right

@@ -0,0 +1,15 @@
+gcd.rb:4
+def gcd(a, b)
+# # Test the source command
+# # rdebug-save has breakpoint commands
+# set debuggertesting on
+Currently testing the debugger is on.
+# source ./rdebug-save.1
+Breakpoint 1 file gcd.rb, line 10
+Breakpoint 2 file gcd.rb, line 12
+autoeval is on.
+basename is off.
+Currently testing the debugger is on.
+autolist is off.
+autoirb is off.
+# quit

data/test/{stepping.cmd → data/stepping.cmd}

@@ -6,12 +6,16 @@ set callstyle last
 next
 where
 step a
-step 2
+set forcestep on
+step- ; step-
+set forcestep off
 where
 n 2
-step
+step+
 where
 step 3
+step+
 where
+next+	
 # finish
 quit

data/test/{stepping.right → data/stepping.right}

@@ -14,16 +14,20 @@ gcd(3,5)
 --> #0 at line gcd.rb:18
 # step a
 Step argument 'a' needs to be a number.
-# step 2
+# set forcestep on
+force-stepping is on.
+# step- ; step-
 gcd.rb:6
 if a > b
+# set forcestep off
+force-stepping is off.
 # where
 --> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
     #1 at line gcd.rb:18
 # n 2
 gcd.rb:10
 return nil if a <= 0
-# step
+# step+
 gcd.rb:12
 if a == 1 or b-a == 0
 # where
@@ -32,9 +36,15 @@ if a == 1 or b-a == 0
 # step 3
 gcd.rb:6
 if a > b
+# step+
+gcd.rb:10
+return nil if a <= 0
 # where
---> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
     #1 Object.-(a#Fixnum, b#Fixnum) at line gcd.rb:15
     #2 at line gcd.rb:18
+# next+	
+gcd.rb:12
+if a == 1 or b-a == 0
 # # finish
 # quit

data/test/data/test-init-cygwin.right

@@ -0,0 +1,7 @@
+gcd-dbg.rb:18
+if a > b
+(rdb:1) p Debugger::PROG_SCRIPT
+"./gcd-dbg.rb"
+(rdb:1) show args
+Argument list to give program being debugged when it is started is "5".
+(rdb:1) quit unconditionally

data/test/data/test-init-osx.right

@@ -0,0 +1,4 @@
+gcd-dbg.rb:18
+if a > b
+"./gcd-dbg.rb"
+Argument list to give program being debugged when it is started is "5".

data/test/data/test-init.right

@@ -0,0 +1,5 @@
+gcd-dbg.rb:18
+if a > b
+(rdb:1) "./gcd-dbg.rb"
+(rdb:1) Argument list to give program being debugged when it is started is "5".
+(rdb:1) 

data/test/data/trace.right

@@ -0,0 +1,23 @@
+Tracing(1):gcd.rb:4 def gcd(a, b)
+Tracing(1):gcd.rb:18 gcd(3,5)
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:15 return gcd(b-a, a)
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:15 return gcd(b-a, a)
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:6 if a > b
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:10 return nil if a <= 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:12 if a == 1 or b-a == 0
+Tracing(1):gcd.rb:13 return a

data/test/dollar-0.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# A test to see that rdebug set's $0 properly.
+puts $0
+puts __FILE__
+

data/test/except-bug2.rb

@@ -0,0 +1,7 @@
+begin
+   exit
+   sleep 20
+rescue SystemExit
+   printf("Exception caught\n")
+end
+puts "You can't debug here"

data/test/gcd-dbg-nox.rb

@@ -0,0 +1,31 @@
+# This program is *NOT* supposed to be executable, but called
+# via ruby (in order to test that restart provides a funky $:).
+# This program is used to test that 'restart' works when we didn't call
+# the debugger initially.
+
+TOP_SRC_DIR = File.join(File.expand_path(File.dirname(__FILE__), '..')) unless 
+  defined?(TOP_SRC_DIR)
+
+$:.unshift File.join(TOP_SRC_DIR, 'ext')
+$:.unshift File.join(TOP_SRC_DIR, 'lib')
+$:.unshift File.join(TOP_SRC_DIR, 'cli')
+require 'ruby-debug'
+Debugger.init
+
+# GCD. We assume positive numbers
+def gcd(a, b)
+  # Make: a <= b
+  debugger
+  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/gcd-dbg.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# This program is used to test that 'restart' works when we didn't call
+# the debugger initially.
+
+TOP_SRC_DIR = File.join(File.expand_path(File.dirname(__FILE__), "..")) unless 
+  defined?(TOP_SRC_DIR)
+
+$:.unshift File.join(TOP_SRC_DIR, "ext")
+$:.unshift File.join(TOP_SRC_DIR, "lib")
+$:.unshift File.join(TOP_SRC_DIR, "cli")
+require 'ruby-debug'
+Debugger.start
+
+# GCD. We assume positive numbers
+def gcd(a, b)
+  # Make: a <= b
+  debugger
+  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/helper.rb

@@ -1,22 +1,32 @@
 # Some common routines used in testing.
 
-require "fileutils"
-# require "diff/lcs"
-# require "diff/lcs/hunk"
+require 'fileutils'
+# require 'diff/lcs'
+# require 'diff/lcs/hunk'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
 
 module TestHelper
-  
-  def run_debugger(testname, args='', outfile=nil, filter=nil)
-    rightfile = File.join(SRC_DIR, "#{testname}.right")
+
+  # FIXME: turn args into a hash.
+  def run_debugger(testname, args='', outfile=nil, filter=nil, old_code=false,
+                   debug_pgm='tdebug.rb')
+    rightfile = File.join('data', "#{testname}.right")
     
-    outfile = File.join(SRC_DIR, "#{testname}.out") unless outfile
+    outfile = "#{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}"
+    ENV['RDEBUG'] = debug_pgm
+    if old_code
+      cmd = "/bin/sh #{File.join('..', 'runner.sh')} #{args} >#{outfile}"
+    else
+      cmd = "../rdbg.rb #{args} >#{outfile}"
+    end
+    # puts cmd
     output = `#{cmd}`
     
     got_lines     = File.read(outfile).split(/\n/)
@@ -48,16 +58,36 @@ module TestHelper
     return true
   end
 
-
+  # FIXME: using this causes the same test to get run several times 
+  # and some tests fail probably because of a lack of environment isolation.
+  # Many tests follow a basic pattern: run the debugger with a given
+  # debugger script and compare output produced. The following creates
+  # this kind of test.
+  def add_test(base_name, src_dir, script_name=nil, cmd=nil, test_name=nil)
+    puts "+++ Adding #{base_name} ++++" if $DEBUG
+    test_name   = base_name unless test_name
+    script_name = File.join('data', test_name + '.cmd') unless script_name
+    cmd         = 'gcd.rb 3 5' unless cmd
+    eval <<-EOF
+    def test_#{test_name}
+      Dir.chdir(\"#{src_dir}\") do 
+        assert_equal(true, 
+                     run_debugger(\"#{base_name}\", 
+                                  \"--script #{script_name} -- #{cmd}\"))
+      end
+    end
+    EOF
+  end
+  module_function :add_test
+               
   # 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 = ""
+  #   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
@@ -75,12 +105,12 @@ module TestHelper
   #       end
   #     ensure
   #       oldhunk = hunk
-  #       output << "\n"
+  #       output << '\n'
   #     end
   #   end
   
   #   # Handle the last remaining hunk 
-  #   output << oldhunk.diff(format) << "\n"
+  #   output << oldhunk.diff(format) << '\n'
   # end
 
 end

data/test/info-var-bug.rb

@@ -23,6 +23,8 @@ end
 # Something that will be passed objects with
 # bad inspect or to_s methods
 class UnsuspectingClass
+  @@Const = 'A constant'
+  @@var = 'a class variable'
   def initialize(a)
     @a = a      # "info locals" will try to use
                 # inspect or to_s here

data/test/info-var-bug2.rb

@@ -0,0 +1,2 @@
+s = '<%= PRODUCT[:name] %>'
+y = 0

data/test/null.rb

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

data/test/output.rb

@@ -0,0 +1,2 @@
+puts "one"
+puts "two"

data/test/pm-base.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# Test post-mortem handling using only ruby-debug-base.
+src_dir = File.dirname(__FILE__)
+%w(ext lib cli).each do |dir|
+  $:.unshift  File.join(src_dir, '..', dir)
+end
+require 'ruby-debug-base'
+
+class CommandProcessor
+  def at_line(context, file, line)
+    puts 'file: %s, line: %s' % [ File.basename(file), line ]
+    exit!
+  end
+end
+
+Debugger.start(:post_mortem => true)
+Debugger.handler = CommandProcessor.new
+def zero_div
+  1/0
+end
+zero_div
+

data/test/pm.rb

@@ -0,0 +1,11 @@
+#!/ursr/bin/env ruby
+# Test Debugger.catchpoint and post-mortem handling
+def zero_div
+  x = 5
+  1/0
+end
+x = 2
+zero_div
+raise RuntimeError
+x = 3
+