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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "../realgud/debugger/rdebug/rdebug.el")
   4 (declare-function rdebug-get-script-name 'realgud-rdebug)
   5 (declare-function __FILE__               'load-relative)
   6 (test-simple-start)
   7
   8 (note "rdebug-get-script-name")
   9 (assert-equal '("foo" nil)
  10               (rdebug-get-script-name '("rdebug" "foo")))
  11 (assert-equal '("foo" nil)
  12               (rdebug-get-script-name '("rdebug" "-m" "foo")))
  13 (assert-equal '("foo" t)
  14               (rdebug-get-script-name
  15                '("rdebug" "--emacs" "3" "foo")))
  16 (assert-equal '("foo" t)
  17               (rdebug-get-script-name
  18                '("myrdebug" "--annotate=1" "foo")))
  19 (assert-equal '("foo" t)
  20               (rdebug-get-script-name
  21                '("ruby" "rdebug" "--annotate" "1" "foo")))
  22 (assert-equal '("foo" nil)
  23               (rdebug-get-script-name
  24                '("/usr/bin/ruby19" "rdebug"
  25                  "--emacs-basic" "foo")))
  26 (assert-equal '("foo" nil)
  27               (rdebug-get-script-name '("rdbg.rb" "foo")))
  28 (assert-equal '("rdbg.rb" nil)
  29               (rdebug-get-script-name
  30                '("rdebug" "rdbg.rb" "foo")))
  31 (assert-equal '("foo" t)
  32               (rdebug-get-script-name
  33                '("rdebug" "-A" "1" "foo")))
  34 (assert-equal '("foo" nil)
  35               (rdebug-get-script-name
  36                '("rdebug" "--include" "me" "-n" "foo")))
  37 (assert-equal '("foo" nil)
  38               (rdebug-get-script-name
  39                '("rdebug" "--server" "-d" "--host"
  40                  "localhost" "foo" "-1")))
  41
  42 (end-tests)