Add tests for RakuAST::Regex::InternalModifier::(Ratchet|Sigspace)

And additionally RakuAST::Regex::WithSigspace
rakudo · Jan 17, 2023 · 7551c67 · 7551c67
1 parent 78526bc
commit 7551c67
Show file tree

Hide file tree

Showing 2 changed files with 65 additions and 16 deletions.
diff --git a/t/12-rakuast/TODO b/t/12-rakuast/TODO
@@ -33,12 +33,9 @@ RakuAST::Regex::Assertion::Callable
 RakuAST::Regex::Assertion::Named::Args
 RakuAST::Regex::Backtrack::Greedy
 RakuAST::Regex::BacktrackModifiedAtom
-RakuAST::Regex::InternalModifier::Ratchet
-RakuAST::Regex::InternalModifier::Sigspace
 RakuAST::Regex::Quantifier::BlockRange
 RakuAST::Regex::SequentialConjunction
 RakuAST::Regex::Term
-RakuAST::Regex::WithSigspace
 RakuAST::RegexDeclaration
 RakuAST::RegexThunk
 RakuAST::Statement::Control

diff --git a/t/12-rakuast/regex.rakutest b/t/12-rakuast/regex.rakutest
@@ -2,7 +2,7 @@ use MONKEY-SEE-NO-EVAL;
 use experimental :rakuast;
 use Test;
 
-plan 51;
+plan 55;
 
 my $ast;
 my $deparsed;
@@ -609,6 +609,25 @@ subtest 'Match with block' => {
     match-ok "foo", 'oo', 2;
 }
 
+subtest 'Match with variable definition' => {
+    # / o :my $foo; o /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::Statement.new(
+        RakuAST::Statement::Expression.new(
+          expression => RakuAST::VarDeclaration::Simple.new(
+            scope => 'my',
+            name  => '$foo'
+          )
+        )
+      ),
+      RakuAST::Regex::Literal.new("o")
+    );
+    is-deeply $deparsed, '/ o :my $foo; o /', 'deparse';
+
+    match-ok "Foo", 'oo';
+}
+
 subtest 'Match with ignoring case' => {
     # / :i oo /
     ast RakuAST::Regex::Sequence.new(
@@ -668,28 +687,61 @@ subtest 'No match with *not* ignoring mark' => {
     # / :!m oo /
     ast RakuAST::Regex::Sequence.new(
       RakuAST::Regex::InternalModifier::IgnoreMark.new(:negated),
-      RakuAST::Regex::Literal.new("oo"),
+      RakuAST::Regex::Literal.new("oo")
     );
     is-deeply $deparsed, '/ :!m oo /', 'deparse';
 
     match-nok "Föö";
 }
 
-subtest 'Match with variable definition' => {
-    # / o :my $foo; o /
+subtest 'Match with ratchet' => {
+    # / o :r o /
     ast RakuAST::Regex::Sequence.new(
       RakuAST::Regex::Literal.new("o"),
-      RakuAST::Regex::Statement.new(
-        RakuAST::Statement::Expression.new(
-          expression => RakuAST::VarDeclaration::Simple.new(
-            scope => 'my',
-            name  => '$foo'
-          )
-        )
-      ),
+      RakuAST::Regex::InternalModifier::Ratchet.new,
       RakuAST::Regex::Literal.new("o")
     );
-    is-deeply $deparsed, '/ o :my $foo; o /', 'deparse';
+    is-deeply $deparsed, '/ o :r o /', 'deparse';
+
+    match-ok "Foo", 'oo';
+}
+
+subtest 'Match without ratchet' => {
+    # / o :!r o /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::InternalModifier::Ratchet.new(:negated),
+      RakuAST::Regex::Literal.new("o")
+    );
+    is-deeply $deparsed, '/ o :!r o /', 'deparse';
+
+    match-ok "Foo", 'oo';
+}
+
+subtest 'Match with sigspace' => {
+    # / o :s o /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::InternalModifier::Sigspace.new,
+      RakuAST::Regex::WithSigspace.new(
+        RakuAST::Regex::Literal.new("o")
+      )
+    );
+    is-deeply $deparsed, '/ o :s o /', 'deparse';
+
+    match-ok "Foo", 'oo';
+}
+
+subtest 'Match without sigspace' => {
+    # / o :!s o /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::InternalModifier::Sigspace.new(:negated),
+      RakuAST::Regex::WithSigspace.new(
+        RakuAST::Regex::Literal.new("o")
+      )
+    );
+    is-deeply $deparsed, '/ o :!s o /', 'deparse';
 
     match-ok "Foo", 'oo';
 }