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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3
   4 (eval-when-compile
   5   (defvar elisp-file)
   6   (defvar elisp-buffer)
   7 )
   8
   9 (set (make-local-variable 'elisp-file)
  10      "../realgud/common/core.el")
  11
  12 (load-file "../realgud/common/lang.el")
  13 (test-simple-start)
  14
  15 (declare-function realgud-suggest-lang-file 'realgud-lang)
  16 (declare-function realgud:suggest-file-from-buffer 'realgud-lang)
  17 (declare-function realgud-lang-mode? 'realgud-lang)
  18 (declare-function __FILE__           'load-relative)
  19
  20 (note "realgud-lang-mode?")
  21
  22 (assert-nil
  23  (realgud-lang-mode? elisp-file "ruby")
  24  "realgud-lang-mode? with Lisp file")
  25
  26
  27 (save-excursion
  28   (find-file "./gcd.rb")
  29   (assert-t
  30    (realgud-lang-mode? "./gcd.rb" "ruby")
  31    "realgud-lang-mode? with Ruby file")
  32   )
  33
  34
  35 (assert-equal "gcd.rb"
  36               (realgud-suggest-lang-file "ruby" "\\.rb$")
  37               "realgud-suggest-lang-file"
  38               )
  39
  40 (assert-equal "default.bogus"
  41               (realgud-suggest-lang-file "bogus" "\\.bogus$" "default.bogus")
  42               "realgud-suggest-lang-file"
  43               )
  44
  45 (assert-t (file-exists-p (realgud-suggest-lang-file "bogus" "\\.bogus$")))
  46
  47 (note "realgud:suggest-file-from-buffer")
  48
  49
  50 (with-current-buffer
  51     (setq elisp-buffer (find-file "./test-dbgr.el"))
  52   (set (make-local-variable 'major-mode)
  53        'emacs-lisp-mode)
  54   (message "set major mode to %s" major-mode)
  55   )
  56 (assert-equal (buffer-file-name elisp-buffer)
  57                                 (realgud:suggest-file-from-buffer
  58                                  "emacs-lisp"
  59                                  (list elisp-buffer))
  60                                 "realgud-lang-mode? with Lisp file")
  61
  62 (end-tests)