Have the TR test harness skip emacs unsaved file backups.

2011-05-12 17:46:09 -04:00 · 2011-05-12 17:46:09 -04:00 · e64ba228e8
commit e64ba228e8
parent ffbaaa3c3b
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/typed-scheme/optimizer/run.rkt
+++ b/collects/tests/typed-scheme/optimizer/run.rkt
@ -48,7 +48,9 @@
  (make-test-suite
   suite-name
   (for/list ([name (directory-list dir)]
-              #:when (regexp-match ".*rkt$" name))
+              #:when (and (regexp-match ".*rkt$" name)
+                          ;; skip emacs temp unsaved file backups
+                          (not (regexp-match "^\\.#" name))))
     (make-test-suite
      (path->string name)
      (proc name)))))