From fef37c8366050b8dcaf6e4817a6d210553c7592a Mon Sep 17 00:00:00 2001
From: OGINO Masanori <masanori.ogino@gmail.com>
Date: Wed, 1 Jul 2015 15:55:03 +0900
Subject: [PATCH] Add regression tests for #282.

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
---
 t/issue/282.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 t/issue/282.scm

diff --git a/t/issue/282.scm b/t/issue/282.scm
new file mode 100644
index 00000000..c115ba44
--- /dev/null
+++ b/t/issue/282.scm
@@ -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)