scheme48 1.9-5 / usr / share / scheme48-1.9 / r6rs / test-packages.scm

This file is indexed.

/usr/share/scheme48-1.9/r6rs/test-packages.scm is in scheme48 1.9-5.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

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

APT Browse - Built by Thomas Orozco.