Merge pull request #284 from omasanori/srfi-106-test

Get stats of SRFI 106's test.
This commit is contained in:
OGINO Masanori 2015-07-02 06:40:10 +09:00
commit e67029c87e
1 changed files with 4 additions and 0 deletions

View File

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