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

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