From 11e3d7741f9049aaea8e7c444d4ad1447c2abd54 Mon Sep 17 00:00:00 2001 From: OGINO Masanori Date: Thu, 2 Jul 2015 06:26:42 +0900 Subject: [PATCH] Get stats of SRFI 106's test. Signed-off-by: OGINO Masanori --- contrib/40.srfi/t/106.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/contrib/40.srfi/t/106.scm b/contrib/40.srfi/t/106.scm index 24c57503..356004ff 100644 --- a/contrib/40.srfi/t/106.scm +++ b/contrib/40.srfi/t/106.scm @@ -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)