Add tests for RakuAST::Regex::Assertion::PredicateBlock

rakudo · Jan 15, 2023 · 935d843 · 935d843
1 parent 7b2264e
commit 935d843
Show file tree

Hide file tree

Showing 2 changed files with 56 additions and 2 deletions.
diff --git a/t/12-rakuast/TODO b/t/12-rakuast/TODO
@@ -35,7 +35,6 @@ RakuAST::Regex::Assertion::Callable
 RakuAST::Regex::Assertion::InterpolatedBlock
 RakuAST::Regex::Assertion::InterpolatedVar
 RakuAST::Regex::Assertion::Named::Args
-RakuAST::Regex::Assertion::PredicateBlock
 RakuAST::Regex::BackReference::Named
 RakuAST::Regex::BackReference::Positional
 RakuAST::Regex::Backtrack::Greedy

diff --git a/t/12-rakuast/regex-assertion.rakutest b/t/12-rakuast/regex-assertion.rakutest
@@ -2,7 +2,7 @@ use MONKEY-SEE-NO-EVAL;
 use experimental :rakuast;
 use Test;
 
-plan 21;
+plan 23;
 
 my $ast;
 my $deparsed;
@@ -358,4 +358,59 @@ subtest 'Fail assertion works' => {
     match-nok "abc";
 }
 
+subtest 'Assertion with predicate block works' => {
+    # / o <?{ True }> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::Assertion::PredicateBlock.new(
+        block => RakuAST::Block.new(
+          body => RakuAST::Blockoid.new(
+            RakuAST::StatementList.new(
+              RakuAST::Statement::Expression.new(
+                expression => RakuAST::Term::Name.new(
+                  RakuAST::Name.from-identifier("True")
+                )
+              )
+            )
+          )
+        )
+      )
+
+    );
+    is-deeply $deparsed, q:to/CODE/.chomp, 'deparse';
+/ o <?{
+    True
+}> /
+CODE
+    match-ok "foo", 'o';
+}
+
+subtest 'Negated assertion with predicate block works' => {
+    # / o <!{ False }> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Literal.new("o"),
+      RakuAST::Regex::Assertion::PredicateBlock.new(
+        negated => True,
+        block   => RakuAST::Block.new(
+          body => RakuAST::Blockoid.new(
+            RakuAST::StatementList.new(
+              RakuAST::Statement::Expression.new(
+                expression => RakuAST::Term::Name.new(
+                  RakuAST::Name.from-identifier("False")
+                )
+              )
+            )
+          )
+        )
+      )
+
+    );
+    is-deeply $deparsed, q:to/CODE/.chomp, 'deparse';
+/ o <!{
+    False
+}> /
+CODE
+    match-ok "foo", 'o';
+}
+
 # vim: expandtab shiftwidth=4