ruby-debug 0.10.5.rc1 → 0.10.5.rc2

data/test/base/base.rb

@@ -1,77 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../helper", __FILE__)
-
-# Some tests of Debugger module in C extension ruby_debug 
-class TestRubyDebug < Test::Unit::TestCase
-  def test_version
-    assert(defined?(Debugger::VERSION))
-  end
-
-  # test current_context
-  def test_current_context
-    assert_equal(false, Debugger.started?, 
-                 'debugger should not initially be started.')
-    Debugger.start_
-    assert(Debugger.started?, 
-           'debugger should now be started.')
-    assert_equal(__LINE__, Debugger.current_context.frame_line)
-    assert_equal(nil, Debugger.current_context.frame_args_info,
-                 'no frame args info.')
-    assert_equal(Debugger.current_context.frame_file, 
-                 Debugger.current_context.frame_file(0))
-    assert_equal(File.basename(__FILE__),
-                 File.basename(Debugger.current_context.frame_file))
-    assert_raises(ArgumentError) {Debugger.current_context.frame_file(1, 2)}
-    assert_raises(ArgumentError) {Debugger.current_context.frame_file(10)}
-    assert_equal(1, Debugger.current_context.stack_size)
-    assert_equal(TestRubyDebug, Debugger.current_context.frame_class)
-    assert_equal(false, Debugger.current_context.dead?, 'Not dead yet!')
-  ensure
-    Debugger.stop
-    assert_equal(false, Debugger.started?, 
-                 'Debugger should no longer be started.')
-  end
-
-  # Test initial variables and setting/getting state.
-  def test_debugger_base
-    assert_equal(false, Debugger.started?, 
-                 'Debugger should not initially be started.')
-    Debugger.start_
-    assert(Debugger.started?, 
-           'Debugger should now be started.')
-    assert_equal(false, Debugger.debug,
-                 'Debug variable should not be set.')
-    assert_equal(false, Debugger.post_mortem?,
-                 'Post mortem debugging should not be set.')
-    a = Debugger.contexts
-    assert_equal(1, a.size, 
-                 'There should only be one context.')
-    assert_equal(Array, a.class, 
-                 'Context should be an array.')
-  ensure
-    Debugger.stop
-    assert_equal(false, Debugger.started?, 
-                 'debugger should no longer be started.')
-  end
-
-  # Test breakpoint handling
-  def test_breakpoints
-    Debugger.start_
-    assert_equal(0, Debugger.breakpoints.size,
-                 'There should not be any breakpoints set.')
-    brk = Debugger.add_breakpoint(__FILE__, 1)
-    assert_equal(Debugger::Breakpoint, brk.class,
-                 'Breakpoint should have been set and returned.')
-    assert_equal(1, Debugger.breakpoints.size,
-                 'There should now be one breakpoint set.')
-    Debugger.remove_breakpoint(0)
-    assert_equal(1, Debugger.breakpoints.size,
-                 'There should still be one breakpoint set.')
-    Debugger.remove_breakpoint(1)
-    assert_equal(0, Debugger.breakpoints.size,
-                 'There should no longer be any breakpoints set.')
-  ensure
-    Debugger.stop
-  end
-end
-

data/test/base/binding.rb

@@ -1,22 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../helper", __FILE__)
-
-# Test binding_n command
-class TestBinding < Test::Unit::TestCase
-  def test_basic
-    def inside_fn
-      s = 'some other string'
-      b2 = Kernel::binding_n(1)
-      y2 = eval('s', b2)
-      assert_equal('this is a test', y2)
-    end
-    s = 'this is a test'
-    Debugger.start
-    b = Kernel::binding_n(0)
-    y = eval('s', b)
-    assert_equal(s, y)
-    inside_fn
-  ensure
-    Debugger.stop
-  end
-end

data/test/base/catchpoint.rb

@@ -1,19 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../helper", __FILE__)
-
-# Test catchpoint in C ruby_debug extension.
-  
-class TestRubyDebugCatchpoint < Test::Unit::TestCase
-  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)
-  ensure
-    Debugger.stop
-  end
-end

data/test/base/load.rb

@@ -1,44 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../helper", __FILE__)
-
-# Test of Debugger.debug_load in C extension ruby_debug.so
-class TestDebugLoad < Test::Unit::TestCase
-  class << self
-    def at_line(file, line)
-      @@at_line = [File.basename(file), line]
-    end
-  end
-
-  class Debugger::Context
-    def at_line(file, line)
-      TestDebugLoad::at_line(file, line)
-    end
-  end
-
-  def test_debug_load
-    src_dir = File.dirname(__FILE__)
-    prog_script = File.join(src_dir, '..', 'example', 'gcd.rb')
-
-    # Without stopping
-    bt = Debugger.debug_load(prog_script, false)
-    assert_equal(nil, bt)
-    assert(Debugger.started?)
-    Debugger.stop
-
-    # With stopping
-    bt = Debugger.debug_load(prog_script, true)
-    assert_equal(nil, bt)
-    assert_equal(['gcd.rb', 4], @@at_line)
-    assert(Debugger.started?)
-    Debugger.stop
-
-    # Test that we get a proper backtrace on a script that raises 'abc'
-    prog_script = File.join(src_dir, '..', 'example', 'raise.rb')
-    bt = Debugger.debug_load(prog_script, false)
-    assert_equal('abc', bt.to_s)
-    assert(Debugger.started?)
-    Debugger.stop
-  ensure
-    Debugger.stop if Debugger.started?
-  end
-end

data/test/base/reload_bug.rb

@@ -1,8 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../helper", __FILE__)
-
-class TestReloadBug < Test::Unit::TestCase
-  def test_reload_bug
-    assert_equal({}, Debugger::source_reload)
-  end
-end

data/test/cli/commands/catchpoint_test.rb

@@ -1,24 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../../helper", __FILE__)
-
-class TestCatchCommand < Test::Unit::TestCase
-  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

@@ -1,36 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../../../../helper", __FILE__)
-
-class TestCommandREs < Test::Unit::TestCase
-  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

@@ -1,8 +0,0 @@
-# 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

@@ -1,29 +0,0 @@
-# ********************************************************
-# This tests annotations
-# ********************************************************
-set debuggertesting on
-set callstyle last
-set different 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

@@ -1,139 +0,0 @@
-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 different off
-different-line 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/at-exit.cmd

@@ -1,4 +0,0 @@
-set debuggertesting on
-break 2
-c
-c

data/test/data/at-exit.right

@@ -1,12 +0,0 @@
-at-exit.rb:1
-at_exit do
-# set debuggertesting on
-Currently testing the debugger is on.
-# break 2
-Breakpoint 1 file at-exit.rb, line 2
-# c
-Breakpoint 1 at at-exit.rb:2
-at-exit.rb:2
-puts "Hello world!"
-# c
-Hello world!

data/test/data/break_bad.cmd

@@ -1,16 +0,0 @@
-# ********************************************************
-# This tests mostly invalid breakpoints.
-# We have some valid ones too.
-# ********************************************************
-set debuggertesting on
-set callstyle last
-set autoeval off
-set basename on
-# There aren't 100 lines in gcd.rb.
-break 100
-break example/gcd.rb:100
-# This line is okay
-break example/gcd.rb:4
-# No class Foo.
-break Foo.bar
-q