From 424aa88258a410a3bb4918b0a14d030ec71185aa Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 7 Sep 2003 17:55:13 +0000
Subject: [PATCH] More tests, including :radix

---
 ansi-tests/parse-integer.lsp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/ansi-tests/parse-integer.lsp b/ansi-tests/parse-integer.lsp
index 5086a536..e68e1835 100644
--- a/ansi-tests/parse-integer.lsp
+++ b/ansi-tests/parse-integer.lsp
@@ -71,6 +71,27 @@
   (parse-integer "+0")
   0 2)
 
+(deftest parse-integer.11
+  (parse-integer "-00")
+  0 3)
+
+(deftest parse-integer.12
+  (parse-integer "+000")
+  0 4)
+
+(deftest parse-integer.13
+  (parse-integer "00010")
+  10 5)
+
+(deftest parse-integer.14
+  (parse-integer "10110" :radix 2)
+  22 5)
+
+(deftest parse-integer.15
+  (parse-integer "1021" :radix 3)
+  34 4)
+
+
 
 
 
-- 
GitLab