From 4143535ae5eb9385a86240e152be873cc4348e03 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 16 Mar 2023 13:18:41 -0700 Subject: add regexp trailing option to attempt to parse matches as numbers Signed-off-by: Sean Whitton --- tests/reader.lisp | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) (limited to 'tests') 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)) -- cgit v1.2.3