Add "make check-short" which reduces unuseful output from "make check".

Correct problem in trepan init.el: (format ...) doesn't work here.

diff --git a/Makefile.am b/Makefile.am
index af172a09055207b8ead0355402b1fa90147aa933..291cfc1d597d6b6a4c5d5155868068f1faca1fc1 100644 (file)
--- a/Makefile.am
+++ b/Makefile.am
@@ -17,6 +17,9 @@ endif
 
 test: check
 
+check-short:
+       $(MAKE) check 2>&1  | ruby make-check-filter.rb
+
 
 
 

diff --git a/dbgr/debugger/trepan/init.el b/dbgr/debugger/trepan/init.el
index 7cb87f552a458b48154969fa7dcba0780c2a1348..517e18354838f2d694e07d8f0dc068677199c573 100644 (file)
--- a/dbgr/debugger/trepan/init.el
+++ b/dbgr/debugger/trepan/init.el
@@ -104,7 +104,7 @@ backtrace listing.")
 (setf (gethash "font-lock-keywords" dbgr-trepan-pat-hash)
       '(
        ;; The frame number and first type name, if present.
-       (format ("^\\(%s\\|   \\)? #\\([0-9]+\\) \\([A-Z]+\\) *\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?" dbgr-trepan-selected-frame-arrow)
+       ("^\\(-->\\|   \\)? #\\([0-9]+\\) \\([A-Z]+\\) *\\([A-Z_][a-zA-Z0-9_]*\\)[#]\\([a-zA-Z_][a-zA-Z_[0-9]]*\\)?"
         (2 dbgr-backtrace-number-face)
         (3 font-lock-keyword-face)         ; e.g. METHOD, TOP
         (4 font-lock-constant-face)        ; e.g. Object

diff --git a/make-check-filter.rb b/make-check-filter.rb
new file mode 100644 (file)
index 0000000..daee7c9
--- /dev/null
+++ b/make-check-filter.rb
@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Use this to cut out the crud from make check.
+# Use like this:
+#   make check 2>&1  | ruby ../make-check-filter.rb
+# See Makefile.am
+pats = ["^(?:Loading",
+        'make\[',
+        "Making check in",
+        '\(cd \.\.',
+        "make -C",
+        "Test-Unit",
+        "Fontifying",
+        '\s*$'
+       ].join('|') + ')'
+# puts pats
+skip_re = /#{pats}/
+
+while gets()
+  next if $_ =~ skip_re
+  puts $_
+end

diff --git a/test/Makefile.am b/test/Makefile.am
index e4de6554e6873126d7f9daa37fff0048a95f7dd9..38728b3ac1abf8db967eea3e7cc27a7d5d0d3369 100644 (file)
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -13,6 +13,9 @@ CHECK_FILES = $(notdir $(test_files:.el=.run))
 
 check: $(CHECK_FILES)
 
+check-short:
+       $(MAKE) check 2>&1  | ruby ../make-check-filter.rb
+
 test-%.run:
        (cd $(top_srcdir)/test && $(EMACS) -batch -Q -l $(@:.run=.el) )