Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding new srfis to lib tests

Browse source
This commit is contained in:
Alex Shinn 2017-04-01 22:20:21 +09:00
parent ae1704883c
commit 014aa253d1
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/133/test.sld
View file

@ -5,13 +5,13 @@
(define (run-tests) (define (run-tests)
(test-group "vectors/constructors" (test-group "vectors/constructors"
(define a2i '#(a b c d e f g h i))
(test '#(0 1 2 3 4) (vector 0 1 2 3 4)) (test '#(0 1 2 3 4) (vector 0 1 2 3 4))
(test '#(0 -1 -2 -3 -4 -5 -6 -7 -8 -9) (test '#(0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
(vector-unfold (lambda (i x) (values x (- x 1))) 10 0)) (vector-unfold (lambda (i x) (values x (- x 1))) 10 0))
(test '#(0 1 2 3 4 5 6) (vector-unfold values 7)) (test '#(0 1 2 3 4 5 6) (vector-unfold values 7))
(test '#((0 . 4) (1 . 3) (2 . 2) (3 . 1) (4 . 0)) (test '#((0 . 4) (1 . 3) (2 . 2) (3 . 1) (4 . 0))
(vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1))) 5 0)) (vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1))) 5 0))
(define a2i '#(a b c d e f g h i))
(test a2i (vector-copy a2i)) (test a2i (vector-copy a2i))
(test-assert (not (eqv? a2i (vector-copy a2i)))) (test-assert (not (eqv? a2i (vector-copy a2i))))
(test '#(g h i) (vector-copy a2i 6)) (test '#(g h i) (vector-copy a2i 6))

10
tests/lib-tests.scm
View file

@ -11,7 +11,12 @@
(rename (srfi 69 test) (run-tests run-srfi-69-tests)) (rename (srfi 69 test) (run-tests run-srfi-69-tests))
(rename (srfi 95 test) (run-tests run-srfi-95-tests)) (rename (srfi 95 test) (run-tests run-srfi-95-tests))
(rename (srfi 99 test) (run-tests run-srfi-99-tests)) (rename (srfi 99 test) (run-tests run-srfi-99-tests))
(rename (srfi 117 test) (run-tests run-srfi-117-tests))
(rename (srfi 128 test) (run-tests run-srfi-128-tests))
(rename (srfi 129 test) (run-tests run-srfi-129-tests))
(rename (srfi 130 test) (run-tests run-srfi-130-tests)) (rename (srfi 130 test) (run-tests run-srfi-130-tests))
(rename (srfi 132 test) (run-tests run-srfi-132-tests))
(rename (srfi 133 test) (run-tests run-srfi-133-tests))
(rename (chibi base64-test) (run-tests run-base64-tests)) (rename (chibi base64-test) (run-tests run-base64-tests))
(rename (chibi crypto md5-test) (run-tests run-md5-tests)) (rename (chibi crypto md5-test) (run-tests run-md5-tests))
(rename (chibi crypto rsa-test) (run-tests run-rsa-tests)) (rename (chibi crypto rsa-test) (run-tests run-rsa-tests))
@ -53,7 +58,12 @@
(run-srfi-69-tests) (run-srfi-69-tests)
(run-srfi-95-tests) (run-srfi-95-tests)
(run-srfi-99-tests) (run-srfi-99-tests)
(run-srfi-117-tests)
(run-srfi-128-tests)
(run-srfi-129-tests)
(run-srfi-130-tests) (run-srfi-130-tests)
(run-srfi-132-tests)
(run-srfi-133-tests)
(run-base64-tests) (run-base64-tests)
(run-doc-tests) (run-doc-tests)
(run-generic-tests) (run-generic-tests)