debugger 1.0.0.rc1

data/test/data/display.cmd

@@ -0,0 +1,24 @@
+# ***************************************************
+# This tests display expressions.
+# ***************************************************
+set debuggertesting on
+b 6
+c
+# Should be no display expression yet.
+info display
+display a
+display b 
+disable display b
+disable display 1
+c
+enable display b
+enable display 1
+undisplay a
+undisplay 2
+# Should have only one display expression.
+info display
+undisplay 1
+# Now we have no more display expressions.
+info display
+q
+

data/test/data/display.right

@@ -0,0 +1,44 @@
+gcd.rb:4
+def gcd(a, b)
+# # ***************************************************
+# # This tests display expressions.
+# # ***************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# b 6
+Breakpoint 1 file ./gcd.rb, line 6
+# c
+Breakpoint 1 at gcd.rb:6
+gcd.rb:6
+if a > b
+# # Should be no display expression yet.
+# info display
+There are no auto-display expressions now.
+# display a
+1: a = 3
+# display b 
+2: b  = 5
+# disable display b
+Disable display argument 'b' needs to be a number.
+# disable display 1
+# c
+Breakpoint 1 at gcd.rb:6
+2: b  = 3
+gcd.rb:6
+if a > b
+# enable display b
+Enable display argument 'b' needs to be a number.
+# enable display 1
+# undisplay a
+Undisplay argument 'a' needs to be a number.
+# undisplay 2
+# # Should have only one display expression.
+# info display
+Auto-display expressions now in effect:
+Num Enb Expression
+  1: y  a
+# undisplay 1
+# # Now we have no more display expressions.
+# info display
+There are no auto-display expressions now.
+# q

data/test/data/dollar-0.right

@@ -0,0 +1,2 @@
+./dollar-0.rb
+./dollar-0.rb

data/test/data/dollar-0a.right

@@ -0,0 +1,2 @@
+./dollar-0.rb
+./dollar-0.rb

data/test/data/dollar-0b.right

@@ -0,0 +1,2 @@
+../test/dollar-0.rb
+../test/dollar-0.rb

data/test/data/edit.cmd

@@ -0,0 +1,12 @@
+# ********************************************************
+# This tests the edit command
+# ********************************************************
+set debuggertesting on
+# Edit using current line position.
+edit
+edit gcd.rb:5
+# File should not exist
+edit foo
+# Add space to the end of 'edit'
+edit 
+quit

data/test/data/edit.right

@@ -0,0 +1,19 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests the edit command
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# # Edit using current line position.
+# edit
+FAKE-EDITOR +4 ./gcd.rb
+# edit gcd.rb:5
+FAKE-EDITOR +5 gcd.rb
+# # File should not exist
+# edit foo
+*** Invalid file/line number specification: foo
+# # Add space to the end of 'edit'
+# edit 
+FAKE-EDITOR +4 ./gcd.rb
+# quit

data/test/data/emacs_basic.cmd

@@ -0,0 +1,43 @@
+# ********************************************************
+# This tests step, next, finish, continue, disable and 
+# enable.
+# FIXME: break out enable/disable
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set autoeval off
+break 6
+break 10
+continue
+where
+break Foo.bar
+break Object.gcd
+info break
+continue
+where
+info program
+c 10
+info break
+break foo
+info break
+disable  1
+info break
+enable breakpoint 1
+enable br 10
+delete 1
+# We should see breakpoint 2 but not 1
+info break
+# We should still be able to access 2
+disable 2
+enable
+enable foo
+disable bar
+disable
+# We should be able to delete 2
+delete 2 3
+info break
+# Should get a message about having no breakpoints.
+disable 1
+enable 1
+# finish
+quit

data/test/data/emacs_basic.right

@@ -0,0 +1,106 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests step, next, finish, 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
+# 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 Foo.bar
+*** Unknown class Foo.
+# 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 10
+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
+# enable breakpoint 1
+# enable br 10
+Enable breakpoints argument '10' needs to at most 3.
+# 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
+# enable
+*** "enable" must be followed "display", "breakpoints" or breakpoint numbers.
+# enable foo
+Enable breakpoints argument 'foo' needs to be a number.
+# 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.
+# # finish
+# quit

data/test/data/enable.cmd

@@ -0,0 +1,20 @@
+# ********************************************************
+# This tests the enable command.
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set autoeval off
+break Object.gcd
+# Should have a breakpoint 1
+enable br 1
+# Get help on enable
+help enable
+# Get help on just enable break
+help enable break
+# Plain enable should work
+enable
+# An invalid enable command
+enable foo
+quit
+
+

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/finish.cmd

@@ -0,0 +1,16 @@
+# ********************************************************
+# This tests finish.
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set autoeval off
+break 6
+continue
+continue
+continue
+where
+finish 0
+where
+p a
+p b
+finish

data/test/data/finish.right

@@ -0,0 +1,31 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests finish.
+# # ********************************************************
+# 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
+# continue
+Breakpoint 1 at gcd.rb:6
+gcd.rb:6
+if a > b
+# continue
+Breakpoint 1 at gcd.rb:6
+gcd.rb:6
+if a > b
+# 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 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:15
+    #2 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:15
+    #3 at line gcd.rb:18
+# finish 0

data/test/data/frame.cmd

@@ -0,0 +1,26 @@
+# ***************************************************
+# This tests step, next, finish and continue
+# ***************************************************
+set debuggertesting on
+set callstyle last
+# Invalid line number in continue command
+continue 3
+# This time, for sure!
+continue 6
+where
+up
+where
+down
+where
+frame
+where
+frame -1
+where
+up 2
+where
+down 2
+where
+frame 0 thread 3
+frame 0 thread 1
+# finish
+quit

data/test/data/frame.right

@@ -0,0 +1,55 @@
+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.
+# # Invalid line number in continue command
+# continue 3
+*** Line 3 is not a stopping point in file "gcd.rb".
+# # This time, for sure!
+# 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 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
+# frame 0 thread 3
+*** Thread 3 doesn't exist.
+# frame 0 thread 1
+#0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+# # finish
+# quit