Have the TR test harness skip emacs unsaved file backups.

original commit: e64ba228e86847cc3c4a790911d083c779ff3283
2011-05-12 17:46:09 -04:00 · 2011-05-12 17:46:09 -04:00 · bdd5b3bc1a
commit bdd5b3bc1a
parent fa5a7fe291
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)))))