rb8-trepanning 0.1.3

data/processor/virtual.rb

@@ -0,0 +1,34 @@
+# The class serves as the parent for Trepan::CmdProcessor which is 
+# quite large and spans over several files. By declaring initialize
+# below, we have a consistent initialize routine and many of the
+# others don't need to define initialize.
+
+# Also, simple versions of the I/O routines make it possible
+# to do testing without having to bring in the whole "Interface"
+# and I/O routines that trepanning (and "main.rb") use.
+
+# Note that via this file we can change 'module Trepan' to 'class
+# Trepan' and this takes effect on all of the places which 
+# subclass this. They use class 
+#  Trepan::CmdProcessor < Trepan::VirtualCmdProcessor
+# rather than breaking this down into to parts as below.
+module Trepan
+  class VirtualCmdProcessor
+    attr_accessor :interfaces
+    attr_accessor :state, :context, :settings
+    def initialize(interfaces, settings={})
+      @interfaces      = interfaces
+      @intf            = interfaces[-1]
+      @settings        = settings
+    end
+    def errmsg(message)
+      puts "Error: #{message}"
+    end
+    def msg(message)
+      puts message
+    end
+    def section(message, opts={})
+      puts "Section: #{message}"
+    end
+  end
+end

data/test/data/.gitignore

@@ -0,0 +1 @@
+/*~

data/test/data/break_bad.cmd

@@ -0,0 +1,19 @@
+# ********************************************************
+# This tests mostly invalid breakpoints.
+# We have some valid ones too.
+# ********************************************************
+set debug testing
+set callstyle last
+set autoeval off
+set basename on
+# There aren't 100 lines in gcd.rb.
+break 100
+break ../example/gcd.rb:100
+# Line one isn't a valid stopping point.
+# It is a comment.
+break example/gcd.rb:1
+# This line is okay
+break ../example/gcd.rb:4
+# No class Foo.
+break Foo.bar
+q!

data/test/data/break_bad.right

@@ -0,0 +1,29 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ break_bad.cmd line 6: set callstyle last
+Frame call-display style is last.
++ break_bad.cmd line 7: set autoeval off
+Evaluation of unrecognized debugger commands is off.
++ break_bad.cmd line 8: set basename on
+basename is on.
++ break_bad.cmd line 9: # There aren't 100 lines in gcd.rb.
++ break_bad.cmd line 10: break 100
+*** There are only 18 lines in file "gcd.rb".
++ break_bad.cmd line 11: break ../example/gcd.rb:100
+*** There are only 18 lines in file "gcd.rb".
++ break_bad.cmd line 12: # Line one isn't a valid stopping point.
++ break_bad.cmd line 13: # It is a comment.
++ break_bad.cmd line 14: break example/gcd.rb:1
+*** Can't evaluate example to get a method
+*** Unable to get breakpoint position for example/gcd.rb:1
+Breakpoint 1 file gcd.rb, line 4
++ break_bad.cmd line 15: # This line is okay
++ break_bad.cmd line 16: break ../example/gcd.rb:4
+Breakpoint 2 file gcd.rb, line 4
++ break_bad.cmd line 17: # No class Foo.
++ break_bad.cmd line 18: break Foo.bar
+*** Can't evaluate Foo.bar to get a method
+*** Unable to get breakpoint position for Foo.bar
+Breakpoint 3 file gcd.rb, line 4
++ break_bad.cmd line 19: q!

data/test/data/break_loop_bug.cmd

@@ -0,0 +1,5 @@
+set debug testing
+break 2
+cont
+cont
+cont

data/test/data/break_loop_bug.right

@@ -0,0 +1,15 @@
+-- (bp_loop_issue.rb:1)
+1.upto(2) {
+debugger testing is on.
++ break_loop_bug.cmd line 2: break 2
+Breakpoint 1 file bp_loop_issue.rb, line 2
++ break_loop_bug.cmd line 3: cont
+Breakpoint 1 at bp_loop_issue.rb:2
+-- (bp_loop_issue.rb:2)
+sleep 0.01
++ break_loop_bug.cmd line 4: cont
+Breakpoint 1 at bp_loop_issue.rb:2
+-- (bp_loop_issue.rb:2)
+sleep 0.01
++ break_loop_bug.cmd line 5: cont
+trepan8: That's all, folks...

data/test/data/dollar-0.right

@@ -0,0 +1,2 @@
+./example/dollar-0.rb
+./example/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,14 @@
+# ********************************************************
+# This tests the edit command
+# ********************************************************
+set debug testing
+# Edit using current line position.
+edit
+edit 7
+edit ../example/gcd.rb 5
+# File should not exist
+edit foo
+# Add space to the end of 'edit'
+edit 
+edit ../example/gcd.rb
+quit!

data/test/data/edit.right

@@ -0,0 +1,24 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ edit.cmd line 5: # Edit using current line position.
++ edit.cmd line 6: edit
+Running echo FAKE-EDITOR  +4 "gcd.rb"...
+FAKE-EDITOR +4 gcd.rb
++ edit.cmd line 7: edit 7
+Running echo FAKE-EDITOR  +7 "gcd.rb"...
+FAKE-EDITOR +7 gcd.rb
++ edit.cmd line 8: edit ../example/gcd.rb 5
+Running echo FAKE-EDITOR  +5 "gcd.rb"...
+FAKE-EDITOR +5 gcd.rb
++ edit.cmd line 9: # File should not exist
++ edit.cmd line 10: edit foo
+*** File "foo" is not readable.
++ edit.cmd line 11: # Add space to the end of 'edit'
++ edit.cmd line 12: edit 
+Running echo FAKE-EDITOR  +4 "gcd.rb"...
+FAKE-EDITOR +4 gcd.rb
++ edit.cmd line 13: edit ../example/gcd.rb
+Running echo FAKE-EDITOR  +1 "gcd.rb"...
+FAKE-EDITOR +1 gcd.rb
++ edit.cmd line 14: quit!

data/test/data/file-with-space.cmd

@@ -0,0 +1,6 @@
+# *********************************************************
+# This is run on a file with an embedded space in the name 
+# ********************************************************
+set debug testing
+quit!
+

data/test/data/file-with-space.right

@@ -0,0 +1,4 @@
+-- (file with space.rb:1)
+puts 'Ha!'
+debugger testing is on.
++ file-with-space.cmd line 5: quit!

data/test/data/printvar.cmd

@@ -0,0 +1,17 @@
+# ********************************************************
+# This tests mostly invalid breakpoints.
+# We have some valid ones too.
+# ********************************************************
+set debug testing
+set callstyle last
+set autoeval off
+set basename on
+break ../example/gcd.rb:6
+continue
+pr a 
+eval [a,b]
+continue
+eval [a,b]
+up
+eval [a,b]
+q!

data/test/data/printvar.right

@@ -0,0 +1,31 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ printvar.cmd line 6: set callstyle last
+Frame call-display style is last.
++ printvar.cmd line 7: set autoeval off
+Evaluation of unrecognized debugger commands is off.
++ printvar.cmd line 8: set basename on
+basename is on.
++ printvar.cmd line 9: break ../example/gcd.rb:6
+Breakpoint 1 file gcd.rb, line 6
++ printvar.cmd line 10: continue
+Breakpoint 1 at gcd.rb:6
+-- (gcd.rb:6)
+if a > b
++ printvar.cmd line 11: pr a 
+3
++ printvar.cmd line 12: eval [a,b]
+[3, 5]
++ printvar.cmd line 13: continue
+Breakpoint 1 at gcd.rb:6
+-- (gcd.rb:6)
+if a > b
++ printvar.cmd line 14: eval [a,b]
+[2, 3]
++ printvar.cmd line 15: up
+--> #1 at line gcd.rb:15
+
++ printvar.cmd line 16: eval [a,b]
+[3, 5]
++ printvar.cmd line 17: q!

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 debug testing
+catch x
+catch ZeroDivisionError
+info catch
+catch 5
+step
+quit!

data/test/data/raise.right

@@ -0,0 +1,19 @@
+-- (raise.rb:3)
+raise ZeroDivisionError
+debugger testing is on.
++ raise.cmd line 6: catch x
+Warning x is not known to be a Class
+Catch exception x.
++ raise.cmd line 7: catch ZeroDivisionError
+Catch exception ZeroDivisionError.
++ raise.cmd line 8: info catch
+x
+ZeroDivisionError
++ raise.cmd line 9: catch 5
+Warning 5 is not known to be a Class
+Catch exception 5.
++ raise.cmd line 10: step
+Catchpoint at raise.rb:3: `ZeroDivisionError' (ZeroDivisionError)
+!! (raise.rb:3)
+raise ZeroDivisionError
++ raise.cmd line 11: quit!

data/test/data/source.cmd

@@ -0,0 +1,5 @@
+# Test the source command
+# rdebug-save has breakpoint commands
+set debug testing
+source ../data/trepan8-save.1
+quit!

data/test/data/source.right

@@ -0,0 +1,18 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ source.cmd line 4: source ../data/trepan8-save.1
+debugger testing is on.
++ trepan8-save.1 line 2: break ../example/gcd.rb:10
+Breakpoint 1 file gcd.rb, line 10
++ trepan8-save.1 line 3: break ../example/gcd.rb:12 if a > b
+Breakpoint 2 file gcd.rb, line 12
++ trepan8-save.1 line 4: set autoeval on
+Evaluation of unrecognized debugger commands is on.
++ trepan8-save.1 line 5: set autolist off
+Running a 'list' command each time we enter the debugger is off.
++ trepan8-save.1 line 6: set autoirb off
+To automatically go into irb each time we enter the debugger is off.
+-- (gcd.rb:4)
+def gcd(a, b)
++ source.cmd line 5: quit!

data/test/data/stepping-1.9.right

@@ -0,0 +1,50 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ stepping.cmd line 5: set callstyle last
+Frame call-display style is last.
++ stepping.cmd line 6: next
+-- (gcd.rb:18)
+gcd(3,5)
++ stepping.cmd line 7: where
+--> #0 at line gcd.rb:18
++ stepping.cmd line 8: step a
+*** The step command argument must eval to an integer. Got: a
++ stepping.cmd line 9: set different on
+different is on.
++ stepping.cmd line 10: step- ;; step-
+-- (gcd.rb:6)
+if a > b
+-- (gcd.rb:10)
+return nil if a <= 0
++ stepping.cmd line 11: set diff off
+different is off.
++ stepping.cmd line 12: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
+    #1 at line gcd.rb:18
++ stepping.cmd line 13: n 2
+-- (gcd.rb:15)
+return gcd(b-a, a)
++ stepping.cmd line 14: step+
+-- (gcd.rb:6)
+if a > b
++ stepping.cmd line 15: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:15
+    #2 at line gcd.rb:18
++ stepping.cmd line 16: step 3
+-- (gcd.rb:15)
+return gcd(b-a, a)
++ stepping.cmd line 17: step+
+-- (gcd.rb:6)
+if a > b
++ stepping.cmd line 18: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:15
+    #2 at line gcd.rb:15
+    #3 at line gcd.rb:18
++ stepping.cmd line 19: next+	
+-- (gcd.rb:10)
+return nil if a <= 0
++ stepping.cmd line 20: # finish
++ stepping.cmd line 21: quit!

data/test/data/stepping.cmd

@@ -0,0 +1,21 @@
+# ***************************************************
+# This tests step, next, finish and continue
+# ***************************************************
+set debug testing
+set callstyle last
+next
+where
+step a
+set different on
+step- ;; step-
+set diff off
+where
+n 2
+step+
+where
+step 3
+step+
+where
+next+	
+# finish
+quit!

data/test/data/stepping.right

@@ -0,0 +1,48 @@
+-- (gcd.rb:4)
+def gcd(a, b)
+debugger testing is on.
++ stepping.cmd line 5: set callstyle last
+Frame call-display style is last.
++ stepping.cmd line 6: next
+-- (gcd.rb:18)
+gcd(3,5)
++ stepping.cmd line 7: where
+--> #0 at line gcd.rb:18
++ stepping.cmd line 8: step a
+*** The step command argument must eval to an integer. Got: a
++ stepping.cmd line 9: set different on
+different is on.
++ stepping.cmd line 10: step- ;; step-
+-- (gcd.rb:6)
+if a > b
+-- (gcd.rb:6)
+if a > b
++ stepping.cmd line 11: set diff off
+different is off.
++ stepping.cmd line 12: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:18
++ stepping.cmd line 13: n 2
+-- (gcd.rb:10)
+return nil if a <= 0
++ stepping.cmd line 14: step+
+-- (gcd.rb:12)
+if a == 1 or b-a == 0
++ stepping.cmd line 15: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:12
+    #1 at line gcd.rb:18
++ stepping.cmd line 16: step 3
+-- (gcd.rb:6)
+if a > b
++ stepping.cmd line 17: step+
+-- (gcd.rb:6)
+if a > b
++ stepping.cmd line 18: where
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:15
+    #2 at line gcd.rb:18
++ stepping.cmd line 19: next+	
+-- (gcd.rb:10)
+return nil if a <= 0
++ stepping.cmd line 20: # finish
++ stepping.cmd line 21: quit!

data/test/data/trepan8-save.1

@@ -0,0 +1,6 @@
+set debug testing 
+break ../example/gcd.rb:10
+break ../example/gcd.rb:12 if a > b
+set autoeval on
+set autolist off
+set autoirb off

data/test/example/bp_loop_issue.rb

@@ -0,0 +1,3 @@
+1.upto(2) {
+  sleep 0.01
+}

data/test/example/break-bug.rb

@@ -0,0 +1,7 @@
+# Problem is not hitting breakpoint at square +=1 more than once when
+# "set different" is off. Tracker #28706
+triangle = 0
+3.times do |i|
+  triangle += i
+end
+puts triangle

data/test/example/brkpt-class-bug.rb

@@ -0,0 +1,8 @@
+class A
+  def A.show
+    puts "hi"
+  end
+end
+x = 1
+A.show
+y = 2