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

   1 (require 'test-simple)
   2 (load-file "../realgud/debugger/gub/core.el")
   3
   4 (declare-function __FILE__ 'load-relative)
   5 (declare-function gub-parse-cmd-args 'realgud-gub-core)
   6
   7 (test-simple-start)
   8
   9 (note "form(s) involving gub.sh shell script")
  10 (assert-equal '("gub.sh" ("--gub=\"-I\"") ("./gcd.go" "3" "5"))
  11               (gub-parse-cmd-args
  12                '("gub.sh" "--gub=\"-I\"" "--" "./gcd.go" "3" "5")))
  13
  14 (note "form(s) involving underlying tortoise interpreter")
  15 (assert-equal '("tortoise" ("-run" "-gub=" "-interp=SS") ("./gcd.go" "3" "5"))
  16               (gub-parse-cmd-args
  17                '("tortoise" "-run" "-gub=" "-interp=SS" "--" "./gcd.go" "3" "5")))
  18
  19 (end-tests)