debugger 1.0.0.rc1

data/test/data/breakpoints.right

@@ -0,0 +1,98 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests step, next, continue, disable and 
+# # enable.
+# # FIXME: break out enable/disable
+# # ********************************************************
+# 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 6
+Breakpoint 1 file ./gcd.rb, line 6
+# break 10
+Breakpoint 2 file ./gcd.rb, line 10
+# break 11
+*** Line 11 is not a stopping point in file "gcd.rb".
+# continue
+Breakpoint 1 at gcd.rb: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
+# break Object.gcd
+Breakpoint 3 at Object::gcd
+# info break
+Num Enb What
+  1 y   at ./gcd.rb:6
+	breakpoint already hit 1 time
+  2 y   at ./gcd.rb:10
+  3 y   at Object:gcd
+# continue
+Breakpoint 2 at gcd.rb:10
+gcd.rb:10
+return nil if a <= 0
+# where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
+    #1 at line gcd.rb:18
+# info program
+Program stopped. It stopped at a breakpoint.
+# c 6
+Breakpoint 3 at Object:gcd
+gcd.rb:4
+def gcd(a, b)
+# info break
+Num Enb What
+  1 y   at ./gcd.rb:6
+	breakpoint already hit 1 time
+  2 y   at ./gcd.rb:10
+	breakpoint already hit 1 time
+  3 y   at Object:gcd
+	breakpoint already hit 1 time
+# break foo
+*** Invalid breakpoint location: foo.
+# info break
+Num Enb What
+  1 y   at ./gcd.rb:6
+	breakpoint already hit 1 time
+  2 y   at ./gcd.rb:10
+	breakpoint already hit 1 time
+  3 y   at Object:gcd
+	breakpoint already hit 1 time
+# disable  1
+# info break
+Num Enb What
+  1 n   at ./gcd.rb:6
+	breakpoint already hit 1 time
+  2 y   at ./gcd.rb:10
+	breakpoint already hit 1 time
+  3 y   at Object:gcd
+	breakpoint already hit 1 time
+# delete 1
+# # We should see breakpoint 2 but not 1
+# info break
+Num Enb What
+  2 y   at ./gcd.rb:10
+	breakpoint already hit 1 time
+  3 y   at Object:gcd
+	breakpoint already hit 1 time
+# # We should still be able to access 2
+# disable 2
+# disable bar
+Disable breakpoints argument 'bar' needs to be a number.
+# disable
+*** "disable" must be followed "display", "breakpoints" or breakpoint numbers.
+# # We should be able to delete 2
+# delete 2 3
+# info break
+No breakpoints.
+# # Should get a message about having no breakpoints.
+# disable 1
+*** No breakpoints have been set.
+# enable 1
+*** No breakpoints have been set.
+# q!

data/test/data/catch.cmd

@@ -0,0 +1,20 @@
+# ***************************************************
+# Test catch
+# ***************************************************
+set debuggertesting on
+set autoeval off
+set basename on
+info catch
+catch ZeroDivisionError off
+catch ZeroDivisionError off afdasdf
+catch ZeroDivisionError
+info catch
+catch ZeroDivisionError off
+info catch
+catch ZeroDivisionError
+c
+where
+jump 6
+cont
+jump 11
+cont

data/test/data/catch.right

@@ -0,0 +1,49 @@
+pm-catch.rb:3
+def zero_div
+# # ***************************************************
+# # Test catch
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set autoeval off
+autoeval is off.
+# set basename on
+basename is on.
+# info catch
+No exceptions set to be caught.
+# catch ZeroDivisionError off
+*** Catch for exception ZeroDivisionError not found.
+# catch ZeroDivisionError off afdasdf
+*** Unknown command: "catch ZeroDivisionError off afdasdf".  Try "help".
+# catch ZeroDivisionError
+Catch exception ZeroDivisionError.
+# info catch
+ZeroDivisionError
+# catch ZeroDivisionError off
+Catch for exception ZeroDivisionError removed.
+# info catch
+No exceptions set to be caught.
+# catch ZeroDivisionError
+Catch exception ZeroDivisionError.
+# c
+Catchpoint at pm-catch.rb:5: `divided by 0' (ZeroDivisionError)
+	from ../rdbg.rb:23:in `runner'
+	from ../rdbg.rb:32:in `<main>'
+pm-catch.rb:5
+1/0
+# where
+--> #0 Object.zero_div at line pm-catch.rb:5
+    #1 at line pm-catch.rb:9
+# jump 6
+pm-catch.rb:6
+x = 6
+# cont
+6
+Catchpoint at pm-catch.rb:10: `RuntimeError' (RuntimeError)
+	from ../rdbg.rb:32:in `<main>'
+pm-catch.rb:10
+raise RuntimeError
+# jump 11
+pm-catch.rb:11
+x = 3
+# cont

data/test/data/catch2.cmd

@@ -0,0 +1,19 @@
+# ***************************************************
+# Test catch
+# ***************************************************
+set debuggertesting on
+set autoeval off
+set basename on
+catch ZeroDivisionError
+c
+sk
+break 27
+c
+jump -1
+break 4
+c
+p arg = nil
+c
+jump 7
+del 1
+c

data/test/data/catch2.right

@@ -0,0 +1,65 @@
+pm-catch2.rb:3
+def bar(arg)
+# # ***************************************************
+# # Test catch
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set autoeval off
+autoeval is off.
+# set basename on
+basename is on.
+# catch ZeroDivisionError
+Catch exception ZeroDivisionError.
+# c
+foo begin
+bar begin
+Catchpoint at pm-catch2.rb:5: `divided by 0' (ZeroDivisionError)
+	from tdebug.rb:61:in `debug_program'
+	from tdebug.rb:247:in `<top (required)>'
+	from ../rdbg.rb:23:in `load'
+	from ../rdbg.rb:23:in `runner'
+	from ../rdbg.rb:32:in `<main>'
+pm-catch2.rb:5
+1/0 if arg
+# sk
+ok
+# break 27
+Breakpoint 1 file ./pm-catch2.rb, line 27
+# c
+rescue
+15
+Breakpoint 1 at pm-catch2.rb:27
+pm-catch2.rb:27
+puts "done"
+# jump -1
+pm-catch2.rb:26
+puts zero_div(10)
+# break 4
+Breakpoint 2 file ./pm-catch2.rb, line 4
+# c
+foo begin
+Breakpoint 2 at pm-catch2.rb:4
+pm-catch2.rb:4
+puts "bar begin"
+# p arg = nil
+nil
+# c
+bar begin
+Catchpoint at pm-catch2.rb:6: `ZeroDivisionError' (ZeroDivisionError)
+	from tdebug.rb:61:in `debug_program'
+	from tdebug.rb:247:in `<top (required)>'
+	from ../rdbg.rb:23:in `load'
+	from ../rdbg.rb:23:in `runner'
+	from ../rdbg.rb:32:in `<main>'
+pm-catch2.rb:6
+raise ZeroDivisionError
+# jump 7
+pm-catch2.rb:7
+puts "bar end"
+# del 1
+# c
+bar end
+foo end
+15
+done

data/test/data/catch3.cmd

@@ -0,0 +1,11 @@
+# ***************************************************
+# Test catch
+# ***************************************************
+set debuggertesting on
+set autoeval off
+set basename on
+c
+w
+p $var
+jump +4
+c

data/test/data/catch3.right

@@ -0,0 +1,37 @@
+pm-catch3.rb:3
+def get_exception(arg)
+# # ***************************************************
+# # Test catch
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set autoeval off
+autoeval is off.
+# set basename on
+basename is on.
+# c
+divide by zero
+start1:foo begin:bar begin:foo ensure:zero_div rescue:
+Catchpoint at pm-catch3.rb:15: `divided by 0' (ZeroDivisionError)
+	from tdebug.rb:61:in `debug_program'
+	from tdebug.rb:247:in `<top (required)>'
+	from ../rdbg.rb:23:in `load'
+	from ../rdbg.rb:23:in `runner'
+	from ../rdbg.rb:32:in `<main>'
+pm-catch3.rb:15
+1/0 if arg
+# w
+--> #0 Object.bar(arg#Fixnum) at line pm-catch3.rb:15
+    #1 at line pm-catch3.rb:34
+    #2 Object.foo(arg#Fixnum) at line pm-catch3.rb:24
+    #3 Object.zero_div(arg#Fixnum) at line pm-catch3.rb:34
+    #4 at line pm-catch3.rb:45
+# p $var
+"start2:foo begin:bar begin:"
+# jump +4
+pm-catch3.rb:19
+$var = $var + "bar end:"
+# c
+7
+start2:foo begin:bar begin:bar end:foo end:foo ensure:
+done

data/test/data/condition.cmd

@@ -0,0 +1,28 @@
+# ********************************************************
+# This tests primarily the condition command.
+# In order to do this we need to run break, and disable
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set autoeval off
+break 6 if a > b
+info break 
+condition 1
+info break 
+break 12
+condition 2 1 == a
+# FIXME: should be able to catch error on:
+# condition 2 if 1 == a
+disable 1
+continue
+info break
+p a
+# Now test trying to enable an invalid breakpoint
+break 6 if a > 
+info break
+enable 3
+info break
+condition 3 a > 5
+enable 3
+info break
+quit

data/test/data/condition.right

@@ -0,0 +1,65 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests primarily the condition command.
+# # In order to do this we need to run break, and disable
+# # ********************************************************
+# 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 6 if a > b
+Breakpoint 1 file ./gcd.rb, line 6
+# info break 
+Num Enb What
+  1 y   at ./gcd.rb:6 if a > b
+# condition 1
+# info break 
+Num Enb What
+  1 y   at ./gcd.rb:6
+# break 12
+Breakpoint 2 file ./gcd.rb, line 12
+# condition 2 1 == a
+# # FIXME: should be able to catch error on:
+# # condition 2 if 1 == a
+# disable 1
+# continue
+Breakpoint 2 at gcd.rb:12
+gcd.rb:12
+if a == 1 or b-a == 0
+# info break
+Num Enb What
+  1 n   at ./gcd.rb:6
+  2 y   at ./gcd.rb:12 if 1 == a
+	breakpoint already hit 1 time
+# p a
+1
+# # Now test trying to enable an invalid breakpoint
+# break 6 if a > 
+Breakpoint 3 file ./gcd.rb, line 6
+*** Expression "a > " syntactically incorrect; breakpoint disabled.
+# info break
+Num Enb What
+  1 n   at ./gcd.rb:6
+  2 y   at ./gcd.rb:12 if 1 == a
+	breakpoint already hit 1 time
+  3 n   at ./gcd.rb:6 if a > 
+# enable 3
+*** Expression "a > " syntactically incorrect; breakpoint remains disabled.
+# info break
+Num Enb What
+  1 n   at ./gcd.rb:6
+  2 y   at ./gcd.rb:12 if 1 == a
+	breakpoint already hit 1 time
+  3 n   at ./gcd.rb:6 if a > 
+# condition 3 a > 5
+# enable 3
+# info break
+Num Enb What
+  1 n   at ./gcd.rb:6
+  2 y   at ./gcd.rb:12 if 1 == a
+	breakpoint already hit 1 time
+  3 y   at ./gcd.rb:6 if a > 5
+# quit

data/test/data/ctrl.cmd

@@ -0,0 +1,23 @@
+set debuggertesting on
+set width 80
+help
+help info
+info args
+info breakpoints
+info display
+info program
+info global_variables
+info line
+info locals
+info stack
+info threads
+info variables
+eval 1+2
+help show
+set trace off
+show trace
+set trace on
+set annotate 0
+show annotate
+
+

data/test/data/ctrl.right

@@ -0,0 +1,70 @@
+Currently testing the debugger is on.
+width is 80.
+Type 'help <command-name>' for help on a specific command
+
+Available commands:
+break   edit  help       jump  pp    quit     save  skip  
+catch   eval  info       kill  ps    reload   set   source
+delete  exit  interrupt  p     putl  restart  show  thread
+
+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 catch -- Exceptions that can be caught in the current stack frame
+info display -- Expressions to display when program stops
+info file -- Info about a particular file read in
+info files -- File names and timestamps of files read in
+info global_variables -- Global variables
+info instance_variables -- Instance variables of the current stack frame
+info line -- Line number and file name of current position in source file
+info locals -- Local variables of the current stack frame
+info program -- Execution status of the program
+info stack -- Backtrace of the stack
+info thread -- List info about thread NUM
+info threads -- information of currently-known threads
+info variables -- Local and instance variables of the current stack frame
+No frame selected.
+info breakpoints not available here.
+info display not available here.
+The program being debugged is not being run.
+info global_variables not available here.
+info line not available here.
+info line not available here.
+info stack not available here.
+info threads not available here.
+info variables not available here.
+3
+Generic command for showing things about the debugger.
+
+-- 
+List of show subcommands:
+--  
+show annotate -- Show annotation level
+show args -- Show argument list to give program being debugged when it is started
+show autoeval -- Show if unrecognized command are evaluated
+show autolist -- Show if 'list' commands is run on breakpoints
+show autoirb -- Show if IRB is invoked on debugger stops
+show autoreload -- Show if source code is reloaded when changed
+show basename -- Show if basename used in reporting files
+show callstyle -- Show paramater style used showing call frames
+show commands -- Show the history of commands you typed
+show forcestep -- Show if sure 'next/step' forces move to a new line
+show fullpath -- Show if full file names are displayed in frames
+show history -- Generic command for showing command history parameters
+show keep-frame-bindings -- Save frame binding on each call
+show linetrace -- Show line execution tracing
+show linetrace+ -- Show if consecutive lines should be different are shown in tracing
+show listsize -- Show number of source lines to list by default
+show port -- Show server port
+show post-mortem -- Show whether we go into post-mortem debugging on an uncaught exception
+show trace -- Show if a stack trace is displayed when 'eval' raises exception
+show version -- Show what version of the debugger this is
+show width -- Show the number of characters the debugger thinks are in a line
+Displaying stack trace is off.
+Displaying stack trace is off.
+Displaying stack trace is on.
+Annotation level is 0
+Annotation level is 0