code.delx.au - gnu-emacs-elpa/blob - packages/realgud/test/test-bt-trepanx.el

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "./bt-helper.el")
   4 (load-file "../realgud/debugger/trepanx/init.el")
   5
   6 (declare-function setup-bt 'realgud-bt-helper)
   7 (declare-function __FILE__ 'load-relative)
   8
   9 (test-simple-start)
  10
  11 (eval-when-compile
  12   (defvar temp-bt)
  13 )
  14
  15 (setq temp-bt
  16       (setup-bt "trepanx"
  17                 "   0 Trepanning(Object)#debug_program(dbgr, ruby_path, program_to_debug) at /foo.rb:10
  18    3 main.__script__ at /bin/trepan:19
  19    4 Kernel(Object)#load(name) at kernel/common/kernel.rb:678
  20    5 main.__script__ at /home/rocky-rvm/.rvm/gems/rbx-head/bin/trepan:19
  21 "))
  22
  23 (with-current-buffer temp-bt
  24   (switch-to-buffer temp-bt)
  25   (goto-char (point-min))
  26   (dolist (pair
  27            '(
  28              ("   "    .   realgud-backtrace-number )
  29              ("Trepan" . font-lock-constant-face )
  30              ("Objec"  . font-lock-variable-name-face )
  31              ("#"      . font-lock-variable-name-face )
  32              ("("      .  font-lock-variable-name-face )
  33              ("/foo"   .  realgud-file-name)
  34              ("1"      . realgud-line-number)
  35              ("   "    . realgud-backtrace-number)
  36              ("mai"    . font-lock-constant-face )
  37              ("/bin"   . realgud-file-name)
  38              ("1"     . realgud-line-number)
  39              ))
  40     (search-forward (car pair))
  41     (assert-equal (cdr pair)
  42                   (get-text-property (point) 'face))
  43     )
  44   )
  45
  46 (end-tests)