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

   1 (require 'test-simple)
   2 (load-file "../realgud/common/core.el") ;; for realgud-exec-shell
   3 (load-file "../realgud/debugger/remake/remake.el")
   4
   5 (eval-when-compile (defvar my-buf))
   6
   7 (declare-function realgud:remake        'realgud:remake)
   8 (declare-function __FILE__              'load-relative)
   9
  10 (test-simple-start)
  11
  12 (defun realgud-exec-shell (debugger-name script-filename program
  13                                       &optional no-reset &rest args)
  14   "Mock for realgud-exec-shell. We copy the part of the real realgud-exec-shell
  15 file-name-directory that was failing"
  16   (let ((cmdproc-buffer (get-buffer-create "foo"))
  17         (starting-directory
  18                 (or (file-name-directory script-filename)
  19                     default-directory "./")))
  20     (start-process "my-process" cmdproc-buffer "sleep" "10000")
  21     cmdproc-buffer
  22     )
  23   )
  24
  25 (note "can deal with no Makefile name")
  26 ;; If realgud:remake is successful we switch buffers
  27 (setq my-buf (current-buffer))
  28 ;; FIXME:
  29 ;; (realgud:remake "remake --debugger")
  30 ;; (assert-t (not (eq (current-buffer) my-buf)))
  31 ;; (delete-process "foo")
  32 ;; (switch-to-buffer my-buf)
  33
  34 (end-tests)