suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Rename input files so they get compiled too.

Browse Source 
(And also see that the resulting .dep files are good re `include')

svn: r11789

original commit: 064eb9a1473c7576838eedde8b9f578c3de2a9f2
This commit is contained in:
Eli Barzilay 2008-09-17 14:26:40 +00:00
parent 4e0988f3a8
commit cb9a985182
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/scribble/main.ss
View File

@ -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))