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

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