code.delx.au - gnu-emacs-elpa/blob - test/test-trepan3k.el

   1 (require 'test-simple)
   2 (load-file "../realgud/debugger/trepan3k/trepan3k.el")
   3 (declare-function trepan3k-parse-cmd-args 'realgud:trepan3k)
   4 (declare-function __FILE__                'require-relative)
   5
   6 (test-simple-start)
   7
   8 (note "trepan3k-parse-cmd-args")
   9
  10 (assert-equal '(nil ("trepan3k") ("foo") nil)
  11               (trepan3k-parse-cmd-args '("trepan3k" "foo")))
  12 (assert-equal '(nil ("trepan3k" "-n") ("foo") nil)
  13               (trepan3k-parse-cmd-args '("trepan3k" "-n" "foo")))
  14 (assert-equal '(nil ("trepan3k" "--annotate=1") ("foo") t)
  15               (trepan3k-parse-cmd-args
  16                '("trepan3k" "--annotate=1" "foo")))
  17 (assert-equal '(nil ("mytrepan3k" "--annotate=1") ("foo") t)
  18               (trepan3k-parse-cmd-args
  19                '("mytrepan3k" "--annotate=1" "foo")))
  20 (assert-equal '(("python") ("trepan3k" "--annotate") ("1" "foo") t)
  21               (trepan3k-parse-cmd-args
  22                '("python" "trepan3k" "--annotate" "1" "foo")))
  23 (assert-equal '(("/usr/bin/python") ("trepan3k" "--different")
  24                 ("foo") nil)
  25               (trepan3k-parse-cmd-args
  26                '("/usr/bin/python" "trepan3k"
  27                  "--different" "foo")))
  28 (assert-equal '(nil ("program.py") ("foo") nil)
  29               (trepan3k-parse-cmd-args '("program.py" "foo")))
  30 (assert-equal '(nil ("trepan3k") ("program.py" "foo") nil)
  31               (trepan3k-parse-cmd-args
  32                '("trepan3k" "program.py" "foo")))
  33
  34 (end-tests)