From e64ba228e86847cc3c4a790911d083c779ff3283 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 12 May 2011 17:46:09 -0400 Subject: [PATCH] Have the TR test harness skip emacs unsaved file backups. --- collects/tests/typed-scheme/optimizer/run.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index a07eb1de1f..59763d6df1 100644 --- 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)))))