Get stats of SRFI 106's test.

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-07-02 06:26:42 +09:00
parent 65ade266d1
commit 11e3d7741f
1 changed files with 4 additions and 0 deletions

View File

@ -2,6 +2,8 @@
(srfi 106)
(picrin test))
(test-begin)
; The number 9600 has no meaning. I just borrowed from Rust.
(define *test-port* 9600)
(define (next-test-port)
@ -70,3 +72,5 @@
(test *shut-wr* (shutdown-method write))
(test *shut-rdwr* (shutdown-method read write))
(test *shut-rdwr* (shutdown-method write read))
(test-end)