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

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