debugger 1.0.0.rc1

data/test/data/help.cmd

@@ -0,0 +1,20 @@
+# $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
+help set listsize
+help show anno
+help show foo
+help info file
+help info file all
+help info file br
+help info files
+
+# FIXME - the below should work
+# help 
+# help step

data/test/data/help.right

@@ -0,0 +1,21 @@
+Currently testing the debugger is on.
+autoeval is off.
+width is 80.
+Undefined command: "foo".  Try "help".
+Set number of source lines to list by default.
+Show annotation level.
+0 == normal; 2 == output annotated suitably for use by programs that control 
+ruby-debug.
+Invalid 'show' subcommand 'foo'.
+Info about a particular file read in.
+
+After the file name is supplied, you can list file attributes that
+you wish to see.
+
+Attributes include: "all", "basic", "breakpoint", "lines", "mtime", "path" 
+and "sha1".
+Info about a particular file read in.
+All file information available - breakpoints, lines, mtime, path, and sha1.
+Info about a particular file read in.
+Show trace line numbers.
+File names and timestamps of files read in.

data/test/data/history.right

@@ -0,0 +1,7 @@
+list
+step
+show args
+show commands
+set history save on
+show history
+quit unconditionally

data/test/data/info-thread.cmd

@@ -0,0 +1,13 @@
+# ********************************************************
+# This tests basic info thread commands
+set debuggertesting on
+set callstyle last
+set autoeval off
+info threads terse
+info threads ver
+info thread 1 t
+info threads
+info thread
+help info thread
+help info threads
+q

data/test/data/info-thread.right

@@ -0,0 +1,37 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests basic info thread commands
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# set autoeval off
+autoeval is off.
+# info threads terse
++ 1 #<Thread:0xb7ceb708 run>	./gcd.rb:4
+# info threads ver
++ 1 #<Thread:0xb7ceb708 run>	
+	#0 at line gcd.rb:4
+# info thread 1 t
++ 1 #<Thread:0xb7ceb708 run>	./gcd.rb:4
+# info threads
++ 1 #<Thread:0xb7ceb708 run>	./gcd.rb:4
+# info thread
++ 1 #<Thread:0xb7ceb708 run>	./gcd.rb:4
+# help info thread
+List info about thread NUM.
+
+If no thread number is given, we list info for all threads. 'terse' and 'verbose' 
+options are possible. If terse, just give summary thread name information. See 
+"help info threads" for more detail about this summary information.
+
+If 'verbose' appended to the end of the command, then the entire
+stack trace is given for each thread.
+# help info threads
+information of currently-known threads.
+
+This information includes whether the thread is current (+), if it is
+suspended ($), or ignored (!).  The thread number and the top stack
+item. If 'verbose' is given then the entire stack frame is shown.
+# q

data/test/data/info-var-bug2.cmd

@@ -0,0 +1,5 @@
+step
+info variables
+quit
+
+

data/test/data/info-var-bug2.right

@@ -0,0 +1,10 @@
+./info-var-bug2.rb:1
+s = '<%= PRODUCT[:name] %>'
+# step
+./info-var-bug2.rb:2
+y = 0
+# info variables
+s = "<%= PRODUCT[:name] %>"
+self = main
+y = nil
+# quit

data/test/data/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 36
+info variables
+# Go to where we have a bad "inspect" and "to_s" of a local variable
+continue 40
+info variables
+break 31
+# 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/data/info-var.right

@@ -0,0 +1,52 @@
+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 36
+info-var-bug.rb:36
+x
+# info variables
+self = main
+x = #<Lousy_inspect:0xb7825034>
+# # Go to where we have a bad "inspect" and "to_s" of a local variable
+# continue 40
+info-var-bug.rb:40
+x
+# info variables
+self = main
+x = *Error in evaluation*
+# break 31
+Breakpoint 1 file ./info-var-bug.rb, line 31
+# # The first time through, we can do inspect.
+# continue
+Breakpoint 1 at info-var-bug.rb:31
+info-var-bug.rb:31
+@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:31
+info-var-bug.rb:31
+@b = 5
+# info locals
+a = #<Lousy_inspect:0xb784945c>
+# info variables
+a = #<Lousy_inspect:0xb780ddd0>
+self = #<UnsuspectingClass:0xb78075e8>
+@a = #<Lousy_inspect:0xb780ddd0>
+@@Const = "A constant"
+@@var = "a class variable"
+# # Now go to where we have a bad "inspect" and "to_s" of an class variable
+# continue
+Breakpoint 1 at info-var-bug.rb:31
+info-var-bug.rb:31
+@b = 5
+# info locals
+*Error in evaluation*
+# quit

data/test/data/info.cmd

@@ -0,0 +1,21 @@
+# ***************************************************
+# This tests info command handling
+# ***************************************************
+set debuggertesting on
+set callstyle last
+help info
+info args
+info line
+info locals
+info stack
+info display
+help info break
+help info display
+break 10
+break 12
+info break 10
+info break 1
+info break 1 2
+info break
+info file ./gcd.rb break
+quit

data/test/data/info.right

@@ -0,0 +1,65 @@
+gcd.rb:4
+def gcd(a, b)
+# # ***************************************************
+# # This tests info command handling
+# # ***************************************************
+# 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 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
+# 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.
+# help info break
+Status of user-settable breakpoints.
+Without argument, list info about all breakpoints.  With an
+integer argument, list info on that breakpoint.
+# help info display
+Expressions to display when program stops.
+# break 10
+Breakpoint 1 file ./gcd.rb, line 10
+# break 12
+Breakpoint 2 file ./gcd.rb, line 12
+# info break 10
+*** No breakpoints found among list given.
+# info break 1
+Num Enb What
+  1 y   at ./gcd.rb:10
+# info break 1 2
+Num Enb What
+  1 y   at ./gcd.rb:10
+  2 y   at ./gcd.rb:12
+# info break
+Num Enb What
+  1 y   at ./gcd.rb:10
+  2 y   at ./gcd.rb:12
+# info file ./gcd.rb break
+File ./gcd.rb
+	breakpoint line numbers:
+4  6  7  10  12  13  15  18
+# quit

data/test/data/jump.cmd

@@ -0,0 +1,16 @@
+# ********************************************************
+# This tests jump command
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set force off
+break 7
+cont
+jump -1
+cont
+delete 1
+jump -1
+jump +1
+next
+jump 2
+cont

data/test/data/jump.right

@@ -0,0 +1,56 @@
+jump.rb:1
+def foo
+# # ********************************************************
+# # This tests jump command
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# set force off
+force-stepping is off.
+# break 7
+Breakpoint 1 file ./jump.rb, line 7
+# cont
+Breakpoint 1 at jump.rb:7
+jump.rb:7
+puts j
+# jump -1
+jump.rb:6
+j = j + k
+# cont
+Breakpoint 1 at jump.rb:7
+jump.rb:7
+puts j
+# delete 1
+# jump -1
+jump.rb:6
+j = j + k
+# jump +1
+jump.rb:7
+puts j
+# next
+21
+jump.rb:6
+j = j + k
+# jump 2
+jump.rb:2
+j = 0
+# cont
+11
+22
+34
+12
+23
+35
+13
+24
+36
+14
+25
+37
+15
+26
+38
+38
+done

data/test/data/jump2.cmd

@@ -0,0 +1,16 @@
+# ********************************************************
+# This tests jump command
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set force off
+step
+step
+step
+step
+step
+step
+step
+step
+jump 20
+cont

data/test/data/jump2.right

@@ -0,0 +1,44 @@
+jump2.rb:1
+def foo3(arg)
+# # ********************************************************
+# # This tests jump command
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# set force off
+force-stepping is off.
+# step
+jump2.rb:9
+def foo2(arg)
+# step
+jump2.rb:17
+def foo1(arg)
+# step
+jump2.rb:25
+foo1(0)
+# step
+jump2.rb:18
+arg = arg + 1
+# step
+jump2.rb:19
+foo2(arg)
+# step
+jump2.rb:10
+arg = arg + 2
+# step
+jump2.rb:11
+foo3(arg)
+# step
+jump2.rb:2
+arg = arg + 3
+# jump 20
+jump2.rb:20
+puts arg
+# cont
+1
+15
+r3
+12
+done

data/test/data/linetrace.cmd

@@ -0,0 +1,6 @@
+# ********************************************************
+# This tests the 'linetrace' command.
+# ********************************************************
+set basename on
+set linetrace on
+continue

data/test/data/linetrace.right

@@ -0,0 +1,23 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests the 'linetrace' command.
+# # ********************************************************
+# set basename on
+basename is on.
+# set linetrace on
+line tracing is on.
+# continue
+Tracing(1):gcd.rb:18 gcd(3,5)
+Tracing(1):gcd.rb:6 if a > b
+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:15 gcd(b-a, a)
+Tracing(1):gcd.rb:6 if a > b
+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:15 gcd(b-a, a)
+Tracing(1):gcd.rb:6 if a > b
+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:13 return a