1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber, Marcus Crestani, Robert Ransom, Harald Glab-Plhak
(define-structure r6rs-records-procedural-test (export r6rs-records-procedural-tests)
(open scheme test-suites
r6rs-records-procedural)
(files record-procedural-check))
(define-structure r6rs-records-syntactic-test (export r6rs-records-syntactic-tests)
(open scheme test-suites
r6rs-records-procedural
r6rs-records-inspection
r6rs-records-syntactic)
(files record-syntactic-check))
(define-structure r6rs-records-test (export r6rs-records-tests)
(open scheme test-suites
r6rs-records-procedural-test
r6rs-records-syntactic-test)
(begin
(define-test-suite r6rs-records-tests
(r6rs-records-procedural-tests r6rs-records-syntactic-tests))))
(define-structure r6rs-enums-test (export r6rs-enums-tests)
(open scheme test-suites
r6rs-enums)
(files enum-check))
(define-structure r6rs-lists-test (export r6rs-lists-tests)
(open scheme test-suites
r6rs-lists)
(files list-check))
(define-structure r6rs-reader-test (export r6rs-reader-tests)
(open scheme test-suites
srfi-74 ; blobs
(subset i/o-internal (eof-object))
exceptions
extended-ports
r6rs-reader)
(files reader-check))
(define-structure r6rs-comparison-test (export r6rs-comparison-tests)
(open test-suites
(subset scheme-level-1 (integer? exact? negative? not zero? + - cons
vector-length vector-ref append map length
define cond let let* if lambda and list quote
apply vector string-append string integer->char))
(with-prefix scheme-level-1 prim:)
(with-prefix srfi-1 srfi-1:)
exceptions
r6rs-lists
r6rs-base-comparisons
r6rs-unicode)
(files comparison-check))
(define-structure r6rs-bytevectors-test (export r6rs-bytevectors-tests
ieee-bytevectors-tests
string-bytevectors-tests)
(open scheme test-suites matchers
(subset srfi-13 (string-contains))
r6rs-bytevectors)
(files bytevector-check
bytevector-string-check
bytevector-ieee-check))
(define-structure r6rs-hashtables-test (export r6rs-hashtables-tests)
(open (modify scheme (hide string-ci>? string-ci<?
string-ci>=? string-ci<=?
string-ci=? char-ci>?
char-ci<? char-ci>=?
char-ci<=? char-ci=?))
test-suites matchers
conditions
weak
srfi-42
exceptions
r6rs-hashtables
r6rs-unicode
(subset primitives (collect)))
(files hashtable-check))
(define-structure r6rs-bitwise-test (export r6rs-bitwise-tests)
(open scheme test-suites
r6rs-bitwise)
(files bitwise-check))
(define-structure r6rs-test (export r6rs-tests)
(open scheme test-suites
r6rs-records-test r6rs-lists-test r6rs-enums-test r6rs-reader-test
r6rs-comparison-test r6rs-bytevectors-test r6rs-bitwise-test
r6rs-hashtables-test)
(begin
(define-test-suite r6rs-tests
(r6rs-records-tests r6rs-lists-tests r6rs-enums-tests r6rs-reader-tests
r6rs-comparison-tests r6rs-bytevectors-tests r6rs-bitwise-tests
r6rs-hashtables-tests))))
|
