conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updated tests in libpp.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-01-13 21:58:14 -05:00
parent 92e278281c
commit fe89891d96
2 changed files with 28 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

50
src/libpp.ss
View File

@ -380,14 +380,6 @@
(pretty x p) (pretty x p)
(error 'pretty-print "~s is not an output port" p))]))) (error 'pretty-print "~s is not an output port" p))])))
(with-input-from-file "pretty-print.ss"
(lambda ()
(let f ()
(let ([x (read)])
(unless (eof-object? x)
(test x)
(f))))))
(test '(384 7384 83947 893478 9137489 3894789 134789314 79817238 (test '(384 7384 83947 893478 9137489 3894789 134789314 79817238
97314897 318947138974 981374 89137489 1374897 13498713 97314897 318947138974 981374 89137489 1374897 13498713
894713894 137894 89137489 1374 891348314 12 17 9000000 . 17)) 894713894 137894 89137489 1374 891348314 12 17 9000000 . 17))
@ -420,19 +412,33 @@
(error 'test-file "mismatch ~s ~s" x y))))))))) (error 'test-file "mismatch ~s ~s" x y)))))))))
(for-each test-file (for-each test-file
'(;"../src/fact.ss" "../src/libhash.ss" "../src/foo.ss" '("fact.ss"
;"../src/libintelasm.ss" "../src/libassembler.ss" "libhash.ss"
;"../src/libnumerics.ss" "../src/libcafe.ss" "../src/libposix.ss" "foo.ss"
;"../src/libchezio.ss" "../src/librecord.ss" "libintelasm.ss"
;"../src/libcollect.ss" "../src/libtimers.ss" "libassembler.ss"
"../src/libcompile.ss" "libnumerics.ss"
;"../src/libtokenizer.ss" "libcafe.ss"
;"../src/libcontrol.ss" "../src/libtoplevel.ss" "libposix.ss"
;"../src/libcore.ss" "../src/libtrace.ss" "../src/libcxr.ss" "libchezio.ss"
;"../src/libwriter.ss" "../src/libengines.ss" "librecord.ss"
;"../src/libfasl.ss" "libcollect.ss"
;"../src/libguardians.ss" "../src/self-exporting-module.ss" "libtimers.ss"
;"../src/libhandlers.ss" "../src/set-operations.ss" "libcompile.ss"
;"../src/psyntax-7.1.ss" "libtokenizer.ss"
"libcontrol.ss"
"libtoplevel.ss"
"libcore.ss"
"libtrace.ss"
"libcxr.ss"
"libwriter.ss"
"libengines.ss"
"libfasl.ss"
"libguardians.ss"
"libpp.ss"
"self-exporting-module.ss"
"libhandlers.ss"
"set-operations.ss"
"psyntax-7.1.ss"
)) ))