* tests/reader.test: Check that number->string checks its radix

[bpt/guile.git] / test-suite / tests / reader.test

diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index 764cb36..97c89c5 100644 (file)
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -14,3 +14,12 @@
 (try-to-read "1++i")
 (try-to-read "1+i+i")
 (try-to-read "1+e10000i")
+
+(pass-if "radix passed to number->string can't be zero"
+        (signals-error?
+         'out-of-range
+         (number->string 10 0)))
+(pass-if "radix passed to number->string can't be one either"
+        (signals-error?
+         'out-of-range
+         (number->string 10 1)))