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 srfi tests to lib-tests

Browse source
This commit is contained in:
Alex Shinn 2017-04-16 22:15:58 +09:00
parent dc3283a13b
commit f37429d510
6 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "list-queues") (test-begin "srfi-117: list-queues")
(test-group "list-queues/simple" (test-group "list-queues/simple"
(define x (list-queue 1 2 3)) (define x (list-queue 1 2 3))

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

@ -40,7 +40,7 @@
(lambda (a b) (string<? (symbol->string a) (symbol->string b))) (lambda (a b) (string<? (symbol->string a) (symbol->string b)))
symbol-hash)) symbol-hash))
(define (run-tests) (define (run-tests)
(test-group "comparators" (test-group "srfi-128: comparators"
(test '#(2 3 4) (vector-cdr '#(1 2 3 4))) (test '#(2 3 4) (vector-cdr '#(1 2 3 4)))
(test '#() (vector-cdr '#(1))) (test '#() (vector-cdr '#(1)))

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

@ -10,7 +10,7 @@
(define Ljubljana "\x01C8;ub\x01C9;ana") (define Ljubljana "\x01C8;ub\x01C9;ana")
(define ljubljana "\x01C9;ub\x01C9;ana") (define ljubljana "\x01C9;ub\x01C9;ana")
(define (run-tests) (define (run-tests)
(test-begin "titlecase") (test-begin "srfi-129: titlecase")
(test-group "titlecase/predicate" (test-group "titlecase/predicate"
(test-assert (char-title-case? #\x01C5)) (test-assert (char-title-case? #\x01C5))
(test-assert (char-title-case? #\x1FFC)) (test-assert (char-title-case? #\x1FFC))

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

@ -3,7 +3,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "sorting") (test-begin "srfi-132: sorting")
(test '() (test '()
(list-sort > (list))) (list-sort > (list)))
(test '(987) (test '(987)

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

@ -3,7 +3,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "srfi-133: vectors")
(test-group "vectors/constructors" (test-group "vectors/constructors"
(define a2i '#(a b c d e f g h i)) (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))
@ -173,4 +173,6 @@
(test '#(#\a #\b #\c) (string->vector "abc")) (test '#(#\a #\b #\c) (string->vector "abc"))
(test '#(#\b #\c) (string->vector "abc" 1)) (test '#(#\b #\c) (string->vector "abc" 1))
(test '#(#\a #\b) (string->vector "abc" 0 2)) (test '#(#\a #\b) (string->vector "abc" 0 2))
)))) )
(test-end))))

4
tests/lib-tests.scm
View file

@ -12,11 +12,13 @@
(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 117 test) (run-tests run-srfi-117-tests))
(rename (srfi 121 test) (run-tests run-srfi-121-tests))
(rename (srfi 128 test) (run-tests run-srfi-128-tests)) (rename (srfi 128 test) (run-tests run-srfi-128-tests))
(rename (srfi 129 test) (run-tests run-srfi-129-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 132 test) (run-tests run-srfi-132-tests))
(rename (srfi 133 test) (run-tests run-srfi-133-tests)) (rename (srfi 133 test) (run-tests run-srfi-133-tests))
(rename (srfi 142 test) (run-tests run-srfi-142-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))
@ -59,11 +61,13 @@
(run-srfi-95-tests) (run-srfi-95-tests)
(run-srfi-99-tests) (run-srfi-99-tests)
(run-srfi-117-tests) (run-srfi-117-tests)
(run-srfi-121-tests)
(run-srfi-128-tests) (run-srfi-128-tests)
(run-srfi-129-tests) (run-srfi-129-tests)
(run-srfi-130-tests) (run-srfi-130-tests)
(run-srfi-132-tests) (run-srfi-132-tests)
(run-srfi-133-tests) (run-srfi-133-tests)
(run-srfi-142-tests)
(run-base64-tests) (run-base64-tests)
(run-doc-tests) (run-doc-tests)
(run-generic-tests) (run-generic-tests)