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

Adding more default tests.

Browse source
This commit is contained in:
Alex Shinn 2014-06-29 21:38:44 +09:00
parent 048acde7d7
commit 15fb65b2d5
5 changed files with 21 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lib-tests.scm
View file

@ -9,6 +9,7 @@
(load "tests/srfi-1-tests.scm") (load "tests/srfi-1-tests.scm")
(load "tests/srfi-2-tests.scm") (load "tests/srfi-2-tests.scm")
(load "tests/srfi-16-tests.scm") (load "tests/srfi-16-tests.scm")
(load "tests/srfi-27-tests.scm")
(load "tests/srfi-38-tests.scm") (load "tests/srfi-38-tests.scm")
(load "tests/flonum-tests.scm") (load "tests/flonum-tests.scm")
(load "tests/numeric-tests.scm") (load "tests/numeric-tests.scm")
@ -20,6 +21,11 @@
(load "tests/uri-tests.scm") (load "tests/uri-tests.scm")
(load "tests/mime-tests.scm") (load "tests/mime-tests.scm")
(load "tests/regexp-tests.scm") (load "tests/regexp-tests.scm")
(load "tests/prime-tests.scm")
(load "tests/md5-tests.scm")
(load "tests/sha-tests.scm")
;; (load "tests/rsa-tests.scm")
(load "tests/tar-tests.scm")
(cond-expand (full-unicode (load "tests/unicode-tests.scm")) (else #f)) (cond-expand (full-unicode (load "tests/unicode-tests.scm")) (else #f))
(cond-expand (cond-expand

2
tests/md5-tests.scm
View file

@ -1,5 +1,5 @@
(import (scheme base) (chibi crypto md5) (chibi test)) (import (chibi crypto md5) (chibi test))
(test-begin "md5") (test-begin "md5")

2
tests/sha-tests.scm
View file

@ -1,5 +1,5 @@
(import (scheme base) (chibi crypto sha2) (chibi test)) (import (chibi crypto sha2) (chibi test))
(test-begin "sha2") (test-begin "sha2")

2
tests/srfi-27-tests.scm
View file

@ -1,5 +1,5 @@
(import (scheme base) (import (chibi)
(srfi 27) (srfi 27)
(chibi test)) (chibi test))

13
tests/tar-tests.scm
View file

@ -1,5 +1,16 @@
(import (scheme base) (scheme write) (chibi tar) (chibi test)) (import (chibi)
(only (scheme base)
bytevector-append
make-bytevector
string->utf8
bytevector
open-input-bytevector
open-output-bytevector
get-output-bytevector
)
(chibi tar)
(chibi test))
(test-begin "tar") (test-begin "tar")