Allow lexing of immediates in different bases

1 files changed, 19 insertions, 0 deletions

diff --git a/t/lex.lisp b/t/lex.lisp
index 40698f9..ab0ed99 100644
--- a/t/lex.lisp
+++ b/t/lex.lisp
@@ -52,12 +52,31 @@
       (read-this "123456789"
                  (is (= (lex:read-token) 123456789))))
 
+(test read-token-immediate-binary
+      (read-this "0b00101010"
+                 (is (= (lex:read-token) 42))))
+
+(test read-token-immediate-octal
+      (read-this "0o052"
+                 (is (= (lex:read-token) 42))))
+
+(test read-token-immediate-hexadecimal
+      (read-this "0x200"
+                 (is (= (lex:read-token) 512))))
+
 (test read-token-immediate-invalid-immediate
       (handler-case
           (progn (read-this "0v0" (lex:read-token))
                  (fail))
         (lex:invalid-immediate-or-keyword ())))
 
+;; do we want a custom error for this too?
+(test read-token-immediate-radix
+      (handler-case
+          (progn (read-this "0x" (lex:read-token))
+                 (fail))
+        (sb-int:simple-parse-error ())))
+
 (test read-token-keyword-single
       (read-this "a"
                  (is (string= (lex:read-token) "a"))))