add regexp trailing option to attempt to parse matches as numbers

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 36 insertions, 0 deletions

diff --git a/tests/reader.lisp b/tests/reader.lisp
index 1383196..eb4feec 100644
--- a/tests/reader.lisp
+++ b/tests/reader.lisp
@@ -108,3 +108,39 @@ line 2
 (deftest perl-tilde-reader.18
     (#~s'foo'${bar}' "foo")
   "${bar}" t)
+
+(deftest perl-tilde-reader.19
+    (#~/\d+/p "1234")
+  1234)
+
+(deftest perl-tilde-reader.19
+    (#~/(\d+)/p "1234")
+  #(1234))
+
+(deftest perl-tilde-reader.21
+    (#~/\d+/gp "1234 6789")
+  (1234 6789))
+
+(deftest perl-tilde-reader.22
+    (#0~/aa (\d+)/p "aa 1234")
+  "aa 1234" #(1234))
+
+(deftest perl-tilde-reader.22
+    (#0~/aa (.+)/p "aa bbbb")
+  "aa bbbb" #("bbbb"))
+
+(deftest perl-tilde-reader.24
+    (#0~/(\d+)../p "1234")
+  1234 #(12))
+
+(deftest perl-tilde-reader.25
+    (#1~/(\d+)../p "1234")
+  12 #(12))
+
+(deftest perl-tilde-reader.26
+    (#1~/(..)../p "aabb")
+  "aa" #("aa"))
+
+(deftest perl-tilde-reader.27
+    (#~/d(.)?$/p "d")
+  #(nil))