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

   1 (require 'test-simple)
   2 (load-file "../realgud/debugger/remake/core.el")
   3
   4 (declare-function __FILE__ 'load-relative)
   5 (declare-function remake-parse-cmd-args        'realgud-remake-core)
   6 (declare-function remake-suggest-Makefile      'realgud-remake-core)
   7 (declare-function remake-suggest-file-priority 'realgud-remake-core)
   8
   9 (test-simple-start)
  10
  11 (assert-equal (list "remake" (expand-file-name "Makefile")
  12                     (list "-X" "-f" (expand-file-name "Makefile")))
  13               (remake-parse-cmd-args
  14                '("remake" "-X" "-f" "Makefile"))
  15               "remake-parse-cmd-args")
  16
  17 (assert-equal "Makefile" (remake-suggest-Makefile) "remake-suggest-Makefile")
  18
  19 (assert-equal 2 (remake-suggest-file-priority "foo")
  20               "remake-file-suggest-priority")
  21 (let ((buffer (get-file-buffer "Makefile.am")))
  22   (if buffer (kill-buffer buffer))
  23   (assert-equal 2 (remake-suggest-file-priority "Makefile.am"))
  24   (setq buffer (find-file-noselect "Makefile.am"))
  25   (assert-equal 5 (remake-suggest-file-priority "Makefile.am"))
  26   (kill-buffer buffer)
  27   (setq buffer (get-file-buffer "Makefile"))
  28   (if buffer (kill-buffer buffer))
  29   (assert-equal 6 (remake-suggest-file-priority "Makefile"))
  30   (setq buffer (find-file-noselect "Makefile"))
  31   (assert-equal 8 (remake-suggest-file-priority "Makefile"))
  32   (kill-buffer buffer)
  33   )
  34
  35 (end-tests)