rb8-trepanning 0.1.3

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

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../processor/command/base/cmd'
+
+class Trepan::Command::Test < Trepan::Command
+  NAME = 'test'
+  CATEGORY = 'testcategory'
+  completion %w(a aa ab ba aac)
+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,57 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+# require_relative '../../app/core'
+require_relative '../../processor/mock'
+require_relative '../../processor/command/exit'
+require_relative '../../processor/command/base/subcmd'
+
+$errors = []
+class TestBaseSubCommand < Test::Unit::TestCase
+
+  def setup
+    $errors   = []
+    $msgs     = []
+    @dbgr = MockDebugger::MockDebugger.new(:start_frame=>2)
+    @cmdproc  = Trepan::CmdProcessor.new(@dbgr.intf)
+    @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|
+          constants = subcmd_obj.class.constants
+          assert_equal(true, 
+                       constants.member?(attr)||constants.member?(attr.to_sym),
+                       "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,23 @@
+#!/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']
+    assert_equal(%w(debug different directories), 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

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

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../processor/command/base/subsubcmd'
+
+$errors = []
+class TestBaseSubCommand < Test::Unit::TestCase
+
+  def test_prefix_set
+    Trepanning::SubSubcommand.set_name_prefix('/tmp/show_subcmd/auto_subcmd/food.rb', 
+                                           self.class)
+    assert_equal('food', NAME, "should have set NAME")
+    assert_equal('show auto food', CMD)
+    assert_equal(%w(show auto food), PREFIX)
+  end
+
+end

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

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative 'cmd-helper'
+require_relative '../../processor/command/alias'
+require_relative '../../processor/command/unalias'
+
+# Test commands alias and unalias
+class TestCommandAliasUnalias < Test::Unit::TestCase
+
+  include UnitHelper
+  def setup
+    common_setup
+    @name = File.basename(__FILE__, '.rb').split(/-/)[2]
+  end
+
+  def check_alias(should_not_have, cmd_name, *args)
+    @cmdproc.instance_variable_set('@msgs', [])
+    @cmdproc.instance_variable_set('@errmsgs', [])
+    arg_str = args.join(' ')
+    my_cmd   = @cmds[cmd_name]
+    my_cmd.run([cmd_name] + args)
+    shoulda = should_not_have ? ['no ', ''] : ['', 'no ']
+    msgs = @cmdproc.instance_variable_get('@msgs')
+    errmsgs = @cmdproc.instance_variable_get('@errmsgs')
+    assert_equal(should_not_have, msgs.empty?,
+                 "Expecting %s%s for #{arg_str}.\n Got #{msgs}" %
+                 [shoulda[0], cmd_name])
+    assert_equal(!should_not_have, errmsgs.empty?,
+                 "Expecting %serror for #{arg_str}.\n Got #{errmsgs}" %
+                 shoulda[1])
+  end
+
+  def alias_defined?(alias_name)
+    @cmdproc.aliases.member?(alias_name)
+  end
+  
+  def test_alias_command
+
+    assert_equal(false, @cmdproc.aliases.empty?,
+                 'There should be some aliases defined')
+
+    assert_equal(false, alias_defined?('ki'))
+    check_alias(false, 'alias', 'ki', 'kill')
+    assert_equal(true, alias_defined?('ki'))
+    check_alias(false, 'unalias', 'ki')
+    assert_equal(false, alias_defined?('ki'))
+  end
+end

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

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative './mock-helper'
+require_relative '../../processor/command/exit'
+
+class TestCommandExit < Test::Unit::TestCase
+  include MockUnitHelper
+  def setup
+    @name      = File.basename(__FILE__, '.rb').split(/-/)[2]
+    common_setup(@name)
+  end
+
+  def test_basic
+    pid = fork { @cmd.run([@name, '10']) }
+    Process.wait
+    assert_equal(10, $?.exitstatus)
+    pid = fork { @cmd.run([@name]) }
+    Process.wait
+    assert_equal(0, $?.exitstatus)
+    # FIXME: should test that finalization routines get run;
+    # should test 'confirm' gets run; and should test that
+    # 'unconditional' is handled correctly.
+  end
+  
+
+end

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

@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative 'cmd-helper'
+require_relative '../../processor/command/help'
+
+class TestCommandHelp < Test::Unit::TestCase
+
+  include UnitHelper
+  def setup
+    common_setup
+    @name     = File.basename(__FILE__, '.rb').split(/-/)[2]
+    @my_cmd   = @cmds[@name]
+  end
+
+  def check_help(should_not_have, *args)
+    @cmdproc.instance_variable_set('@msgs', [])
+    @cmdproc.instance_variable_set('@errmsgs', [])
+    arg_str = args.join(' ')
+    @my_cmd.run([@name] + args)
+    shoulda = should_not_have ? ['no ', ''] : ['', 'no ']
+    msgs = @cmdproc.instance_variable_get('@msgs')
+    errmsgs = @cmdproc.instance_variable_get('@errmsgs')
+    assert_equal(should_not_have, msgs.empty?,
+                 "Expecting %shelp for %s.\n Got %s" %
+                 [shoulda[0], arg_str, msgs])
+    assert_equal(!should_not_have, errmsgs.empty?,
+                 "Expecting %serror for %s.\n Got %s" %
+                 [shoulda[1], arg_str, msgs])
+  end
+  
+  def test_help_command
+
+    # Test we can run 'help *cmd* for each command
+    @cmds.keys.each do |cmd_name| 
+      check_help(false, cmd_name) 
+    end
+
+    # Test we can run 'help *alias* for each alias
+    @cmdproc.aliases.keys.each do |alias_name| 
+      check_help(false, alias_name)
+    end
+
+    # double-check specific commands and aliases
+    %w(kill n help).each do |cmd_pat|
+      check_help(false, cmd_pat)
+    end
+
+    # Test patterns
+    %w(* k.* ki).each do |cmd_pat|
+      check_help(false, cmd_pat)
+    end
+
+    # Test categories
+    %w(running stack).each do |cmd_pat|
+      check_help(false, cmd_pat)
+    end
+
+    # # Test sub help and subhelp patterns
+    # [%w(info file), %w(show *)].each do |args|
+    #   check_help(false, args)
+    # end
+
+    # Test invalid commands
+    %w(bogus abcd.*).each do |cmd_pat|
+      check_help(true, cmd_pat)
+    end
+
+    # invalid help subcommands
+    [%w(info fdafds), %w(fedafdsa *)].each do |args|
+      check_help(true, *args)
+    end
+
+    # screwball error
+    check_help(true, '["info",')
+
+  end
+
+  # FIXME: Do better than this.
+  def check_subcmd_help(cmd_name, subcmd, *args)
+    def subcmd.msg(mess)
+      @msgs << mess
+    end
+    subcmd.instance_variable_set('@msgs', [])
+    subcmd.instance_variable_set('@errmsgs', [])
+    subcmd.help(cmd_name)
+    assert subcmd.instance_variable_get('@msgs')
+    # subcmd.help
+  end
+
+  def test_help_subcommand
+    # Get list of commands with subcmds
+    cmd_names = @cmds.values.map do |c| 
+      c.instance_variable_defined?(:@subcmds) ? c.name : nil
+    end.compact
+    cmd_names.each do |cmd_name|
+      check_subcmd_help(cmd_name, @cmds[cmd_name].subcmds)
+    end
+  end
+
+  def test_help_complete
+    assert_equal(%w(break breakpoints), @my_cmd.complete('br'))
+    assert_equal(%w(directory disable display), @my_cmd.complete('di'))
+  end
+end

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

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative './mock-helper'
+require_relative '../../processor/command/kill'
+
+class TestCommandKill < Test::Unit::TestCase
+  include MockUnitHelper
+  def setup
+    @name = File.basename(__FILE__, '.rb').split(/-/)[2]
+    common_setup(@name)
+    def @cmd.msg(message)
+      @msgs << message
+    end
+    def @cmd.errmsg(message)
+      @errmsgs << message
+    end
+    reset_cmdproc_vars
+  end
+
+  def reset_cmdproc_vars
+    @cmd.instance_variable_set('@msgs', [])
+    @cmd.instance_variable_set('@errmsgs', [])
+    @cmd.proc.leave_cmd_loop = false
+  end
+  
+  def test_kill_command
+      @cmd.run([@name, 'foo'])
+      assert_equal(false,  @cmd.proc.leave_cmd_loop)
+      assert_equal(1, @cmd.instance_variable_get('@errmsgs').size)
+      
+    if false
+      save_trap = Signal.trap(10) {
+        @success = true
+      }
+      
+      @success = false
+      @cmd.run([@name, '10'])
+      #  assert_equal(true,  @success, 
+      #             'Should have run the handler')
+    end
+
+  ensure
+    # restore old trap if any
+    trap(10, save_trap)
+  end
+end

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

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+require 'rubygems'; require 'require_relative'
+require_relative './mock-helper'
+require_relative '../../processor/command/source'
+
+# Test command source
+class TestCommandSource < Test::Unit::TestCase
+
+  include MockUnitHelper
+  def setup
+    @name = File.basename(__FILE__, '.rb').split(/-/)[2]
+    common_setup(@name)
+  end
+
+  def test_source_opts
+
+  [['--quiet',       :verbose, false],
+   ['-q',            :quiet, true],
+   ['--no-quiet',    :quiet, false],
+   ['--continue',    :abort_on_error, false],
+   ['--no-continue', :abort_on_error, true],
+   ['-c',            :abort_on_error, false],
+   ['-v',            :verbose, true],
+   ['--verbose',     :verbose, true],
+   ['--no-verbose',  :verbose, false]
+  ].each do |opt, key, expect|
+      options = 
+        @cmd.parse_options(Trepan::Command::SourceCommand::DEFAULT_OPTIONS.dup,
+                           opt)
+      assert_equal(expect, options[key], 
+                   "Option #{opt} using key #{key} failure")
+    end
+  end
+end

data/test/unit/test-completion.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'; require 'require_relative'
+require_relative '../../lib/trepanning'
+
+# We don't want to do completion or save history.
+# This is one hacky way to make sure this doesn't happen
+def Trepan::GNU_readline?
+end
+
+# Test commands completion
+class TestCompletion < Test::Unit::TestCase
+  def test_completion
+    [
+     ['sho', 'sho', ['show']],  # Simple single completion
+     ['un', 'un', ['unalias', 'undisplay']],  # Simple multiple completion
+     ['show', 'show', ['show']], # Completion when word is complete
+     ['irb ', 'irb ', []],        # Don't add anything - no more
+     ['set auto', 'auto', ['auto']], # Single completion on two words
+     ['set au', 'au', ['auto']],  # Single completion when there are two words
+     ['sho aut', 'aut', ['auto']], # Add a space because there is more
+     ['set auto eval ', '', ['off', 'on']], # Many 3-word completions
+
+     # Many two-word completions
+     ['set auto ', '', ['eval', 'irb', 'list']], 
+
+     ['set auto e', 'e', ['eval']],
+     ## ['disas', 'disas', ['disassemble']], # Another single completion
+     ## FIXME:
+     # ['help syn', 'syn', ['syntax']],
+     ['help br', 'br', ['break', 'breakpoints']],
+     ['where', 'where', ['where']],  # Single alias completion
+     ['set basename o', 'o', ['off', 'on']],
+    ].each do |line, token, expect_completion|
+      assert_equal(expect_completion, 
+                   $trepan_completion_proc.call(token, line),
+                   "Bad completion on #{line.inspect} with #{token.inspect}")
+    end
+    assert($trepan_completion_proc.call('', '').size > 30, 
+           'Initial completion should return more than 30 commands')
+  end
+end