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

   1 (require 'test-unit)
   2 (require 'font-lock)
   3
   4 (load-file "../dbgr/common/buffer/command.el")
   5 (load-file "../dbgr/common/buffer/backtrace.el")
   6 (load-file "../dbgr/common/backtrace-mode.el")
   7 (load-file "../dbgr/common/init.el")
   8 (load-file "../dbgr/debugger/pdb/init.el")
   9
  10 (test-unit-clear-contexts)
  11
  12 (defun setup-bt(string temp-bt temp-cmdbuf)
  13   (with-current-buffer temp-bt
  14     (dbgr-backtrace-mode temp-cmdbuf)
  15     (goto-char (point-min))
  16     (setq buffer-read-only nil)
  17     (insert string)
  18     (font-lock-fontify-buffer)
  19     (goto-char (point-min))
  20     ))
  21
  22
  23 (context "dbgr-buffer-backtrace-pdb"
  24          (tag dbgr-buf-bt-pdb)
  25          (specify "fontify"
  26                   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
  27                   (with-current-buffer temp-cmdbuf
  28                     (dbgr-cmdbuf-init temp-cmdbuf "pdb"
  29                                       (gethash "pdb" dbgr-pat-hash))
  30
  31                     )
  32                   (setq temp-bt (generate-new-buffer "*bt-test*"))
  33                   (setup-bt
  34 "->0 gcd(a=3, b=5) called from file '/test/gcd.py' at line 28
  35 ##1 <module> execfile() file '/test/gcd.py' at line 41
  36 "
  37                             temp-bt temp-cmdbuf)
  38                   (with-current-buffer temp-bt
  39                     (goto-char (point-min))
  40                     (dolist (pair
  41                              '(
  42                                ("->" .    dbgr-backtrace-number )
  43                                ("gc"    . font-lock-function-name-face )
  44                                ("("     . font-lock-variable-name-face )
  45                                ("/test" . dbgr-file-name)
  46                                ("2"     . dbgr-line-number)
  47                                ("##"    . dbgr-backtrace-number)
  48                                ("/test" . dbgr-file-name)
  49                                ("4"     . dbgr-line-number)
  50                                ))
  51                       (search-forward (car pair))
  52                       (assert-equal (cdr pair)
  53                                     (get-text-property (point) 'face))
  54                       )
  55                     )
  56                   )
  57          )
  58 (test-unit "dbgr-buf-bt-pdb")
  59