blob: 76ce0319c33fdd1fd82d4ff17992f29ade531caf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;; Press C-x C-e at the end of the next line to run this file test non-interactively
;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory (locate-library "test-simple.elc")) buffer-file-name)
(require 'test-simple)
(load-file "../realgud-node-debug/node-debug.el")
(eval-when-compile (defvar test:run-process-save))
(declare-function nodejs-parse-cmd-args 'realgud:nodejs)
(declare-function nodejs 'realgud:nodejs)
(declare-function __FILE__ 'load-relative)
(test-simple-start)
;; Save value realgud:run-process and change it to something we want
(setq test:run-process-save (symbol-function 'realgud:run-process))
(defun realgud:run-process(debugger-name script-filename cmd-args
minibuf-history &optional no-reset)
"Fake realgud:run-process used in testing"
(note
(format "%s %s %s" debugger-name script-filename cmd-args))
(assert-equal "node" debugger-name "debugger name gets passed")
(let ((expanded-name (expand-file-name "./gcd.js")))
(assert-equal expanded-name script-filename "file name check")
))
(note "nodejs-parse-cmd-args")
(assert-equal (list '("node" "debug") nil '("foo"))
(nodejs-parse-cmd-args '("node" "debug" "foo")))
;; FIXME: need to mock remove-ansi-schmutz in realgud:nodejs
;; (realgud:nodejs "node debug ./gcd.js 3 5")
;; Restore the old value of realgud:run-process
(fset 'realgud:run-process test:run-process-save)
(end-tests)
|
