Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +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"))
"\n"))))
(define (run-tests)
(test-begin "(chibi log)")
(test-begin "logging")
(test "D four: 4"
(log->string/no-dates
(log-debug "four: " (+ 2 2))))

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

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

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

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

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

@ -9,7 +9,7 @@
(export run-tests)
(begin
(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 513 (bytevector-uint-ref #u8(0 1 2 0) 1 (endianness little) 2))
;; (test -65281

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

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

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

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

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

@ -33,7 +33,7 @@
(define comparator (make-default-comparator))
(define (run-tests)
(test-begin "SRFI 146: Hashmaps")
(test-begin "srfi-146: hashmaps")
(test-group "Predicates"
(define hashmap0 (hashmap comparator))
@ -438,4 +438,4 @@
(test-assert "=?: unequal hashmaps"
(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))
(begin
(define (run-tests)
(test-begin "SRFI 146")
(test-begin "srfi-146: mappings")
(test-group "Predicates"
(define mapping0 (mapping comparator))
@ -521,6 +521,6 @@
(test-assert "<?: case 3"
(<? comparator mapping1 mapping5)))))
(test-end "SRFI 146"))
(test-end "srfi-146: mappings"))
(define comparator (make-default-comparator))))

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

@ -24,7 +24,7 @@
(define (small? x) (< x 3))
(define n 0)
(define (run-tests)
(test-group "generators"
(test-group "srfi-158: generators"
(test-group "generators/constructors"
(test '() (generator->list (generator)))
(test '(1 2 3) (generator->list (generator 1 2 3)))
@ -175,7 +175,7 @@
) ; end "generators"
(test-group "accumulators"
(test-group "srfi-158: accumulators"
(test -8
(let ((a (make-accumulator * 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 158 test) (run-tests run-srfi-158-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 bytevector-test) (run-tests run-bytevector-tests))
(rename (chibi crypto md5-test) (run-tests run-md5-tests))
@ -99,6 +100,7 @@
(run-srfi-151-tests)
(run-srfi-158-tests)
(run-srfi-160-tests)
(run-scheme-bytevector-tests)
(run-base64-tests)
(run-bytevector-tests)
(run-doc-tests)