From 064eb9a1473c7576838eedde8b9f578c3de2a9f2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 17 Sep 2008 14:26:40 +0000 Subject: [PATCH] Rename input files so they get compiled too. (And also see that the resulting .dep files are good re `include') svn: r11789 --- collects/tests/scribble/main.ss | 4 ++-- collects/tests/scribble/text/{i1 => i1.ss} | 0 collects/tests/scribble/text/{i2 => i2.ss} | 0 collects/tests/scribble/text/{i3 => i3.ss} | 0 collects/tests/scribble/text/{o1 => o1.txt} | 0 collects/tests/scribble/text/{o2 => o2.txt} | 0 collects/tests/scribble/text/{o3 => o3.txt} | 0 7 files changed, 2 insertions(+), 2 deletions(-) rename collects/tests/scribble/text/{i1 => i1.ss} (100%) rename collects/tests/scribble/text/{i2 => i2.ss} (100%) rename collects/tests/scribble/text/{i3 => i3.ss} (100%) rename collects/tests/scribble/text/{o1 => o1.txt} (100%) rename collects/tests/scribble/text/{o2 => o2.txt} (100%) rename collects/tests/scribble/text/{o3 => o3.txt} (100%) diff --git a/collects/tests/scribble/main.ss b/collects/tests/scribble/main.ss index 74233ee569..b95d0d3dc7 100644 --- a/collects/tests/scribble/main.ss +++ b/collects/tests/scribble/main.ss @@ -82,8 +82,8 @@ (parameterize ([current-directory text-dir]) (for ([ifile (map path->string (directory-list))] #:when (and (file-exists? ifile) - (regexp-match? #rx"^i[0-9]+$" ifile))) - (define ofile (regexp-replace #rx"^i" ifile "o")) + (regexp-match? #rx"^i[0-9]+\\.ss$" ifile))) + (define ofile (regexp-replace #rx"^i([0-9]+)\\..*$" ifile "o\\1.txt")) (define expected (call-with-input-file ofile (lambda (i) (read-bytes (file-size ofile) i)))) (define o (open-output-bytes)) diff --git a/collects/tests/scribble/text/i1 b/collects/tests/scribble/text/i1.ss similarity index 100% rename from collects/tests/scribble/text/i1 rename to collects/tests/scribble/text/i1.ss diff --git a/collects/tests/scribble/text/i2 b/collects/tests/scribble/text/i2.ss similarity index 100% rename from collects/tests/scribble/text/i2 rename to collects/tests/scribble/text/i2.ss diff --git a/collects/tests/scribble/text/i3 b/collects/tests/scribble/text/i3.ss similarity index 100% rename from collects/tests/scribble/text/i3 rename to collects/tests/scribble/text/i3.ss diff --git a/collects/tests/scribble/text/o1 b/collects/tests/scribble/text/o1.txt similarity index 100% rename from collects/tests/scribble/text/o1 rename to collects/tests/scribble/text/o1.txt diff --git a/collects/tests/scribble/text/o2 b/collects/tests/scribble/text/o2.txt similarity index 100% rename from collects/tests/scribble/text/o2 rename to collects/tests/scribble/text/o2.txt diff --git a/collects/tests/scribble/text/o3 b/collects/tests/scribble/text/o3.txt similarity index 100% rename from collects/tests/scribble/text/o3 rename to collects/tests/scribble/text/o3.txt