1 files changed, 37 insertions, 0 deletions
diff --git a/test/test-node-inspect.el b/test/test-node-inspect.el
new file mode 100644
index 0000000..659b9ad
--- /dev/null
+++ b/test/test-node-inspect.el
@@ -0,0 +1,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 "../node-inspect/main.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" "inspect") nil '("foo"))
+	      (nodejs-parse-cmd-args '("node" "inspect" "foo")))
+
+;; FIXME: need to mock remove-ansi-schmutz in realgud:nodejs
+;; (realgud:nodejs "node inspect ./gcd.js 3 5")
+
+;; Restore the old value of realgud:run-process
+(fset 'realgud:run-process test:run-process-save)
+
+(end-tests)