RakuAST: add test for RakuAST::Regex::Backtrack::Greedy

rakudo · Mar 23, 2023 · b258927 · b258927
1 parent 07d4677
commit b258927
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 9 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -60,9 +60,9 @@ class RakuAST::Deparse {
     method regex-assertion-fail(--> '<!> ')     { }
     method regex-assertion-recurse(--> '<~~> ') { }
 
-    method regex-backtrack-frugal( --> '?')  { }
-    method regex-backtrack-ratchet(--> ':')  { }
-    method regex-backtrack-greedy( --> ':!') { }
+    method regex-backtrack-frugal( --> '?') { }
+    method regex-backtrack-ratchet(--> ':') { }
+    method regex-backtrack-greedy( --> '!') { }
 
     method regex-match-from(--> '<( ') { }
     method regex-match-to(  --> ')> ') { }

diff --git a/t/12-rakuast/TODO b/t/12-rakuast/TODO
@@ -24,7 +24,6 @@ RakuAST::ParameterDefaultThunk
 RakuAST::QuoteWordsAtom
 RakuAST::Regex::Assertion::Callable
 RakuAST::Regex::Assertion::Named::Args
-RakuAST::Regex::Backtrack::Greedy
 RakuAST::Regex::BacktrackModifiedAtom
 RakuAST::Regex::Quantifier::BlockRange
 RakuAST::Regex::SequentialConjunction

diff --git a/t/12-rakuast/regex.rakutest b/t/12-rakuast/regex.rakutest
@@ -352,8 +352,6 @@ subtest 'Quantified built-in character class matches (frugal mode)' => {
     );
     is-deeply $deparsed, '/ \d+?/', 'deparse';
 
-say $raku;
-
     match-ok "99cents", "9";
 }
 
@@ -371,16 +369,18 @@ subtest 'Quantified negated built-in character class matches (frugal mode)' => {
 }
 
 subtest 'Greedy quantifier will backtrack' => {
-    # / ^ \d+9/
+    # / ^ \d+!9/
     ast RakuAST::Regex::Sequence.new(
       RakuAST::Regex::Anchor::BeginningOfString.new,
       RakuAST::Regex::QuantifiedAtom.new(
         atom => RakuAST::Regex::CharClass::Digit.new,
-        quantifier => RakuAST::Regex::Quantifier::OneOrMore.new
+        quantifier => RakuAST::Regex::Quantifier::OneOrMore.new(
+          backtrack => RakuAST::Regex::Backtrack::Greedy
+        )
       ),
       RakuAST::Regex::Literal.new('9')
     );
-    is-deeply $deparsed, '/ ^ \d+9/', 'deparse';
+    is-deeply $deparsed, '/ ^ \d+!9/', 'deparse';
 
     match-ok "99cents", '99';
 }