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

   1 (require 'test-simple)
   2 (require 'load-relative)
   3 (load-file "../realgud/debugger/jdb/core.el")
   4 (test-simple-start)
   5
   6 (declare-function __FILE__  'load-relative)
   7 (declare-function realgud:jdb-parse-cmd-args 'realgud:jdb-core)
   8 (declare-function realgud:jdb-dot-to-slash   'realgud:jdb-core)
   9
  10 (assert-equal '("jdb" nil ("./TestMe.java"))
  11               (realgud:jdb-parse-cmd-args '("jdb" "./TestMe.java")))
  12 (assert-equal "mcb/pcingola/SnpEff/main"
  13               (realgud:jdb-dot-to-slash "mcb.pcingola.SnpEff.main"))
  14
  15 (end-tests)