debugger 1.0.0.rc1

data/test/test-help.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug' ; Debugger.start
+
+require 'test/unit'
+SRC_DIR = File.dirname(__FILE__) unless 
+  defined?(SRC_DIR)
+%w(ext lib cli).each do |dir|
+  $:.unshift  File.join(SRC_DIR, '..', dir)
+end
+require 'ruby_debug'
+
+require File.join(SRC_DIR, '..', 'cli', 'ruby-debug')
+$:.shift; $:.shift; $:.shift
+
+def cheap_diff(got_lines, correct_lines)
+  puts got_lines if $DEBUG
+  correct_lines.each_with_index do |line, i|
+    correct_lines[i].chomp!
+    if got_lines[i] != correct_lines[i]
+      puts "difference found at line #{i+1}"
+      puts "got : #{got_lines[i]}"
+      puts "need: #{correct_lines[i]}"
+      return false
+    end
+    if correct_lines.size != got_lines.size
+      puts("difference in number of lines: " + 
+           "#{correct_lines.size} vs. #{got_lines.size}")
+      return false
+    end
+    return true
+  end
+end
+
+# Test Help commands
+class TestHelp < Test::Unit::TestCase
+  require 'stringio'
+
+  # Test initial variables and setting/getting state.
+  def test_basic
+    testbase = 'help'
+    op = StringIO.new('', 'w')
+    Dir.chdir(SRC_DIR) do 
+      script = File.join('data', "#{testbase}.cmd")
+      Debugger.const_set('Version', 'unit testing')
+      Debugger.run_script(script, op)
+      got_lines = op.string.split("\n")
+      right_file = File.join('data', "#{testbase}.right")
+      correct_lines = File.readlines(right_file)
+      result = cheap_diff(got_lines, correct_lines)
+      unless result
+        puts '-' * 80
+        puts got_lines 
+        puts '-' * 80
+      end
+      assert result 
+    end
+  end
+end

data/test/test-hist.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test history commands
+
+class TestHistory < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  unless defined?(@@FILE_HISTORY)
+    @@FILE_HISTORY = '.rdebug_hist'
+  end
+
+  def test_basic
+
+    # Set up history file to read from.
+    ENV['HOME']=@@SRC_DIR
+    ENV['RDEBUG'] = nil
+
+    debugger_commands = ['show commands', 
+                         'set history save on', 
+                         'show history',
+                         'quit unconditionally']
+    debugger_output = 'test-history.out'
+
+    Dir.chdir(@@SRC_DIR) do
+      correct_lines = File.read(File.join('data', 'history.right')).split(/\n/)
+      f = File.open(@@FILE_HISTORY, 'w')
+      correct_lines[0.. -(debugger_commands.length+1)].each do |line|
+        f.puts line
+      end
+      f.close
+
+      # Now that we've set up a history file, run the debugger
+      # and check that it's reading that correctly.
+      debug_pgm=File.join('..', 'rdbg.rb')
+      debugged=File.join('gcd.rb')
+      IO.popen("#{debug_pgm} #{debugged} 3 5 >#{debugger_output}", 'w') do 
+        |pipe|
+        debugger_commands.each do |cmd|
+          pipe.puts cmd
+        end
+      end
+      
+      # Compare output
+      got_lines = File.read(@@FILE_HISTORY).split(/\n/)
+      # FIXME: Disable for now.
+      assert true, 'FIXME'
+      return
+      if cheap_diff(got_lines, correct_lines)
+        assert true
+        FileUtils.rm(debugger_output)
+        FileUtils.rm(@@FILE_HISTORY)
+      else
+        assert nil, 'Output differs'
+      end
+    end
+  end
+end
+    
+    

data/test/test-info-thread.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test simple thread commands
+class TestInfoThread < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='info-thread'
+    Dir.chdir(@@SRC_DIR) do 
+       filter = Proc.new{|got_lines, correct_lines|
+         [got_lines, correct_lines].each do |a|
+          a.each do |s|
+            s.sub!(/Thread:0x[0-9a-f]+/, 'Thread:0x12345678')
+          end
+        end
+       }
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./gcd.rb 3 5", nil, filter))
+    end
+  end
+end

data/test/test-info-var.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test info variables command
+class TestInfoVar < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_info_variables
+
+    Dir.chdir(@@SRC_DIR) do 
+
+      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_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./info-var-bug.rb",
+                                nil, filter))
+      testname='info-var-bug2'
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./info-var-bug2.rb",
+                                nil))
+
+    end
+  end
+end

data/test/test-info.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test info commands
+class TestInfo < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  # Test commands in info.rb
+  def test_basic
+    testname='info'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./gcd.rb 3 5"))
+    end
+  end
+end

data/test/test-init.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rbconfig'
+
+# 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.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+  require File.join(@@SRC_DIR, 'helper')
+
+  def test_basic
+    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-jump.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test jump command
+class TestJumpCommand < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='jump'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./#{testname}.rb"))
+    end
+  end
+
+  def test_basic_2
+    testname='jump2'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./#{testname}.rb"))
+    end
+  end
+end

data/test/test-list.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test List commands
+class TestList < Test::Unit::TestCase
+
+  @@src_dir = File.join(Dir.pwd, File.dirname(__FILE__))
+
+  require File.join(@@src_dir, 'helper')
+  include TestHelper
+
+  # Test commands in list.rb
+  def test_basic
+    testname='list'
+    Dir.chdir(@@src_dir) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname, 
+                                "--script #{script} -- ./gcd.rb 3 5"))
+    end
+  end
+end

data/test/test-method.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# require 'rubygems'
+# require 'ruby-debug'; Debugger.start(:post_mortem => true)
+
+class TestMethod < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='method'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./classes.rb"))
+      begin 
+        require 'methodsig'
+        testname='methodsig'
+        script = File.join('data', testname + '.cmd')
+        assert_equal(true, 
+                     run_debugger(testname,
+                                  "--script #{script} -- ./classes.rb"))
+      rescue LoadError
+        puts "Skipping method sig test"
+      end
+    end
+  end
+end

data/test/test-next.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test next command
+class TestNextCommand < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='next'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./#{testname}.rb"))
+    end
+  end
+end

data/test/test-output.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test 'starting' annotation.
+class TestStartingAnnotate < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='output'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "-A 3 --script #{script} -- ./output.rb",
+                                nil, nil, true))
+    end
+  end
+end

data/test/test-quit.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+
+# begin require 'rubygems' rescue LoadError end
+# require 'ruby-debug'; Debugger.start
+
+# Test Quit command
+class TestQuit < Test::Unit::TestCase
+
+  @@SRC_DIR = File.join(Dir.pwd, File.dirname(__FILE__)) unless
+    defined?(@@SRC_DIR)
+
+  require File.join(@@SRC_DIR, 'helper')
+  include TestHelper
+
+  def test_basic
+    testname='quit'
+    Dir.chdir(@@SRC_DIR) do 
+      script = File.join('data', testname + '.cmd')
+#       filter = Proc.new{|got_lines, correct_lines|
+#         [got_lines[0], correct_lines[0]].each do |s|
+#           s.sub!(/tdebug.rb:\d+/, 'rdebug:999')
+#         end
+#       }
+      assert_equal(true, 
+                   run_debugger(testname,
+                                "--script #{script} -- ./null.rb"))
+    end
+  end
+end