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
|
; Random tests, mostly for stuff in scheme/big
(define-structure misc-big-test (export misc-big-tests)
(open scheme test-suites
;assembler
byte-vectors
ports
queues
random
sort
big-scheme
arrays
dump/restore
search-trees
threads
placeholders
locks
interrupts
mask-types
masks
finite-types
(subset i/o (read-byte))
(subset i/o-internal (open-input-port? eof-object)))
(files (big check)))
(define-structure sockets-test (export tcp-sockets-tests
udp-sockets-tests)
(open scheme test-suites
byte-vectors threads
sockets udp-sockets)
(files (big socket-check)))
(define-structure inversion-lists-test (export inversion-lists-tests)
(open scheme test-suites
inversion-lists)
(files (big inversion-list-check)))
(define-structure big-test (export big-tests)
(open scheme test-suites
misc-big-test inversion-lists-test)
(begin
(define-test-suite big-tests
(misc-big-tests inversion-lists-tests))))
|
