ruby-debug 0.10.5.rc1 → 0.10.5.rc2

data/test/test-info-thread.rb

@@ -1,24 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test simple thread commands
-class TestInfoThread < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='info-thread'
-    filter = Proc.new{|got_lines, correct_lines|
-      [got_lines, correct_lines].each do |a|
-        a.each do |s|
-          s.gsub!(/Thread:0x[0-9a-f]+/, 'Thread:0x12345678')
-        end
-      end
-      got_lines.each do |s|
-        s.gsub!(/run>[ \t]+.*gcd.rb:4/, "run> gcd.rb:4")
-      end
-    }
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-end

data/test/test-info-var.rb

@@ -1,30 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test info variables command
-class TestInfoVar < Test::Unit::TestCase
-  include TestHelper
-
-  def test_info_variables
-    filter = Proc.new{|got_lines, correct_lines|
-      [got_lines[13-1], correct_lines[13-1]].each do |s|
-        s.sub!(/Mine:0x[0-9,a-f]+/, 'Mine:')
-      end
-      [got_lines, correct_lines].each do |a|
-        a.each do |s|
-          s.sub!(/Lousy_inspect:0x[0-9,a-f]+/, 'Lousy_inspect:')
-          s.sub!(/UnsuspectingClass:0x[0-9,a-f]+/, 'UnsuspectingClass:')
-        end
-      end
-    }
-
-    testname='info-var'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/info-var-bug.rb",
-                        :filter => filter))
-    
-    testname='info-var-bug2'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/info-var-bug2.rb"))
-  end
-end

data/test/test-info.rb

@@ -1,27 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test info commands
-class TestInfo < Test::Unit::TestCase
-  include TestHelper
-
-  # Test commands in info.rb
-  def test_basic
-    testname='info'
-    filter = Proc.new{|got_lines, correct_lines|
-      got_lines.each do |s|
-        s.gsub!(/Line 4 of ".*gcd.rb"/, 'Line 4 of "gcd.rb"')
-      end
-    }
-
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-
-  def test_file_break
-    testname='info-file-break'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5"))
-  end unless defined?(JRUBY_VERSION) # JRuby doesn't yet support tracelines
-end

data/test/test-init.rb

@@ -1,49 +0,0 @@
-#!/usr/bin/env ruby
-require 'test/unit'
-require 'rbconfig'
-
-ROOT_DIR=File.dirname(__FILE__)
-require File.join(ROOT_DIR, 'helper.rb')
-
-# begin require 'rubygems' rescue LoadError end
-# require 'ruby-debug'; Debugger.start
-
-# Test Debugger.init and setting up ruby-debug variables
-class TestDebuggerInit < Test::Unit::TestCase
-  @@SRC_DIR = File.dirname(__FILE__) unless 
-    defined?(@@SRC_DIR)
-  def test_basic
-    unless File.exist?(File.join(ROOT_DIR, 'ext'))
-      puts "Skipping test #{__FILE__}"
-      return
-    end
-    debugger_output = 'test-init.out'
-    Dir.chdir(@@SRC_DIR) do 
-      old_emacs = ENV['EMACS']
-      old_columns = ENV['COLUMNS']
-      ENV['EMACS'] = nil
-      ENV['COLUMNS'] = '120'
-      ruby = "#{TestHelper.load_ruby} #{TestHelper.load_params}"
-      IO.popen("#{ruby} ./gcd-dbg.rb 5 >#{debugger_output}", 'w') do |pipe|
-        pipe.puts 'p Debugger::PROG_SCRIPT'
-        pipe.puts 'show args'
-        pipe.puts 'quit unconditionally'
-      end
-      lines = File.open(debugger_output).readlines
-      ENV['EMACS'] = old_emacs
-      ENV['COLUMNS'] = old_columns
-
-      right_file = case Config::CONFIG['host_os']
-                   when /^darwin/
-                     'test-init-osx.right'
-                   when /^cygwin/
-                     'test-init-cygwin.right'
-                   else
-                     'test-init.right'
-                   end
-      expected = File.open(File.join('data', right_file)).readlines
-      assert_equal(expected, lines)
-      File.delete(debugger_output) if expected == lines
-    end
-  end
-end

data/test/test-list.rb

@@ -1,14 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test List commands
-class TestList < Test::Unit::TestCase
-  include TestHelper
-
-  # Test commands in list.rb
-  def test_basic
-    testname='list'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5"))
-  end
-end

data/test/test-method.rb

@@ -1,20 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-class TestMethod < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='method'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/classes.rb"))
-    begin
-      require 'methodsig'
-      testname='methodsig'
-      script = File.join('data', testname + '.cmd')
-      assert(run_debugger(testname, "--script #{script} -- ./example/classes.rb"))
-    rescue LoadError
-      puts "Skipping method sig test"
-    end
-  end
-end

data/test/test-output.rb

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test 'starting' annotation.
-class TestStartingAnnotate < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='output'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "-A 3 --script #{script} -- ./example/output.rb"))
-  end
-end

data/test/test-pm.rb

@@ -1,37 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test Post-mortem command
-class TestPM < Test::Unit::TestCase
-  include TestHelper
-
-  # Test post-mortem handling
-  def test_basic
-#       filter = Proc.new{|got_lines, correct_lines|
-#         [got_lines[0], correct_lines[0]].each do |s|
-#           s.sub!(/tdebug.rb:\d+/, 'rdebug:999')
-#         end
-#       }
-    ENV['COLUMNS'] = '80'
-    testname='post-mortem'
-    script = File.join('data', testname + '.cmd')
-    testname += '-osx' if Config::CONFIG['host_os'] =~ /^darwin/
-    assert(run_debugger(testname, "--script #{script} --post-mortem ./example/pm.rb"))
-  end
-
-  # Test post-mortem handling
-  def test_pm_next
-    ENV['COLUMNS'] = '80'
-    testname='post-mortem-next'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} --post-mortem ./example/pm.rb"))
-  end
-
-  # Test Tracker #22118 post-mortem giving an error in show internal variables
-  def test_pm_iv_bug
-    ENV['COLUMNS'] = '80'
-    testname='pm-bug'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} --post-mortem example/pm-bug.rb"))
-  end
-end unless defined?(JRUBY_VERSION) # post-mortem not yet supported on JRuby

data/test/test-quit.rb

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test Quit command
-class TestQuit < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='quit'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb"))
-  end
-end

data/test/test-raise.rb

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test Debugger.load handles uncaught exceptions in the debugged program.
-class TestRaise < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='raise'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/raise.rb"))
-  end
-end

data/test/test-save.rb

@@ -1,22 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-class TestSave < Test::Unit::TestCase
-  include TestHelper
-
-  # Test initial variables and setting/getting state.
-  def test_basic
-    testname='save'
-    filter = Proc.new{|got_lines, correct_lines|
-      got_lines.each do |s|
-        s.gsub!(/(\d+) file .*gcd.rb/, '\1 file gcd.rb')
-      end
-      got_lines.each do |s|
-        s.gsub!(/break .*gcd.rb:10/, "break gcd.rb:10")
-      end
-    }
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-end

data/test/test-setshow.rb

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-class TestSetShow < Test::Unit::TestCase
-  include TestHelper
-
-  # Test initial variables and setting/getting state.
-  def test_basic
-    testname='setshow'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5"))
-  end
-end

data/test/test-source.rb

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test 'source' command handling.
-class TestSource < Test::Unit::TestCase
-  include TestHelper
-
-  def test_basic
-    testname='source'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5"))
-  end
-end

data/test/test-stepping.rb

@@ -1,14 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-# Test that linetracing does something.
-class TestStepping < Test::Unit::TestCase
-  include TestHelper
-
-  # Test commands in stepping.rb
-  def test_basic
-    testname='stepping'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5"))
-  end
-end

data/test/test-trace.rb

@@ -1,40 +0,0 @@
-#!/usr/bin/env ruby
-require File.expand_path("../helper", __FILE__)
-
-class TestTrace < Test::Unit::TestCase
-  include TestHelper
-
-  def test_trace_option
-    filter = Proc.new{|got_lines, correct_lines|
-      got_lines.collect!{|l| l =~ /gcd\.rb:/? l : nil}.compact!
-      got_lines.each do |s|
-        s.gsub!(/:.*gcd.rb:/, ':gcd.rb:')
-      end
-    }
-
-    assert(run_debugger("trace", "-nx --trace ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-
-  def test_linetrace_command
-    filter = Proc.new{|got_lines, correct_lines|
-      got_lines.reject! {|l| l =~ /:(rdbg|linecache)\.rb:/ }
-    }
-
-    testname = 'linetrace'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-
-  def test_linetrace_plus_command
-    filter = Proc.new{|got_lines, correct_lines|
-      got_lines.reject! {|l| l =~ /:(rdbg|linecache)\.rb:/ }
-    }
-
-    testname = 'linetracep'
-    script = File.join('data', testname + '.cmd')
-    assert(run_debugger(testname, "--script #{script} -- ./example/gcd.rb 3 5",
-                        :filter => filter))
-  end
-end

data/test/thread1.rb

@@ -1,26 +0,0 @@
-#!/usr/bin/env ruby
-# Adapted from Programming Ruby 2nd Ed. p. 138
-require 'rubygems'
-
-unless defined?(Debugger)
-  puts "This program has to be called from the debugger"
-  exit 1
-end
-
-def fn(count, i)
-  sleep(rand(0.1))
-  if 4 == i
-    debugger 
-  end
-  Thread.current['mycount'] = count
-end
-
-count = 0
-threads = []
-5.times do |i|
-  threads[i] = Thread.new do
-    fn(count, i)
-    count += 1
-    end
-  end
-threads.each {|t| t.join }

data/test/trunc-call.rb

@@ -1,31 +0,0 @@
-#!/usr/bin/env ruby
-# This program is used to test that 'restart' works when we didn't call
-# the debugger initially.
-
-TOP_SRC_DIR = File.join(File.expand_path(File.dirname(__FILE__), "..")) unless 
-  defined?(TOP_SRC_DIR)
-
-$:.unshift File.join(TOP_SRC_DIR, "ext")
-$:.unshift File.join(TOP_SRC_DIR, "lib")
-$:.unshift File.join(TOP_SRC_DIR, "cli")
-require 'ruby-debug'
-
-# GCD. We assume positive numbers
-def gcd(a, b)
-  # Make: a <= b
-  if a > b
-    a, b = [b, a]
-  end
-  if a==3
-    Debugger.debugger
-  end
-
-  return nil if a <= 0
-
-  if a == 1 or b-a == 0
-    return a
-  end
-  return gcd(b-a, a)
-end
-
-gcd(13,8)