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

cleaning up test names

Browse source
This commit is contained in:
Alex Shinn 2020-06-19 17:37:55 +09:00
parent 80d2db51d8
commit e8f1233e18
10 changed files with 268 additions and 266 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/log-test.sld
View file

@ -20,7 +20,7 @@
(string-split (log->string expr ...) "\n")) (string-split (log->string expr ...) "\n"))
"\n")))) "\n"))))
(define (run-tests) (define (run-tests)
(test-begin "(chibi log)") (test-begin "logging")
(test "D four: 4" (test "D four: 4"
(log->string/no-dates (log->string/no-dates
(log-debug "four: " (+ 2 2)))) (log-debug "four: " (+ 2 2))))

2
lib/chibi/show/c-test.sld
View file

@ -4,7 +4,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "(chibi show c)") (test-begin "show c")
(test "if (1) { (test "if (1) {
2; 2;

2
lib/chibi/syntax-case-test.sld
View file

@ -5,7 +5,7 @@
(chibi test)) (chibi test))
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "Syntax Case") (test-begin "syntax case")
(test "syntax constant list" (test "syntax constant list"
'(+ 1 2) '(+ 1 2)

2
lib/scheme/bytevector-test.sld
View file

@ -9,7 +9,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "bytevector") (test-begin "scheme bytevector")
;; (test 258 (bytevector-uint-ref #u8(0 1 2 0) 1 (endianness big) 2)) ;; (test 258 (bytevector-uint-ref #u8(0 1 2 0) 1 (endianness big) 2))
;; (test 513 (bytevector-uint-ref #u8(0 1 2 0) 1 (endianness little) 2)) ;; (test 513 (bytevector-uint-ref #u8(0 1 2 0) 1 (endianness little) 2))
;; (test -65281 ;; (test -65281

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

@ -4,7 +4,7 @@
(export run-tests) (export run-tests)
(begin (begin
(define (run-tests) (define (run-tests)
(test-group "ilists" (test-group "srfi-116: ilists"
(test-group "ilists/constructors" (test-group "ilists/constructors"
(define abc (ilist 'a 'b 'c)) (define abc (ilist 'a 'b 'c))

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

@ -10,7 +10,7 @@
((_ binds mv-expr body ...) ((_ binds mv-expr body ...)
(let-values ((binds mv-expr)) body ...)))) (let-values ((binds mv-expr)) body ...))))
(define (run-tests) (define (run-tests)
(test-group "ideque" (test-group "srfi-134: ideque"
(test-group "ideque/constructors" (test-group "ideque/constructors"
(test '() (ideque->list (ideque))) (test '() (ideque->list (ideque)))

4
lib/srfi/146/hash-test.sld
View file

@ -33,7 +33,7 @@
(define comparator (make-default-comparator)) (define comparator (make-default-comparator))
(define (run-tests) (define (run-tests)
(test-begin "SRFI 146: Hashmaps") (test-begin "srfi-146: hashmaps")
(test-group "Predicates" (test-group "Predicates"
(define hashmap0 (hashmap comparator)) (define hashmap0 (hashmap comparator))
@ -438,4 +438,4 @@
(test-assert "=?: unequal hashmaps" (test-assert "=?: unequal hashmaps"
(not (=? comparator hashmap1 hashmap4)))))) (not (=? comparator hashmap1 hashmap4))))))
(test-end "SRFI 146: Hashmaps")))) (test-end "srfi-146: hashmaps"))))

4
lib/srfi/146/test.sld
View file

@ -31,7 +31,7 @@
(chibi test)) (chibi test))
(begin (begin
(define (run-tests) (define (run-tests)
(test-begin "SRFI 146") (test-begin "srfi-146: mappings")
(test-group "Predicates" (test-group "Predicates"
(define mapping0 (mapping comparator)) (define mapping0 (mapping comparator))
@ -521,6 +521,6 @@
(test-assert "<?: case 3" (test-assert "<?: case 3"
(<? comparator mapping1 mapping5))))) (<? comparator mapping1 mapping5)))))
(test-end "SRFI 146")) (test-end "srfi-146: mappings"))
(define comparator (make-default-comparator)))) (define comparator (make-default-comparator))))

4
lib/srfi/158/test.sld
View file

@ -24,7 +24,7 @@
(define (small? x) (< x 3)) (define (small? x) (< x 3))
(define n 0) (define n 0)
(define (run-tests) (define (run-tests)
(test-group "generators" (test-group "srfi-158: generators"
(test-group "generators/constructors" (test-group "generators/constructors"
(test '() (generator->list (generator))) (test '() (generator->list (generator)))
(test '(1 2 3) (generator->list (generator 1 2 3))) (test '(1 2 3) (generator->list (generator 1 2 3)))
@ -175,7 +175,7 @@
) ; end "generators" ) ; end "generators"
(test-group "accumulators" (test-group "srfi-158: accumulators"
(test -8 (test -8
(let ((a (make-accumulator * 1 -))) (let ((a (make-accumulator * 1 -)))
(a 1) (a 1)

2
tests/lib-tests.scm
View file

@ -32,6 +32,7 @@
(rename (srfi 151 test) (run-tests run-srfi-151-tests)) (rename (srfi 151 test) (run-tests run-srfi-151-tests))
(rename (srfi 158 test) (run-tests run-srfi-158-tests)) (rename (srfi 158 test) (run-tests run-srfi-158-tests))
(rename (srfi 160 test) (run-tests run-srfi-160-tests)) (rename (srfi 160 test) (run-tests run-srfi-160-tests))
(rename (scheme bytevector-test) (run-tests run-scheme-bytevector-tests))
(rename (chibi base64-test) (run-tests run-base64-tests)) (rename (chibi base64-test) (run-tests run-base64-tests))
(rename (chibi bytevector-test) (run-tests run-bytevector-tests)) (rename (chibi bytevector-test) (run-tests run-bytevector-tests))
(rename (chibi crypto md5-test) (run-tests run-md5-tests)) (rename (chibi crypto md5-test) (run-tests run-md5-tests))
@ -99,6 +100,7 @@
(run-srfi-151-tests) (run-srfi-151-tests)
(run-srfi-158-tests) (run-srfi-158-tests)
(run-srfi-160-tests) (run-srfi-160-tests)
(run-scheme-bytevector-tests)
(run-base64-tests) (run-base64-tests)
(run-bytevector-tests) (run-bytevector-tests)
(run-doc-tests) (run-doc-tests)