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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "../realgud/common/shortkey.el")
   4 (load-file "../realgud/common/buffer/command.el")
   5 (declare-function realgud-cmdbuf-init            'realgud-buffer-command)
   6 (declare-function realgud-shortkey-mode-setup    'realgud-shortkey)
   7 (declare-function realgud-get-short-key-mode-map 'realgud-shortkey)
   8
   9 (eval-when-compile
  10   (defvar temp-cmdbuf)
  11   (defvar debugger-name)
  12   (defvar realgud-pat-hash)
  13   (defvar test-keymap)
  14   (defvar nodejs-short-key-mode-map)
  15 )
  16
  17 (declare-function __FILE__           'load-relative)
  18
  19 (test-simple-start)
  20
  21 (note "realgud-shortkey")
  22 (assert-raises error (realgud-shortkey-mode-setup))
  23 (assert-nil (realgud-get-short-key-mode-map (current-buffer)))
  24
  25 (note "realgud-get-short-key-mode-map")
  26
  27 (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
  28 (setq debugger-name "nodejs")
  29 (load-file "../realgud/debugger/nodejs/nodejs.el")
  30 (realgud-cmdbuf-init temp-cmdbuf debugger-name
  31                      (gethash debugger-name realgud-pat-hash))
  32 (setq test-keymap (realgud-get-short-key-mode-map temp-cmdbuf))
  33 (assert-t (keymapp test-keymap)
  34           "realgud-get-short-key-mode-map returns keymap")
  35 (assert-equal test-keymap nodejs-short-key-mode-map
  36           "realgud-get-short-key-mode-map returns nodejs-short-key-mode-map")
  37 (end-tests)