rbx-trepanning 0.0.5-universal-rubinius-1.2.1

data/test/unit/test-app-brkptmgr.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/brkptmgr'
+require_relative '../../app/breakpoint'
+
+class TestLibAppBrkptMgr < Test::Unit::TestCase
+
+  def setup
+    @meth = Rubinius::CompiledMethod.of_sender
+    @brkpts = Trepan::BreakpointMgr.new
+    @offset = 0
+  end
+
+  def test_basic
+    assert_equal(0, @brkpts.size)
+    b1 = @brkpts.add("<start>", @meth, @offset, 0, 1)
+    assert_equal(b1, @brkpts.find(@meth, @offset))
+    assert_equal(1, @brkpts.size)
+    # require 'trepanning'
+    # dbgr = Trepan.new(:set_restart => true); dbgr.start
+    assert_equal(b1, @brkpts.delete(b1.id))
+    assert_equal(0, @brkpts.size)
+
+    # Try adding via << rather than .add
+    b2 = @brkpts << Trepan::Breakpoint.new(@meth, 5, nil, :temp => true)
+
+    assert_equal(nil, @brkpts.find(@meth, 6))
+    @brkpts.reset
+    assert_equal(0, @brkpts.size)
+  end
+
+  def test_multiple_brkpt_per_offset
+    b1 = @brkpts.add("b1", @meth, @offset, 5, 2)
+    b2 = @brkpts.add("b2", @meth, @offset, 5, 2)
+    assert_equal(2, @brkpts.size)
+    assert_equal(1, @brkpts.set.size, 
+                 'Two breakpoints but only one @meth/offset')
+    @brkpts.delete_by_brkpt(b1)
+    assert_equal(1, @brkpts.size, 
+                 'One breakpoint after 2nd breakpoint deleted')
+    assert_equal(1, @brkpts.set.size, 
+                 'Two breakpoints, but only one @meth/offset')
+    @brkpts.delete_by_brkpt(b2)
+    assert_equal(0, @brkpts.size, 
+                 'Both breakpoints deleted')
+    assert_equal(0, @brkpts.set.size, 
+                 'Second breakpoint delete should delete @meth/offset')
+  end
+
+end

data/test/unit/test-app-iseq.rb

@@ -0,0 +1,64 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/iseq'
+
+class TestAppISeq < Test::Unit::TestCase
+
+  def test_disasm_prefix
+    meth = Rubinius::VM.backtrace(0, true)[0].method
+    assert_equal(' -->', Trepan::ISeq.disasm_prefix(0, 0, meth))
+    assert_equal('    ', Trepan::ISeq.disasm_prefix(0, 1, meth))
+    meth.set_breakpoint(0, nil)
+    assert_equal('B-->', Trepan::ISeq.disasm_prefix(0, 0, meth))
+    assert_equal('B   ', Trepan::ISeq.disasm_prefix(0, 1, meth))
+  end
+
+  def test_basic
+
+    def single_return
+      cm = Rubinius::VM.backtrace(0, true)[0].method
+      last = cm.lines.last
+      first = 0
+      0.upto((cm.lines.last+1)/2) do |i|
+        first = cm.lines[i*2]
+        break if -1 != first
+      end
+      [last, Trepan::ISeq.yield_or_return_between(cm, first, last)]
+    end
+
+    def branching(bool)
+      cm = Rubinius::VM.backtrace(0, true)[0].method
+      last = cm.lines.last
+      first = nil
+      0.upto((cm.lines.last+1)/2) do |i|
+        first = cm.lines[i*2]
+        break if -1 != first
+      end
+
+      if bool
+        x = 5
+      else
+        x = 6
+      end
+      Trepan::ISeq.goto_between(cm, first, last)
+    end
+
+    def no_branching
+      cm = Rubinius::VM.backtrace(0, true)[0].method
+      last = cm.lines.last
+      first = 0
+      0.upto((cm.lines.last+1)/2) do |i|
+        first = cm.lines[i*2]
+        break if -1 != first
+      end
+      Trepan::ISeq.goto_between(cm, first, last)
+    end
+
+    last, return_ips = single_return
+    assert_equal([last-1], return_ips)
+    assert_equal(-2, no_branching)
+    assert_equal(2, branching(true).size)
+  end
+
+end

data/test/unit/test-app-method.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/method'
+
+class TestAppMethod < Test::Unit::TestCase
+
+  def test_find_method_with_line
+    method = Rubinius::VM.backtrace(0, true)[0].method
+    line = __LINE__
+    ##############################
+    def foo                        # line +  2
+      a = 5                        # line +  3
+      b = 6                        # line +  4
+    end                            # line +  5
+    1.times do                     # line +  6 
+      1.times do                   # line +  7
+        x = 11                     # line +  8
+        foo                        # line +  9
+      end                          # line + 10
+      c = 14                       # line + 11
+    end                            # line + 12
+    ################################################
+    meths = []                     # line + 14
+    expect = Array.new(22, true)  # line + 15
+    [5, 10, 12, 13, 18].each do |i|
+      expect[i] = false             # line + 17
+    end                            # line + 18
+    (2..21).each do |l|            # line + 19
+      meth = Trepanning::Method.find_method_with_line(method, line+l)
+      meths << meth                # line + 21
+      assert_equal(expect[l], !!meth, "Mismatched line #{line+l}")
+    end
+    pairs = [[1,2], [0,4], [5,9], [6,7], [14,15], [20,21]]
+    pairs.each do |pair|
+      assert_equal(meths[pair[0]].inspect, meths[pair[1]].inspect, 
+                   "Method compare")
+    end
+  end
+  def test_valid_ip?
+    meth = Rubinius::VM.backtrace(0, true)[0].method
+    ip = Trepanning::Method.locate_line( __LINE__, meth)[1]
+    assert_equal(true, ip.kind_of?(Fixnum), 
+                 "locate line of #{__LINE__} should have gotten an IP;" +
+                 " got: #{ip.inspect}")
+    [[-1, false],
+     [ 0, true], 
+     [ip, true], 
+     [100000, false]].each do |ip, expect|
+      assert_equal expect, Trepanning::Method.valid_ip?(meth, ip)
+    end
+  end
+
+end

data/test/unit/test-app-options.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'stringio'
+require 'tempfile'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/options'
+
+# To have something to work with.
+load 'tmpdir.rb'
+
+class TestAppOptions < Test::Unit::TestCase
+
+  def setup
+    @options = Trepan::DEFAULT_CMDLINE_SETTINGS.clone
+    @stderr  = StringIO.new
+    @stdout  = StringIO.new
+    @options = Trepan::copy_default_options
+    @opts    = Trepan::setup_options(@options, @stdout, @stderr)
+  end
+
+  def test_cd
+    rest = @opts.parse(['--cd', Dir.tmpdir])
+    assert_equal(Dir.tmpdir, @options[:chdir])
+    assert_equal('', @stderr.string)
+    assert_equal('', @stdout.string)
+
+    setup
+    tf    = Tempfile.new("delete-me")
+    orig_cd = @options[:chdir]
+    rest = @opts.parse(['--cd', tf.path])
+    assert_equal(orig_cd, @options[:chdir])
+    assert_not_equal('', @stderr.string)
+    assert_equal('', @stdout.string)
+    # FIXME: add test where directory isn't executable.
+  end
+
+  def test_binary_opts
+    %w(nx).each do |name|
+      setup
+      o    = ["--#{name}"]
+      rest = @opts.parse o
+      assert_equal('', @stderr.string)
+      assert_equal(true, @options[name.to_sym])
+    end
+  end
+
+  def test_help_and_version_opts
+    %w(help version).each do |name|
+      setup
+      o    = ["--#{name}"]
+      rest = @opts.parse o
+      assert_not_equal('', @stdout.string)
+      assert_equal('', @stderr.string)
+      assert_equal(true, @options[name.to_sym])
+      other_sym = 'help' == name ? :version : :help
+      assert_equal(false, @options.member?(other_sym))
+    end
+  end
+
+  def test_both_client_server_opts
+    # Try each of --client and --server options separately
+    %w(client server).each do |name|
+      setup
+      o    = ["--#{name}"]
+      rest = @opts.parse o
+      assert_equal('', @stdout.string)
+      assert_equal('', @stderr.string)
+      assert_equal(true, @options[name.to_sym])
+    end
+
+    # Try both --client and --server together. Should give a warning
+    setup
+    o    = %w(--client  --server)
+    rest = @opts.parse o
+    assert_not_equal('', @stderr.string)
+    assert_equal('', @stdout.string)
+    assert_equal(true, @options[:client])
+    assert_equal(false, @options[:server])
+    
+  end
+
+end

data/test/unit/test-app-run.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/run'
+
+class TestAppRun < Test::Unit::TestCase
+  include Trepanning
+  def test_basic
+    assert_equal(true, File.executable?(whence_file('irb')))
+    ng = whence_file('probably-does-not-exist')
+    assert_equal(true, File.executable?(ng) || ng == 'probably-does-not-exist')
+    rp = ruby_path
+    assert_equal(true, File.executable?(rp))
+  end
+
+end

data/test/unit/test-app-util.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/util'
+
+class TestAppUtil < Test::Unit::TestCase
+  include Trepan::Util
+  def test_safe_repr
+    string = 'The time has come to talk of many things.'
+    assert_equal(string, safe_repr(string, 50))
+    assert_equal('The time...  things.', safe_repr(string, 17))
+    assert_equal('"The tim... things."', safe_repr(string.inspect, 17))
+    string = "'The time has come to talk of many things.'"
+    assert_equal("'The tim... things.'", safe_repr(string, 17))
+  end
+
+  def test_find_main_script
+    locs = Rubinius::VM.backtrace(0, true)
+    i = find_main_script(locs)
+    assert_equal(true, !!i)
+    j = locs.size - i
+    if j > 0
+      locs = Rubinius::VM.backtrace(j, true)
+      assert_equal(false, !!find_main_script(locs))
+    end
+  end
+end

data/test/unit/test-app-validate.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../app/validate'
+
+class TestAppValidate < Test::Unit::TestCase
+  include Trepan::Validate
+  def test_line_or_ip
+    [['o1',  [1, nil]],
+     ['O2',   [2, nil]],
+     ['oink', [nil, nil]],
+     ['1'   , [nil, 1]],
+     ['12',   [nil, 12]],
+     ['-12',  [nil, -12]]].each do |arg, expect|
+      assert_equal(line_or_ip(arg), expect)
+    end
+  end
+end

data/test/unit/test-base-cmd.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../processor/command/base/cmd'
+
+class Trepan
+  class Command::Test < Trepan::Command
+    NAME = 'test'
+    CATEGORY = 'testcategory'
+    completion %w(a aa ab ba aac)
+  end
+end
+
+class TestBaseCommand < Test::Unit::TestCase
+
+  class MockCmdProcessor
+    # The below functions aren't tested/called, but they are the
+    # methods required by a command and are placeholders for when we
+    # do start testing.
+    def initialize(dbgr)
+    end
+    def confirm(message, default)
+      p ['confirm: ', message, default]
+    end
+    def errmsg(message, opts)
+      p ['err:', message, opts]
+    end
+    def msg(message, opts)
+      p [message, opts]
+    end
+    def msg_nocr(message, opts)
+      p ['nocr: ', message, opts]
+    end
+    def section(message, opts)
+      p ['section: ', message, opts]
+    end
+  end
+
+  def setup
+    @proc = MockCmdProcessor.new(nil)
+    @cmd = Trepan::Command::Test.new(@proc)
+  end
+
+  def test_base_completion
+    assert_equal(%w(aa aac), @cmd.complete('aa'))
+  end
+end

data/test/unit/test-base-subcmd.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+# require_relative '../../app/core'
+require_relative '../../processor/main'
+require_relative '../../processor/command/exit'
+require_relative '../../processor/command/base/subcmd'
+
+# Mock debugger stub. FIXME: put in common helper routine.
+class Trepan
+end
+
+$errors = []
+class TestBaseSubCommand < Test::Unit::TestCase
+
+  Trepan::Subcommand.const_set(:NAME, 'bogus')
+  def setup
+    $errors   = []
+    $msgs     = []
+    @dbgr     = Trepan.new
+    # @core     = Trepan::Core.new(@dbgr)
+    @cmdproc  = Trepan::CmdProcessor.new(@dbgr)
+    @cmds     = @cmdproc.instance_variable_get('@commands')
+    @exit_cmd = @cmds['exit']
+    @exit_subcmd = Trepan::Subcommand.new(@exit_cmd)
+    def @exit_subcmd.msg(message)
+      $msgs << message
+    end
+    def @exit_subcmd.errmsg(message)
+      $errors << message
+    end
+  end
+
+  def test_base_subcommand
+    assert @exit_subcmd
+    assert_raises RuntimeError do 
+      @exit_subcmd.run
+    end
+    assert_equal([], $errors)
+    @exit_subcmd.run_set_int('', 'testing 1 2 3')
+    assert_equal(1, $errors.size)
+    assert_equal(Fixnum, @exit_subcmd.settings[:maxwidth].class)
+    @cmds.each do |cmd_name, cmd_obj|
+      next unless cmd_obj.is_a?(Trepan::SubcommandMgr)
+      cmd_obj.subcmds.subcmds.each do |subcmd_name, subcmd_obj|
+        %w(HELP NAME PREFIX).each do |attr|
+          assert_equal(true, subcmd_obj.class.constants.member?(attr),
+                       "Constant #{attr} should be defined in \"#{cmd_obj.name} #{subcmd_obj.class::NAME}\"")
+        end
+      end
+      
+    end
+  end
+
+  def test_show_on_off
+    assert_equal('on', @exit_subcmd.show_onoff(true))
+    assert_equal('off', @exit_subcmd.show_onoff(false))
+    assert_equal('unset', @exit_subcmd.show_onoff(nil))
+    assert_equal('??', @exit_subcmd.show_onoff(5))
+  end
+end

data/test/unit/test-base-submgr.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative 'cmd-helper'
+# We will use set as our canonical example
+require_relative '../../processor/command/set'
+
+class TestBaseSubcommandMgr < Test::Unit::TestCase
+
+  include UnitHelper
+  def setup
+    common_setup
+  end
+
+  def test_basic
+    my_cmd = @cmds['show']
+    # require 'trepanning'; debugger
+    assert_equal(%w(debug different), my_cmd.complete('d'),
+                 "Should be able to complete 'd'")
+    assert_equal(%w(show args), my_cmd.subcmds.lookup('ar').prefix,
+                 "Should be able to complete lookup('ar')")
+    assert_equal(nil, my_cmd.subcmds.lookup('a'), 
+                 "Shouldn't find since we have 'show args' and 'show auto'")
+  end
+end