Added tests for RakuAST::Regex::CharClassElement::Rule

rakudo · Jan 14, 2023 · 1f4eb03 · 1f4eb03
1 parent c45c258
commit 1f4eb03
Show file tree

Hide file tree

Showing 2 changed files with 76 additions and 2 deletions.
diff --git a/t/12-rakuast/TODO b/t/12-rakuast/TODO
@@ -44,7 +44,6 @@ RakuAST::Regex::BackReference::Positional
 RakuAST::Regex::Backtrack::Greedy
 RakuAST::Regex::BacktrackModifiedAtom
 RakuAST::Regex::Block
-RakuAST::Regex::CharClassElement::Rule
 RakuAST::Regex::InternalModifier::IgnoreCase
 RakuAST::Regex::InternalModifier::IgnoreMark
 RakuAST::Regex::InternalModifier::Ratchet

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 14;
+plan 19;
 
 my $ast;
 my $deparsed;
@@ -263,4 +263,79 @@ subtest 'Multiple character property assertion works' => {
     match-ok "Fooa9cbar", 'o';
 }
 
+subtest 'Character property with expression assertion works' => {
+    # / <+:Block("Basic Latin")> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Assertion::CharClass.new(
+        RakuAST::Regex::CharClassElement::Property.new(
+          property => 'Block',
+          predicate => RakuAST::Circumfix::Parentheses.new(
+            RakuAST::StrLiteral.new("Basic Latin")
+          ),
+        )
+      )
+    );
+    is-deeply $deparsed, '/ <+:Block("Basic Latin")> /', 'deparse';
+    match-ok "🦋:Fooa9cbar", ':';
+}
+
+subtest 'Negated character property with expression assertion works' => {
+    # / <-:Block("Basic Latin")> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Assertion::CharClass.new(
+        RakuAST::Regex::CharClassElement::Property.new(
+          negated  => True,
+          property => 'Block',
+          predicate => RakuAST::Circumfix::Parentheses.new(
+            RakuAST::StrLiteral.new("Basic Latin")
+          ),
+        )
+      )
+    );
+    is-deeply $deparsed, '/ <-:Block("Basic Latin")> /', 'deparse';
+    match-ok ":🦋Fooa9cbar", '🦋';
+}
+
+subtest 'Rule assertion works' => {
+    # / <+alpha> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Assertion::CharClass.new(
+        RakuAST::Regex::CharClassElement::Rule.new(
+          name => "alpha"
+        )
+      )
+    );
+    is-deeply $deparsed, '/ <+alpha> /', 'deparse';
+    match-ok "🦋:Fooa9cbar", 'F';
+}
+
+subtest 'Negated rule assertion works' => {
+    # / <-alpha> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Assertion::CharClass.new(
+        RakuAST::Regex::CharClassElement::Rule.new(
+          name => "alpha", :negated
+        )
+      )
+    );
+    is-deeply $deparsed, '/ <-alpha> /', 'deparse';
+    match-ok "Fooa🦋:9cbar", '🦋';
+}
+
+subtest 'Multiple rule assertions work' => {
+    # / <+alpha -xdigit> /
+    ast RakuAST::Regex::Sequence.new(
+      RakuAST::Regex::Assertion::CharClass.new(
+        RakuAST::Regex::CharClassElement::Rule.new(
+          name => "alpha"
+        ),
+        RakuAST::Regex::CharClassElement::Rule.new(
+          name => "xdigit", :negated
+        )
+      )
+    );
+    is-deeply $deparsed, '/ <+alpha -xdigit> /', 'deparse';
+    match-ok "Fooa🦋:9cbar", 'o';
+}
+
 # vim: expandtab shiftwidth=4