code.delx.au - gnu-emacs-elpa/blob - packages/realgud/test/test-track-mode.el

   1 (require 'test-simple)
   2 (load-file "../realgud/debugger/trepan/trepan.el")
   3 (load-file "../realgud/common/buffer/command.el")
   4 (load-file "../realgud/common/track-mode.el")
   5 (load-file "../realgud/common/backtrace-mode.el")
   6
   7 (declare-function realgud-cmdbuf-init 'realgud-buffer-command)
   8 (declare-function realgud-srcbuf-init 'realgud-buffer-source)
   9 (declare-function __FILE__            'load-relative)
  10
  11 (test-simple-start)
  12
  13 (defvar realgud-pat-hash)
  14 (defvar temp-cmdbuf nil)
  15
  16 (declare-function trepan-track-mode 'realgud:trepan)
  17 (declare-function realgud-track-mode-vars 'realgud-track-mode)
  18 (declare-function realgud-backtrace-mode 'realgud-backtrace-mode)
  19
  20 (defun setup ()
  21   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
  22   ;; (start-process "test-track-mode" temp-cmdbuf nil)
  23   (start-process "test-track-mode" temp-cmdbuf "/bin/sh")
  24
  25   (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan" realgud-pat-hash))
  26   (with-current-buffer temp-cmdbuf
  27     (trepan-track-mode 't))
  28   (realgud-srcbuf-init (current-buffer) temp-cmdbuf)
  29 )
  30
  31 (defun tear-down()
  32   (kill-buffer temp-cmdbuf)
  33 )
  34
  35 (setup)
  36
  37 ;; Current buffer is now set up as a source buffer
  38
  39 (with-current-buffer temp-cmdbuf
  40   (switch-to-buffer temp-cmdbuf)
  41   (dolist (fn '(realgud-track-hist-newest
  42                 realgud-track-hist-newer
  43                 realgud-track-hist-older
  44                 realgud-track-hist-oldest))
  45     (assert-nil (null (where-is-internal fn))
  46                 (format "track-functions-mapped-to-keys %s" fn))
  47     )
  48   (switch-to-buffer nil)
  49   )
  50
  51 (note "track-mode-vars")
  52 (makunbound 'foo-track-mode)
  53 (makunbound 'foo-track-mode-map)
  54 (realgud-track-mode-vars "foo")
  55 (dolist (var '("foo-track-mode-map" "foo-track-mode"))
  56   (let ((var-sym (intern var)))
  57     (assert-t (boundp var-sym))
  58     (assert-t (stringp (get var-sym 'variable-documentation)))
  59     ))
  60
  61 (end-tests)