2 (require 'load-relative)
9 (set (make-local-variable 'elisp-file)
10 "../realgud/common/core.el")
12 (load-file "../realgud/common/lang.el")
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)
20 (note "realgud-lang-mode?")
23 (realgud-lang-mode? elisp-file "ruby")
24 "realgud-lang-mode? with Lisp file")
28 (find-file "./gcd.rb")
30 (realgud-lang-mode? "./gcd.rb" "ruby")
31 "realgud-lang-mode? with Ruby file")
35 (assert-equal "gcd.rb"
36 (realgud-suggest-lang-file "ruby" "\\.rb$")
37 "realgud-suggest-lang-file"
40 (assert-equal "default.bogus"
41 (realgud-suggest-lang-file "bogus" "\\.bogus$" "default.bogus")
42 "realgud-suggest-lang-file"
45 (assert-t (file-exists-p (realgud-suggest-lang-file "bogus" "\\.bogus$")))
47 (note "realgud:suggest-file-from-buffer")
51 (setq elisp-buffer (find-file "./test-dbgr.el"))
52 (set (make-local-variable 'major-mode)
54 (message "set major mode to %s" major-mode)
56 (assert-equal (buffer-file-name elisp-buffer)
57 (realgud:suggest-file-from-buffer
60 "realgud-lang-mode? with Lisp file")