code.delx.au - gnu-emacs-elpa/blob - test/test-loc-regexp-gub.el

   1 (load-file "./regexp-helper.el")
   2 (load-file "../realgud/debugger/gub/init.el")
   3
   4 (test-simple-start)
   5
   6 (eval-when-compile
   7   (defvar dbg-name)
   8   (defvar loc-pat)
   9   (defvar dbgr)
  10   (defvar text)
  11 )
  12
  13 ;; Some setup usually done in setting up the buffer.
  14 ;; We customize this for the debugger trepan. Others may follow.
  15 ;; FIXME: encapsulate this.
  16 (setq dbg-name "gub")
  17 (setq loc-pat (gethash "loc" (gethash dbg-name realgud-pat-hash)))
  18
  19 (setq dbgr (make-realgud-cmdbuf-info
  20                   :debugger-name dbg-name
  21                   :loc-regexp (realgud-loc-pat-regexp loc-pat)
  22                   :file-group (realgud-loc-pat-file-group  loc-pat)
  23                   :line-group (realgud-loc-pat-line-group  loc-pat)))
  24
  25
  26 (setq text "interp/testdata/square.go:15:6")
  27 (assert-t (numberp (cmdbuf-loc-match text dbgr)) "basic location")
  28
  29 (note "extract file name")
  30 (assert-equal 0 (cmdbuf-loc-match text dbgr))
  31 (assert-equal "interp/testdata/square.go"
  32               (match-string (realgud-cmdbuf-info-file-group dbgr)
  33                             text))
  34
  35 (assert-equal "15"
  36               (match-string
  37                (realgud-cmdbuf-info-line-group dbgr)
  38                text) "extract line number")
  39
  40 (setq text " interp/testdata/square.go:15:6")
  41 (assert-nil (numberp (cmdbuf-loc-match text dbgr)) "location starts with blank")
  42
  43
  44 (end-tests)