## require 'thread_frame'
## require 'trace'
require 'rubygems'; require 'require_relative'
require_relative '../../lib/trepanning'
require_relative '../../io/string_array'

module FnTestHelper
  ## include Trace

  ## # Synchronous events without C frames or instructions
  # Common setup to create a debugger with String Array I/O attached
  def strarray_setup(debugger_cmds, insn_stepping=false)
    stringin               = Trepan::StringArrayInput.open(debugger_cmds)
    stringout              = Trepan::StringArrayOutput.open
    d_opts                 = {:input  => stringin, :output => stringout,
                              :nx     => true}
    d                      = Trepan.new(d_opts)

    d.settings[:basename]  = d.processor.settings[:basename] = true
    d.settings[:different] = false
    d.settings[:autoeval]  = false
    return d
  end

  unless defined?(TREPAN_PROMPT)
    TREPAN_PROMPT = /^\(trepanx\): /
    TREPAN_LOC    = /.. \(.+:\d+( @\d+)?\)/
  end

  # Return the caller's line number
  def get_lineno
    Rubinius::VM.backtrace(0)[1].line
  end

  def compare_output(right, d, debugger_cmds, filter_fn = nil)
    # require_relative '../../lib/trepanning'
    # Trepan.debug(:set_restart => true)
    got = filter_line_cmd(d.intf[-1].output.output)
    got = send(:filter_fn, got) if filter_fn
    if got != right
      got.each_with_index do |got_line, i|
        if i < right.size and got_line != right[i]
          # dbgr.debugger
          puts "! #{got_line}"
        else
          puts "  #{got_line}"
        end
      end
      puts '-' * 10
      right.each_with_index do |right_line, i|
        if i < got.size and got[i] != right_line
          # dbgr.debugger
          puts "! #{right_line}"
        else
          puts "  #{right_line}"
        end
      end
    end
    assert_equal(right, got, caller[0])
  end

  # Return output with source lines prompt and command removed
  def filter_line_cmd(a, show_prompt=false)
    # Remove debugger prompt
    a = a.map do |s|
     s =~ TREPAN_PROMPT ? nil : s
    end.compact unless show_prompt

    # Remove debugger location lines.
    # For example:
    #   -- (/src/external-vcs/trepan/tmp/gcd.rb:4 @21)
    # becomes:
    #   --
    a2 = a.map do |s|
      s =~ TREPAN_LOC ? s.gsub(/\(.+:\d+( @\d+)?\)\n/, '').chomp : s.chomp
    end

    # Canonicalize breakpoint messages.
    # For example:
    #   Set breakpoint 1: test/functional/test-tbreak.rb:10 (@0)
    # becomes :
    #   Set breakpoint 1: foo.rb:55 (@3)
    a3 = a2.map do |s|
      s.gsub(/^Set (temporary )?breakpoint (\d+): .+:(\d+) \(@\d+\)/,
             'Set \1breakpoint \2: foo.rb:55 (@3)')
    end
    return a3
  end

end

# Demo it
if __FILE__ == $0
  include FnTestHelper
  strarray_setup(%w(eh bee see))
  puts get_lineno()
  p '-- (/src/external-vcs/trepan/tmp/gcd.rb:4)' =~ TREPAN_LOC
  p '(trepan): exit' =~ TREPAN_PROMPT
  output='
-- (/src/external-vcs/trepan/tmp/gcd.rb:4)
(trepan): s
-- (/src/external-vcs/trepan/tmp/gcd.rb:18)
(trepan): s
-- (/src/external-vcs/trepan/tmp/gcd.rb:19)
(trepan): s
.. (/src/external-vcs/trepan/tmp/gcd.rb:0)
(trepan): s
-> (/src/external-vcs/trepan/tmp/gcd.rb:4)
'.split(/\n/)
  puts filter_line_cmd(output)
  puts '-' * 10
  puts filter_line_cmd(output, true)
end