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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "./bt-helper.el")
   4 (load-file "../realgud/debugger/rdebug/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 "rdebug"
  17                 "--> #0 Object.gcd(a#Fixnum, b#Fixnum)
  18        at line /test/gcd.rb:6
  19     #1 at line /test/gcd.rb:19
  20 "))
  21
  22 (with-current-buffer temp-bt
  23   (switch-to-buffer temp-bt)
  24   (goto-char (point-min))
  25   (dolist (pair
  26            '(
  27              ("#" .     realgud-backtrace-number )
  28              ("Objec" . font-lock-constant-face )
  29              ("gc"    . font-lock-function-name-face )
  30              ("("     . font-lock-variable-name-face )
  31              ("Fixnu" . font-lock-constant-face )
  32              ("/test" . realgud-file-name)
  33              (":"     . realgud-line-number)
  34              ("#"     . realgud-backtrace-number)
  35              ("/test" . realgud-file-name)
  36              (":"     . 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)