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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "./bt-helper.el")
   4 (load-file "../realgud/debugger/zshdb/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 "zshdb"
  17                 "->0 in file `/test/autogen.sh' at line 2
  18 ##1 /test/autogen.sh called from file `/usr/local/bin/zshdb' at line 121
  19 "))
  20 (with-current-buffer temp-bt
  21   (switch-to-buffer temp-bt)
  22   (goto-char (point-min))
  23   (dolist (pair
  24            '(
  25              ("->" .    realgud-backtrace-number )
  26              ("/test" . realgud-file-name)
  27              ("line " . realgud-line-number)
  28              ))
  29     (search-forward (car pair))
  30     (assert-equal (cdr pair)
  31                   (get-text-property (point) 'face))
  32     )
  33   )
  34
  35 (end-tests)