Add regression tests for #282.

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-07-01 15:55:03 +09:00
parent 214c18adcf
commit fef37c8366
1 changed files with 11 additions and 0 deletions

11
t/issue/282.scm Normal file
View File

@ -0,0 +1,11 @@
(import (scheme base)
(picrin test))
(test-begin)
(test "-0.1" (substring (number->string -0.1) 0 4))
(test "-0.9" (substring (number->string -0.9) 0 4))
(test "-1.0" (substring (number->string -1.0) 0 4))
(test "-1.1" (substring (number->string -1.1) 0 4))
(test-end)