1 ; CONFIDENCE TEST FOR IMPLEMENTATION OF SRFI-26
2 ; =============================================
4 ; Sebastian.Egner@philips.com, 3-Jun-2002.
6 ; This file checks a few assertions about the implementation.
7 ; If you run it and no error message is issued, the implementation
8 ; is correct on the cases that have been tested.
14 ; loading this file into Scheme 48 0.57 after 'cut.scm' has been loaded:
19 ; evals expr and issues an error if it is not #t.
21 (define-module (test-srfi-26)
22 #:use-module (test-suite lib)
23 #:use-module (srfi srfi-26))
26 (pass-if "cut/cute" (eval expr (interaction-environment))))
29 ; runs several tests on cut and reports.
35 (equal? ((cut list)) '())
36 (equal? ((cut list <...>)) '())
37 (equal? ((cut list 1)) '(1))
38 (equal? ((cut list <>) 1) '(1))
39 (equal? ((cut list <...>) 1) '(1))
40 (equal? ((cut list 1 2)) '(1 2))
41 (equal? ((cut list 1 <>) 2) '(1 2))
42 (equal? ((cut list 1 <...>) 2) '(1 2))
43 (equal? ((cut list 1 <...>) 2 3 4) '(1 2 3 4))
44 (equal? ((cut list 1 <> 3 <>) 2 4) '(1 2 3 4))
45 (equal? ((cut list 1 <> 3 <...>) 2 4 5 6) '(1 2 3 4 5 6))
46 (equal? (let* ((x 'wrong) (y (cut list x))) (set! x 'ok) (y)) '(ok))
49 (map (cut + (begin (set! a (+ a 1)) a) <>)
54 (equal? ((cute list)) '())
55 (equal? ((cute list <...>)) '())
56 (equal? ((cute list 1)) '(1))
57 (equal? ((cute list <>) 1) '(1))
58 (equal? ((cute list <...>) 1) '(1))
59 (equal? ((cute list 1 2)) '(1 2))
60 (equal? ((cute list 1 <>) 2) '(1 2))
61 (equal? ((cute list 1 <...>) 2) '(1 2))
62 (equal? ((cute list 1 <...>) 2 3 4) '(1 2 3 4))
63 (equal? ((cute list 1 <> 3 <>) 2 4) '(1 2 3 4))
64 (equal? ((cute list 1 <> 3 <...>) 2 4 5 6) '(1 2 3 4 5 6))
67 (map (cute + (begin (set! a (+ a 1)) a) <>)
72 ; run the checks when loading
73 (with-test-prefix "SRFI-26"