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

   1 (require 'test-simple)
   2 (load-file "../realgud.el")
   3
   4 (declare-function realgud:loaded-features    'realgud)
   5 (declare-function realgud:unload-features    'realgud-regexp)
   6 (declare-function __FILE__                   'load-relative)
   7
   8 (test-simple-start)
   9
  10 (eval-when-compile
  11   (defvar test-realgud:features)
  12 )
  13
  14 (note "realgud")
  15
  16 (note "realgud:loaded-features")
  17 (set (make-local-variable 'test-realgud:features) (realgud:loaded-features))
  18 (dolist (feature '(realgud-trepan realgud-pydbgr
  19                                realgud-core))
  20   (assert-t (not (not (member feature test-realgud:features)))) )
  21
  22 (note "realgud-unload-features")
  23 (load-file "../realgud.el")
  24 (assert-nil (not (realgud:loaded-features)))
  25 (assert-nil (not (realgud:unload-features)))
  26 (realgud:loaded-features)
  27
  28 (end-tests)