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

R6RS test repairs form Aziz

Browse Source 
svn: r10867
This commit is contained in:
Matthew Flatt 2008-07-23 00:50:22 +00:00
parent 837429315a
commit 41f89d35f8
3 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/r6rs/README.txt
View File

@ -38,10 +38,10 @@ however, is that if an R6RS implementation doesn't supply one binding
or does not support a bit of syntax used in a set of tests, then the or does not support a bit of syntax used in a set of tests, then the
whole set of tests fails to load. whole set of tests fails to load.
A related problem is that each set of sets is placed into one function A related problem is that each set of tests is placed into one
that runs all the tests. This format creates a block of code that is function that runs all the tests. This format creates a block of code
much larger than in a typical program, which might give some compilers that is much larger than in a typical program, which might give some
trouble. compilers trouble.
In any case, reports of bugs (in the tests) and new tests would be In any case, reports of bugs (in the tests) and new tests would be
very much appreciated. File either as a PLT Scheme bug report at very much appreciated. File either as a PLT Scheme bug report at
@ -65,9 +65,10 @@ or run an individual library's test, such as "run/program.sps" as
cd <somewhere> cd <somewhere>
ikarus --r6rs-script tests/r6rs/run/program.sps ikarus --r6rs-script tests/r6rs/run/program.sps
As of Ikarus 0.3.0+ (revision 1548), many libraries fail to load, As of Ikarus 0.3.0+ (revision 1548), a few libraries fail to load ---
mostly because condition names like &error cannot be used as mostly because some syntax (such as complex numbers) isn't supported,
expressions. or some unimplemented feature is used in the set-up for a test (so it
isn't protected by an exception handler).
Larceny Larceny
------- -------

4
collects/tests/r6rs/conditions.sls
View File

@ -14,8 +14,8 @@
(let ([v (make arg ...)]) (let ([v (make arg ...)])
(test (sel v) arg) ... (test (sel v) arg) ...
'ok) 'ok)
(test ((record-predicate &parent) (make arg ...)) #t) (test ((record-predicate (record-type-descriptor &parent)) (make arg ...)) #t)
(test (record-type-parent &c) &parent))])) (test (record-type-parent (record-type-descriptor &c)) (record-type-descriptor &parent)))]))
;; ---------------------------------------- ;; ----------------------------------------

2
collects/tests/r6rs/test.sls
View File

@ -44,7 +44,7 @@
(define-syntax test/exn (define-syntax test/exn
(syntax-rules () (syntax-rules ()
[(_ expr condition) [(_ expr condition)
(test (guard (c [((condition-predicate condition) c) (test (guard (c [((condition-predicate (record-type-descriptor condition)) c)
(make-expected-exception)]) (make-expected-exception)])
expr) expr)
(make-expected-exception))])) (make-expected-exception))]))