debugger 1.0.0.rc1

data/test/base/catchpoint.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# Test catchpoint in C ruby_debug extension.
+  
+class TestRubyDebugCatchpoint < Test::Unit::TestCase
+
+  $:.unshift File.join(File.dirname(__FILE__), '..', '..', 'ext')
+  require 'ruby_debug'
+  $:.shift
+
+  # test current_context
+  def test_catchpoints
+    assert_raise(RuntimeError) {Debugger.catchpoints}
+    Debugger.start_
+    assert_equal({}, Debugger.catchpoints)
+    Debugger.add_catchpoint('ZeroDivisionError')
+    assert_equal({'ZeroDivisionError' => 0}, Debugger.catchpoints)
+    Debugger.add_catchpoint('RuntimeError')
+    assert_equal(['RuntimeError', 'ZeroDivisionError'], 
+                 Debugger.catchpoints.keys.sort)
+    Debugger.stop
+  end
+
+end
+

data/test/base/load.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# Test of Debugger.debug_load in C extension ruby_debug.so
+class TestDebugLoad < Test::Unit::TestCase
+
+  @@src_dir = File.dirname(__FILE__)
+  $:.unshift File.join(@@src_dir, '..', '..', 'ext')
+  require 'ruby_debug'
+  $:.shift
+  
+  class  << self
+    def at_line(file, line)
+      @@at_line = [File.basename(file), line]
+    end
+  end
+
+  Debugger::PROG_SCRIPT = File.join(@@src_dir, '..', 'gcd.rb')
+
+  class Debugger::Context
+    def at_line(file, line)
+      TestDebugLoad::at_line(file, line)
+    end
+  end
+
+  def test_debug_load
+    # Without stopping
+    bt = Debugger.debug_load(Debugger::PROG_SCRIPT, false)
+    assert_equal(nil, bt)
+    # With stopping
+    bt = Debugger.debug_load(Debugger::PROG_SCRIPT, true)
+    assert_equal(nil, bt)
+    assert_equal(['gcd.rb', 4], @@at_line)
+
+    # Test that we get a proper backtrace on a script that raises 'abc'
+    prog_script = File.join(@@src_dir, '..', 'raise.rb')
+    bt = Debugger.debug_load(prog_script, false)
+    assert_equal(bt.to_s, 'abc')
+  end
+end

data/test/bp_loop_issue.rb

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

data/test/classes.rb

@@ -0,0 +1,11 @@
+class Mine
+  def initialize
+    @myvar = 'init'
+  end
+  def mymethod(a, b=5, &block)
+  end
+  def self.classmeth
+  end
+end
+me = Mine.new
+metoo = Mine(new)

data/test/cli/commands/catchpoint_test.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+
+class TestCatchCommand < Test::Unit::TestCase
+  
+  base_dir = File.expand_path(File.join(File.dirname(__FILE__), 
+                                        '..', '..', '..'))
+  
+  %w(ext lib cli).each do |dir|
+    $: <<  File.join(base_dir, dir)
+  end
+  
+  require File.join(base_dir, 'cli', 'ruby-debug')
+  
+  class MockState
+    attr_accessor :message 
+    def context; end
+    def confirm(msg); true end
+    def print(*args)
+      @message = *args
+    end
+  end
+  
+  # regression test for bug #20156
+  def test_catch_does_not_blow_up
+    state = MockState.new
+    catch_cmd = Debugger::CatchCommand.new(state)
+    assert(catch_cmd.match('catch off'))
+    catch(:debug_error) do
+      catch_cmd.execute
+    end
+    assert_equal(nil, state.message)
+  end
+
+end

data/test/cli/commands/unit/regexp.rb

@@ -0,0 +1,42 @@
+require 'test/unit'
+
+
+class TestCommandREs < Test::Unit::TestCase
+  base_dir=File.expand_path(File.join(File.dirname(__FILE__), 
+                                      '..', '..', '..', '..',
+                                      'cli', 'ruby-debug'))
+  require File.join(base_dir, 'command')
+  require File.join(base_dir, 'commands', 'frame')
+  include Debugger
+ 
+  def test_quit
+    c = QuitCommand.new(nil)
+    assert c.regexp.match('quit')
+    assert c.regexp.match('q')
+    assert c.regexp.match('quit!')
+    assert c.regexp.match('q!')
+    assert c.regexp.match('quit unconditionally')
+    assert c.regexp.match('exit')
+    assert c.regexp.match('exit!')
+  end
+
+  def test_up
+    c = UpCommand.new(nil)
+    assert c.regexp.match('up')
+    assert c.regexp.match('up 2')
+    assert c.regexp.match('up 2+5')
+    assert c.regexp.match('u')
+    assert c.regexp.match('u 2')
+    assert_equal nil, c.regexp.match('ufoo')
+  end
+
+  def test_down
+    c = DownCommand.new(nil)
+    assert c.regexp.match('down')
+    assert c.regexp.match('down 2')
+    assert_equal(nil, c.regexp.match('d 2'))
+    assert_equal(nil, c.regexp.match('d'))
+    assert_equal(nil, c.regexp.match('dow'))
+  end
+end
+

data/test/config.yaml

@@ -0,0 +1,8 @@
+# Do not commit personal changes here back to the repository. Create
+# config.private.yaml which, if exists, is preferred to this one.
+
+# either should be on the $PATH or use full path
+ruby: ruby
+
+# possibility to specify interpreter parameters
+#ruby_params: -w

data/test/data/annotate.cmd

@@ -0,0 +1,29 @@
+# ********************************************************
+# This tests annotations
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set force off
+set annotate 3
+# Get into gcd
+step 2
+# "break" should trigger break annotation
+break 10
+# "delete" should trigger break annotation
+delete 1
+# p should not trigger a breakpoint annotation
+p a
+# "up" should trigger annotations
+up
+# "b" should trigger like "break"
+b 12
+# "display" should trigger display annotation
+display 1+2
+# undisplay should trigger display annotation
+undisplay 1
+step
+# Test error annotations
+up 10
+frame 100
+break bogus:5
+quit!

data/test/data/annotate.right

@@ -0,0 +1,139 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests annotations
+# # ********************************************************
+# 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.
+# set annotate 3
+Annotation level is 3
+# # Get into gcd
+# step 2
+starting
+stopped
+breakpoints
+No breakpoints.
+
+stack
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+    #1 at line gcd.rb:18
+
+variables
+a = 3
+b = 5
+self = main
+
+source gcd.rb:6
+if a > b
+# # "break" should trigger break annotation
+# break 10
+Breakpoint 1 file ./gcd.rb, line 10
+breakpoints
+Num Enb What
+  1 y   at ./gcd.rb:10
+
+# # "delete" should trigger break annotation
+# delete 1
+breakpoints
+No breakpoints.
+
+# # p should not trigger a breakpoint annotation
+# p a
+3
+# # "up" should trigger annotations
+# up
+#1 at line gcd.rb:18
+stack
+    #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:6
+--> #1 at line gcd.rb:18
+
+variables
+self = main
+
+# # "b" should trigger like "break"
+# b 12
+Breakpoint 2 file ./gcd.rb, line 12
+breakpoints
+Num Enb What
+  2 y   at ./gcd.rb:12
+
+# # "display" should trigger display annotation
+# display 1+2
+1: 1+2 = 3
+display
+1: 1+2 = 3
+
+# # undisplay should trigger display annotation
+# undisplay 1
+display
+
+# step
+display
+
+starting
+stopped
+breakpoints
+Num Enb What
+  2 y   at ./gcd.rb:12
+
+display
+
+stack
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
+    #1 at line gcd.rb:18
+
+variables
+a = 3
+b = 5
+self = main
+
+source gcd.rb:10
+return nil if a <= 0
+# # Test error annotations
+# up 10
+error-begin
+Adjusting would put us beyond the oldest (initial) frame.
+
+display
+
+stack
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
+    #1 at line gcd.rb:18
+
+variables
+a = 3
+b = 5
+self = main
+
+# frame 100
+error-begin
+Adjusting would put us beyond the oldest (initial) frame.
+
+display
+
+stack
+--> #0 Object.gcd(a#Fixnum, b#Fixnum) at line gcd.rb:10
+    #1 at line gcd.rb:18
+
+variables
+a = 3
+b = 5
+self = main
+
+# break bogus:5
+error-begin
+No source file named bogus
+
+Breakpoint 3 file bogus, line 5
+breakpoints
+Num Enb What
+  2 y   at ./gcd.rb:12
+  3 y   at bogus:5
+
+display
+
+# quit!

data/test/data/break_bad.cmd

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

data/test/data/break_bad.right

@@ -0,0 +1,28 @@
+gcd.rb:4
+def gcd(a, b)
+# # ********************************************************
+# # This tests mostly invalid breakpoints.
+# # We have some valid ones too.
+# # ********************************************************
+# set debuggertesting on
+Currently testing the debugger is on.
+# set callstyle last
+Frame call-display style is last.
+# set autoeval off
+autoeval is off.
+# # There aren't 100 lines in gcd.rb.
+# break 100
+*** There are only 18 lines in file "gcd.rb".
+# break gcd.rb:100
+*** There are only 18 lines in file "gcd.rb".
+# # Line one isn't a valid stopping point.
+# # It is a comment.
+# break gcd.rb:1
+*** Line 1 is not a stopping point in file "gcd.rb".
+# # This line is okay
+# break gcd.rb:4
+Breakpoint 1 file gcd.rb, line 4
+# # No class Foo.
+# break Foo.bar
+*** Unknown class Foo.
+# q

data/test/data/break_loop_bug.cmd

@@ -0,0 +1,5 @@
+set debuggertesting on
+break 2
+cont
+cont
+cont

data/test/data/break_loop_bug.right

@@ -0,0 +1,15 @@
+bp_loop_issue.rb:1
+1.upto(2) {
+# set debuggertesting on
+Currently testing the debugger is on.
+# break 2
+Breakpoint 1 file ./bp_loop_issue.rb, line 2
+# cont
+Breakpoint 1 at bp_loop_issue.rb:2
+bp_loop_issue.rb:2
+sleep 0.01
+# cont
+Breakpoint 1 at bp_loop_issue.rb:2
+bp_loop_issue.rb:2
+sleep 0.01
+# cont

data/test/data/breakpoints.cmd

@@ -0,0 +1,38 @@
+# ********************************************************
+# This tests step, next, continue, disable and 
+# enable.
+# FIXME: break out enable/disable
+# ********************************************************
+set debuggertesting on
+set callstyle last
+set autoeval off
+break 6
+break 10
+break 11
+continue
+where
+break Object.gcd
+info break
+continue
+where
+info program
+c 6
+info break
+break foo
+info break
+disable  1
+info break
+delete 1
+# We should see breakpoint 2 but not 1
+info break
+# We should still be able to access 2
+disable 2
+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
+q!