[elpa] master be7718a 073/215: Go over perldb init re's. Attempt smaller cleanup of tests and note how

[Rocky Bernstein]

branch: master
commit be7718aa5471e3c6b8f964086ce4c3d56e9ede44
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Go over perldb init re's. Attempt smaller cleanup of tests and note how
    to run non-interactively inside emacs.
---
 realgud/debugger/perldb/init.el  |   24 ++++++++++++--------
 test/test-bashdb.el              |    3 +++
 test/test-bp.el                  |    3 +++
 test/test-bt-pdb.el              |    3 +++
 test/test-bt-pydb.el             |    3 +++
 test/test-bt-pydbgr.el           |    3 +++
 test/test-bt-rdebug.el           |    3 +++
 test/test-bt-trepan.el           |    3 +++
 test/test-bt-trepan2.el          |    3 +++
 test/test-bt-trepan3k.el         |    3 +++
 test/test-bt-trepanx.el          |    3 +++
 test/test-bt-zshdb.el            |    3 +++
 test/test-buf-bt.el              |    3 +++
 test/test-buf-cmd.el             |    8 +++++++
 test/test-core.el                |    3 +++
 test/test-file.el                |    3 +++
 test/test-gdb.el                 |    3 +++
 test/test-gub-core.el            |    3 +++
 test/test-jdb.el                 |    3 +++
 test/test-lang.el                |    3 +++
 test/test-loc-regexp-gub.el      |    3 +++
 test/test-loc-regexp-nodejs.el   |    6 +++++
 test/test-loc-regexp-trepan.el   |    3 +++
 test/test-loc-regexp-trepanpl.el |    3 +++
 test/test-loc-regexp-trepanx.el  |    3 +++
 test/test-loc.el                 |    3 +++
 test/test-lochist.el             |    7 ++++++
 test/test-nodejs.el              |    3 +++
 test/test-pdb.el                 |    3 +++
 test/test-perldb.el              |    3 +++
 test/test-pydb.el                |    3 +++
 test/test-pydbgr.el              |    3 +++
 test/test-rdebug.el              |    3 +++
 test/test-realgud.el             |    3 +++
 test/test-regexp-bashdb.el       |    3 +++
 test/test-regexp-gdb.el          |   45 ++++++++++++++++++++------------------
 test/test-regexp-gub.el          |    3 +++
 test/test-regexp-jdb.el          |    3 +++
 test/test-regexp-nodejs.el       |    3 +++
 test/test-regexp-pdb.el          |    3 +++
 test/test-regexp-perldb.el       |    9 ++++++++
 test/test-regexp-pydb.el         |    3 +++
 test/test-regexp-pydbgr.el       |    3 +++
 test/test-regexp-rdebug.el       |    3 +++
 test/test-regexp-remake.el       |    3 +++
 test/test-regexp-ruby.el         |    3 +++
 test/test-regexp-trepan.el       |    3 +++
 test/test-regexp-trepan2.el      |    3 +++
 test/test-regexp-trepan3k.el     |    3 +++
 test/test-regexp-trepanjs.el     |    3 +++
 test/test-regexp-trepanpl.el     |    3 +++
 test/test-regexp-trepanx.el      |    3 +++
 test/test-regexp-zshdb.el        |    3 +++
 test/test-regexp.el              |    3 +++
 test/test-remake-core.el         |    3 +++
 test/test-remake.el              |    3 +++
 test/test-send.el                |    3 +++
 test/test-shortkey.el            |    3 +++
 test/test-srcbuf.el              |    3 +++
 test/test-track-mode.el          |    3 +++
 test/test-track.el               |    3 +++
 test/test-trepan2.el             |    3 +++
 test/test-trepan3k.el            |    3 +++
 test/test-trepanpl.el            |    3 +++
 test/test-utils.el               |    3 +++
 test/test-zshdb.el               |    3 +++
 66 files changed, 249 insertions(+), 30 deletions(-)

diff --git a/realgud/debugger/perldb/init.el b/realgud/debugger/perldb/init.el
index 026440c..08c660f 100644
--- a/realgud/debugger/perldb/init.el
+++ b/realgud/debugger/perldb/init.el
@@ -17,20 +17,26 @@ realgud-loc-pat struct")
 
 (declare-function make-realgud-loc "realgud-loc" (a b c d e f))
 
+;; Program-location lines look like this:
+;;   File::Basename::dirname(/usr/share/perl/5.16.0/File/Basename.pm:284):
+;;   main::(/usr/bin/latex2html:102):
+;;   main::CODE(0x9407ac8)(l2hconf.pm:6):;;
+;;   main::((eval 8)[/tmp/eval.pl:2]:1):
+;; FIXME:
+;;   the capture for the filename is wrong in eval. I can't figure out
+;;   how to come up with a re that *preserves* file/line groups in the
+;;   capture.
+;;   And what are complications MS Windows adds?
+(defconst realgud:perldb-loc-regexp
+  (format 
"\\(?:CODE(0x[0-9a-h]+)\\)?(\\(.+\\):%s):\\(?:\n[0-9]+:\t\\(.*?\\)\n\\)?"
+         realgud:regexp-captured-num))
+
 ;; Regular expression that describes a perldb location generally shown
 ;; before a command prompt. We include matching the source text so we
 ;; can save that.
-;;
-;; Program-location lines look like this:
-;;  File::Basename::dirname(/usr/share/perl/5.16.0/File/Basename.pm:284):
-;;  284:           my $path = shift;
-;;
-;;   main::(/usr/bin/latex2html:102):
-;; or MS Windows:
-;;   ???
 (setf (gethash "loc" realgud:perldb-pat-hash)
       (make-realgud-loc-pat
-       :regexp 
"\\(?:CODE(0x[0-9a-h]+)\\)?(\\(.+\\):\\(\[0-9]+\\)):\\(?:\n[0-9]+:\t\\(.*?\\)\n\\)?"
+       :regexp realgud:perldb-loc-regexp
        :file-group 1
        :line-group 2
        :text-group 3))
diff --git a/test/test-bashdb.el b/test/test-bashdb.el
index 09d066f..6dac5ad 100644
--- a/test/test-bashdb.el
+++ b/test/test-bashdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/bashdb/bashdb.el")
diff --git a/test/test-bp.el b/test/test-bp.el
index de90f74..ae6047e 100644
--- a/test/test-bp.el
+++ b/test/test-bp.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/common/bp.el")
diff --git a/test/test-bt-pdb.el b/test/test-bt-pdb.el
index 55939a4..e5ee8a8 100644
--- a/test/test-bt-pdb.el
+++ b/test/test-bt-pdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-pydb.el b/test/test-bt-pydb.el
index 3419359..d32a2bd 100644
--- a/test/test-bt-pydb.el
+++ b/test/test-bt-pydb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-pydbgr.el b/test/test-bt-pydbgr.el
index 50cc5ff..2676d8c 100644
--- a/test/test-bt-pydbgr.el
+++ b/test/test-bt-pydbgr.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-rdebug.el b/test/test-bt-rdebug.el
index aebd737..f3c4d25 100644
--- a/test/test-bt-rdebug.el
+++ b/test/test-bt-rdebug.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-trepan.el b/test/test-bt-trepan.el
index fe9cf1b..0bc5e6e 100644
--- a/test/test-bt-trepan.el
+++ b/test/test-bt-trepan.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-trepan2.el b/test/test-bt-trepan2.el
index 4959a07..d3d3d0f 100644
--- a/test/test-bt-trepan2.el
+++ b/test/test-bt-trepan2.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-trepan3k.el b/test/test-bt-trepan3k.el
index 4959a07..d3d3d0f 100644
--- a/test/test-bt-trepan3k.el
+++ b/test/test-bt-trepan3k.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-trepanx.el b/test/test-bt-trepanx.el
index 4ad94f7..6f8d3c4 100644
--- a/test/test-bt-trepanx.el
+++ b/test/test-bt-trepanx.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-bt-zshdb.el b/test/test-bt-zshdb.el
index fcec317..fdbc2e7 100644
--- a/test/test-bt-zshdb.el
+++ b/test/test-bt-zshdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./bt-helper.el")
diff --git a/test/test-buf-bt.el b/test/test-buf-bt.el
index 074f8b9..2ef06db 100644
--- a/test/test-buf-bt.el
+++ b/test/test-buf-bt.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'load-relative)
 (require 'test-simple)
 (require 'font-lock)
diff --git a/test/test-buf-cmd.el b/test/test-buf-cmd.el
index fc17a06..f54ddb1 100644
--- a/test/test-buf-cmd.el
+++ b/test/test-buf-cmd.el
@@ -1,7 +1,15 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
 (load-file "../realgud/debugger/trepan/init.el")
 (declare-function realgud-cmdbuf-init 'realgud-buffer-command)
+(declare-function realgud-cmdbuf-command-string 'realgud-buffer-command)
+(declare-function realgud-cmdbuf-info-cmd-args= 'realgud-buffer-command)
+(declare-function realgud-cmdbuf-debugger-name  'realgud-buffer-command)
+(declare-function realgud-cmdbuf-info-srcbuf-list 'realgud-buffer-command)
+(declare-function realgud-cmdbuf-add-srcbuf 'realgud-buffer-command)
 
 (test-simple-start)
 
diff --git a/test/test-core.el b/test/test-core.el
index 7acbc51..51ddaa7 100644
--- a/test/test-core.el
+++ b/test/test-core.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (eval-when-compile (defvar trepan-core))
 
diff --git a/test/test-file.el b/test/test-file.el
index 6f9de68..e9129d4 100644
--- a/test/test-file.el
+++ b/test/test-file.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/loc.el")
 (load-file "../realgud/common/file.el")
diff --git a/test/test-gdb.el b/test/test-gdb.el
index e068ce5..cf07cec 100644
--- a/test/test-gdb.el
+++ b/test/test-gdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/common/buffer/command.el")
diff --git a/test/test-gub-core.el b/test/test-gub-core.el
index 265c848..cab0b0b 100644
--- a/test/test-gub-core.el
+++ b/test/test-gub-core.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/gub/core.el")
 
diff --git a/test/test-jdb.el b/test/test-jdb.el
index 408b808..881b60d 100644
--- a/test/test-jdb.el
+++ b/test/test-jdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/jdb/core.el")
diff --git a/test/test-lang.el b/test/test-lang.el
index 0893b99..72f775c 100644
--- a/test/test-lang.el
+++ b/test/test-lang.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 
diff --git a/test/test-loc-regexp-gub.el b/test/test-loc-regexp-gub.el
index bc44df8..e6c4746 100644
--- a/test/test-loc-regexp-gub.el
+++ b/test/test-loc-regexp-gub.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./regexp-helper.el")
diff --git a/test/test-loc-regexp-nodejs.el b/test/test-loc-regexp-nodejs.el
index 0f17553..42f0ae3 100644
--- a/test/test-loc-regexp-nodejs.el
+++ b/test/test-loc-regexp-nodejs.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (load-file "./regexp-helper.el")
 (load-file "../realgud/common/regexp.el")
 (load-file "../realgud/debugger/nodejs/init.el")
@@ -17,6 +20,7 @@
 (declare-function assert-equal 'test-simple)
 (declare-function note 'test-simple)
 (declare-function end-tests 'test-simple)
+(declare-function realgud-loc-pat-char-offset-group  'realgud:nodejs-init)
 
 (test-simple-start)
 
@@ -25,7 +29,9 @@
   (defvar frame-re)
   (defvar line-group)
   (defvar num-group)
+  (defvar col-group)
   (defvar test-pos)
+  (defvar bt-re)
   (defvar dbg-name)
   (defvar realgud-pat-hash)
   (defvar loc-pat)
diff --git a/test/test-loc-regexp-trepan.el b/test/test-loc-regexp-trepan.el
index 84a63f2..d8fd898 100644
--- a/test/test-loc-regexp-trepan.el
+++ b/test/test-loc-regexp-trepan.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./regexp-helper.el")
diff --git a/test/test-loc-regexp-trepanpl.el b/test/test-loc-regexp-trepanpl.el
index bfaad73..e56325d 100644
--- a/test/test-loc-regexp-trepanpl.el
+++ b/test/test-loc-regexp-trepanpl.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (load-file "./regexp-helper.el")
 (load-file "../realgud/common/regexp.el")
 (load-file "../realgud/debugger/trepan.pl/init.el")
diff --git a/test/test-loc-regexp-trepanx.el b/test/test-loc-regexp-trepanx.el
index a6006c7..316643d 100644
--- a/test/test-loc-regexp-trepanx.el
+++ b/test/test-loc-regexp-trepanx.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./regexp-helper.el")
diff --git a/test/test-loc.el b/test/test-loc.el
index 65665ef..3a9510a 100644
--- a/test/test-loc.el
+++ b/test/test-loc.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/source.el")
 (load-file "../realgud/common/loc.el")
diff --git a/test/test-lochist.el b/test/test-lochist.el
index 5685e74..bcac7ff 100644
--- a/test/test-lochist.el
+++ b/test/test-lochist.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/loc.el")
 (load-file "../realgud/common/lochist.el")
@@ -12,6 +15,10 @@
 (declare-function realgud-loc-hist-position   'realgud-lochist)
 (declare-function realgud-loc-hist-index      'realgud-lochist)
 (declare-function realgud-loc-hist-newest     'realgud-lochist)
+(declare-function realgud:buffer-line-no-props 'realgud-buffer-helper)
+(declare-function make-realgud-loc-hist      'realgud-lochist)
+(declare-fucntion ring-length 'ring)
+
 (declare-function realgud-get-cmdbuf-from-srcbuf 'realgud-buffer-helper)
 
 (test-simple-start)
diff --git a/test/test-nodejs.el b/test/test-nodejs.el
index b1b5953..e6ab3bb 100644
--- a/test/test-nodejs.el
+++ b/test/test-nodejs.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/nodejs/nodejs.el")
 
diff --git a/test/test-pdb.el b/test/test-pdb.el
index c511a95..d58d5a0 100644
--- a/test/test-pdb.el
+++ b/test/test-pdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/pdb/pdb.el")
diff --git a/test/test-perldb.el b/test/test-perldb.el
index 337dea1..90b4fef 100644
--- a/test/test-perldb.el
+++ b/test/test-perldb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/perldb/perldb.el")
 
diff --git a/test/test-pydb.el b/test/test-pydb.el
index c2ff355..224cc05 100644
--- a/test/test-pydb.el
+++ b/test/test-pydb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/pydb/pydb.el")
diff --git a/test/test-pydbgr.el b/test/test-pydbgr.el
index 6fc940d..81d82db 100644
--- a/test/test-pydbgr.el
+++ b/test/test-pydbgr.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/pydbgr/pydbgr.el")
diff --git a/test/test-rdebug.el b/test/test-rdebug.el
index 46b6a59..20a7d22 100644
--- a/test/test-rdebug.el
+++ b/test/test-rdebug.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/rdebug/rdebug.el")
diff --git a/test/test-realgud.el b/test/test-realgud.el
index ed8e845..2b400e2 100644
--- a/test/test-realgud.el
+++ b/test/test-realgud.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud.el")
 
diff --git a/test/test-regexp-bashdb.el b/test/test-regexp-bashdb.el
index 0e7da4c..00830e9 100644
--- a/test/test-regexp-bashdb.el
+++ b/test/test-regexp-bashdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/bashdb/init.el")
diff --git a/test/test-regexp-gdb.el b/test/test-regexp-gdb.el
index 1975982..3c39ded 100644
--- a/test/test-regexp-gdb.el
+++ b/test/test-regexp-gdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/common/buffer/command.el")
@@ -10,8 +13,8 @@
 
 (eval-when-compile
   (defvar dbg-name)   (defvar realgud-pat-hash)   (defvar realgud-bt-hash)
-  (defvar loc-pat)    (defvar prompt-pat)         (defvar s1)
-  (defvar file-group) (defvar line-group)         (defvar pos)
+  (defvar loc-pat)    (defvar prompt-pat)         (defvar test-s1)
+  (defvar file-group) (defvar line-group)         (defvar test-pos)
   (defvar test-dbgr)  (defvar test-text)
 )
 
@@ -43,7 +46,7 @@
 (note "debugger-backtrace")
 (setq realgud-bt-pat  (gethash "debugger-backtrace"
                            realgud:gdb-pat-hash))
-(setq s1
+(setq test-s1
       "#0  main (argc=2, argv=0xbffff564, envp=0xbffff570) at main.c:935
 #1  0xb7e9f4a5 in *__GI___strdup (s=0xbffff760 \"/tmp/remake/remake\") at 
strdup.c:42
 #2  0x080593ac in main (argc=2, argv=0xbffff5a4, envp=0xbffff5b0)
@@ -54,49 +57,49 @@
 (setq realgud-bt-re (realgud-loc-pat-regexp realgud-bt-pat))
 (setq file-group (realgud-loc-pat-file-group realgud-bt-pat))
 (setq line-group (realgud-loc-pat-line-group realgud-bt-pat))
-(assert-equal 0 (string-match realgud-bt-re s1))
+(assert-equal 0 (string-match realgud-bt-re test-s1))
 (assert-equal "main.c"
-             (substring s1
+             (substring test-s1
                         (match-beginning file-group)
                         (match-end file-group)))
 (assert-equal "935"
-             (substring s1
+             (substring test-s1
                         (match-beginning line-group)
                         (match-end line-group)))
 
-(setq pos (match-end 0))
-(assert-equal 65 pos)
-(assert-equal 65 (string-match realgud-bt-re s1 pos))
+(setq test-pos (match-end 0))
+(assert-equal 65 test-pos)
+(assert-equal 65 (string-match realgud-bt-re test-s1 test-pos))
 (assert-equal "strdup.c"
-             (substring s1
+             (substring test-s1
                         (match-beginning file-group)
                         (match-end file-group)))
 (assert-equal "42"
-             (substring s1
+             (substring test-s1
                         (match-beginning line-group)
                         (match-end line-group)))
 
-(setq pos (match-end 0))
-(assert-equal 149 pos)
-(assert-equal 149 (string-match realgud-bt-re s1 pos))
+(setq test-pos (match-end 0))
+(assert-equal 149 test-pos)
+(assert-equal 149 (string-match realgud-bt-re test-s1 test-pos))
 (assert-equal "main.c"
-             (substring s1
+             (substring test-s1
                         (match-beginning file-group)
                         (match-end file-group)))
 (assert-equal "952"
-             (substring s1
+             (substring test-s1
                         (match-beginning line-group)
                         (match-end line-group)))
 
-(setq pos (match-end 0))
-(assert-equal 233 pos)
-(assert-equal 233 (string-match realgud-bt-re s1 pos))
+(setq test-pos (match-end 0))
+(assert-equal 233 test-pos)
+(assert-equal 233 (string-match realgud-bt-re test-s1 test-pos))
 (assert-equal "vm_insnhelper.c"
-             (substring s1
+             (substring test-s1
                         (match-beginning file-group)
                         (match-end file-group)))
 (assert-equal "410"
-             (substring s1
+             (substring test-s1
                         (match-beginning line-group)
                         (match-end line-group)))
 
diff --git a/test/test-regexp-gub.el b/test/test-regexp-gub.el
index 2069125..0240a05 100644
--- a/test/test-regexp-gub.el
+++ b/test/test-regexp-gub.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
 (load-file "../realgud/debugger/gub/init.el")
diff --git a/test/test-regexp-jdb.el b/test/test-regexp-jdb.el
index 9b50057..efac100 100644
--- a/test/test-regexp-jdb.el
+++ b/test/test-regexp-jdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
 (load-file "../realgud/debugger/jdb/init.el")
diff --git a/test/test-regexp-nodejs.el b/test/test-regexp-nodejs.el
index 48cf922..c4ea10d 100644
--- a/test/test-regexp-nodejs.el
+++ b/test/test-regexp-nodejs.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/nodejs/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-pdb.el b/test/test-regexp-pdb.el
index 7cf62b2..dfb72af 100644
--- a/test/test-regexp-pdb.el
+++ b/test/test-regexp-pdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/pdb/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-perldb.el b/test/test-regexp-perldb.el
index ef91b29..fb84ac9 100644
--- a/test/test-regexp-perldb.el
+++ b/test/test-regexp-perldb.el
@@ -1,3 +1,9 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
 (load-file "../realgud/lang/perl.el")
@@ -86,11 +92,14 @@
 (setq test-text "main::((eval 6)[eval.pl:5]:2):        $x = 2;")
 
 (assert-t (numberp (cmdbuf-loc-match test-text test-dbgr)) "eval location")
+
+;; FIXME: we should pick out eval.pl
 (assert-equal "(eval 6)[eval.pl:5]"
              (match-string (realgud-cmdbuf-info-file-group test-dbgr)
                            test-text)
              "extract file name")
 
+;; FIXME: we should pick out 5, the number in the eval
 (assert-equal "2"
              (match-string (realgud-cmdbuf-info-line-group test-dbgr)
                            test-text) "extract line number")
diff --git a/test/test-regexp-pydb.el b/test/test-regexp-pydb.el
index 5af3f36..3ccd402 100644
--- a/test/test-regexp-pydb.el
+++ b/test/test-regexp-pydb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/pydb/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-pydbgr.el b/test/test-regexp-pydbgr.el
index 40e2d81..4bc8e8b 100644
--- a/test/test-regexp-pydbgr.el
+++ b/test/test-regexp-pydbgr.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (load-file "./regexp-helper.el")
 (load-file "../realgud/debugger/pydbgr/init.el")
 
diff --git a/test/test-regexp-rdebug.el b/test/test-regexp-rdebug.el
index 2d79d94..26477b7 100644
--- a/test/test-regexp-rdebug.el
+++ b/test/test-regexp-rdebug.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/rdebug/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-remake.el b/test/test-regexp-remake.el
index ebe027a..1a3390c 100644
--- a/test/test-regexp-remake.el
+++ b/test/test-regexp-remake.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/remake/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-ruby.el b/test/test-regexp-ruby.el
index 15aedbb..d15ab9c 100644
--- a/test/test-regexp-ruby.el
+++ b/test/test-regexp-ruby.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 ;; Don't have a pat-hash for ruby, so we need something that pulls in
 ;; Ruby.
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-trepan.el b/test/test-regexp-trepan.el
index 1907380..bff0331 100644
--- a/test/test-regexp-trepan.el
+++ b/test/test-regexp-trepan.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/trepan/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-trepan2.el b/test/test-regexp-trepan2.el
index 0c1b3d1..15ed531 100644
--- a/test/test-regexp-trepan2.el
+++ b/test/test-regexp-trepan2.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-trepan3k.el b/test/test-regexp-trepan3k.el
index aedda29..1c60d52 100644
--- a/test/test-regexp-trepan3k.el
+++ b/test/test-regexp-trepan3k.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-trepanjs.el b/test/test-regexp-trepanjs.el
index b0f5266..d26102d 100644
--- a/test/test-regexp-trepanjs.el
+++ b/test/test-regexp-trepanjs.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/trepanjs/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp-trepanpl.el b/test/test-regexp-trepanpl.el
index b09ea22..694dc1d 100644
--- a/test/test-regexp-trepanpl.el
+++ b/test/test-regexp-trepanpl.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/debugger/trepan.pl/init.el")
diff --git a/test/test-regexp-trepanx.el b/test/test-regexp-trepanx.el
index 41bc9d6..a43658c 100644
--- a/test/test-regexp-trepanx.el
+++ b/test/test-regexp-trepanx.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (load-file "../realgud/debugger/trepanx/init.el")
 (load-file "./regexp-helper.el")
 
diff --git a/test/test-regexp-zshdb.el b/test/test-regexp-zshdb.el
index 22d6e03..c9ff95a 100644
--- a/test/test-regexp-zshdb.el
+++ b/test/test-regexp-zshdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/zshdb/init.el")
 (load-file "./regexp-helper.el")
diff --git a/test/test-regexp.el b/test/test-regexp.el
index 84e65e9..da9a81a 100644
--- a/test/test-regexp.el
+++ b/test/test-regexp.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'load-relative)
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
diff --git a/test/test-remake-core.el b/test/test-remake-core.el
index b68fded..1f76d22 100644
--- a/test/test-remake-core.el
+++ b/test/test-remake-core.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/remake/core.el")
 
diff --git a/test/test-remake.el b/test/test-remake.el
index 9806a65..f441932 100644
--- a/test/test-remake.el
+++ b/test/test-remake.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/core.el") ;; for realgud-exec-shell
 (load-file "../realgud/debugger/remake/remake.el")
diff --git a/test/test-send.el b/test/test-send.el
index a395ddd..580cfd5 100644
--- a/test/test-send.el
+++ b/test/test-send.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 
 (load-file "../realgud/common/send.el")
diff --git a/test/test-shortkey.el b/test/test-shortkey.el
index 65eab57..5f599d9 100644
--- a/test/test-shortkey.el
+++ b/test/test-shortkey.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'load-relative)
 (load-file "../realgud/common/shortkey.el")
diff --git a/test/test-srcbuf.el b/test/test-srcbuf.el
index 9562a96..a910c42 100644
--- a/test/test-srcbuf.el
+++ b/test/test-srcbuf.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/source.el")
 (load-file "../realgud/common/buffer/command.el")
diff --git a/test/test-track-mode.el b/test/test-track-mode.el
index 384b71a..7128e6d 100644
--- a/test/test-track-mode.el
+++ b/test/test-track-mode.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'comint)
 (load-file "../realgud/debugger/trepan/trepan.el")
diff --git a/test/test-track.el b/test/test-track.el
index 9a4d489..d0bb147 100644
--- a/test/test-track.el
+++ b/test/test-track.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/track.el")
 (load-file "../realgud/common/core.el")
diff --git a/test/test-trepan2.el b/test/test-trepan2.el
index 38e3532..6197357 100644
--- a/test/test-trepan2.el
+++ b/test/test-trepan2.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/trepan2/trepan2.el")
 (load-file "../realgud/debugger/trepan2/core.el")
diff --git a/test/test-trepan3k.el b/test/test-trepan3k.el
index 1b3ffb1..758ad86 100644
--- a/test/test-trepan3k.el
+++ b/test/test-trepan3k.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/trepan3k/trepan3k.el")
 (declare-function trepan3k-parse-cmd-args 'realgud:trepan3k)
diff --git a/test/test-trepanpl.el b/test/test-trepanpl.el
index 150fd03..6b5c807 100644
--- a/test/test-trepanpl.el
+++ b/test/test-trepanpl.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/common/buffer/command.el")
 (load-file "../realgud/debugger/trepan.pl/trepanpl.el")
diff --git a/test/test-utils.el b/test/test-utils.el
index 7605557..47d9958 100644
--- a/test/test-utils.el
+++ b/test/test-utils.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (require 'comint)
 (require 'eshell)
diff --git a/test/test-zshdb.el b/test/test-zshdb.el
index 2b392af..86eb5e5 100644
--- a/test/test-zshdb.el
+++ b/test/test-zshdb.el
@@ -1,3 +1,6 @@
+;; Press C-x C-e at the end of the next line to run this file test 
non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory 
(locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'test-simple)
 (load-file "../realgud/debugger/zshdb/zshdb.el")
 (load-file "../realgud/common/core.el")