Add deparsing / tests for RakuAST::Postfix::Power

rakudo · Jan 12, 2023 · 1b5b575 · 1b5b575
1 parent 6974696
commit 1b5b575
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 2 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -683,6 +683,10 @@ class RakuAST::Deparse {
         $ast.operator
     }
 
+    multi method deparse(RakuAST::Postfix::Power:D $ast --> Str:D) {
+        $ast.power.trans('-0123456789' => '⁻⁰¹²³⁴⁵⁶⁷⁸⁹')
+    }
+
     multi method deparse(RakuAST::Prefix:D $ast --> Str:D) {
         $ast.operator
     }

diff --git a/t/12-rakuast/TODO b/t/12-rakuast/TODO
@@ -30,7 +30,6 @@ RakuAST::Origin
 RakuAST::Origin::Match
 RakuAST::Origin::Source
 RakuAST::ParameterDefaultThunk
-RakuAST::Postfix::Power
 RakuAST::QuoteWordsAtom
 RakuAST::QuotedMatchConstruct
 RakuAST::Regex::Anchor::BeginningOfLine

diff --git a/t/12-rakuast/operators.rakutest b/t/12-rakuast/operators.rakutest
@@ -2,7 +2,7 @@ use MONKEY-SEE-NO-EVAL;
 use experimental :rakuast;
 use Test;
 
-plan 29;
+plan 31;
 
 my $ast;
 my $deparsed;
@@ -154,6 +154,30 @@ subtest 'Application of a prefix operator to a literal (2)' => {
       for EVAL($ast), EVAL($deparsed);
 }
 
+subtest 'Application of a positive power postfix operator' => {
+    # 3²²
+    ast RakuAST::ApplyPostfix.new(
+      operand => RakuAST::IntLiteral.new(3),
+      postfix => RakuAST::Postfix::Power.new(22)
+    );
+
+    is-deeply $deparsed, '3²²', 'deparse';
+    is-deeply $_, 31381059609, @type[$++]
+      for EVAL($ast), EVAL($deparsed);
+}
+
+subtest 'Application of a negative power postfix operator' => {
+    # 4⁻²
+    ast RakuAST::ApplyPostfix.new(
+      operand => RakuAST::IntLiteral.new(4),
+      postfix => RakuAST::Postfix::Power.new(-2)
+    );
+
+    is-deeply $deparsed, '4⁻²', 'deparse';
+    is-deeply $_, 0.0625, @type[$++]
+      for EVAL($ast), EVAL($deparsed);
+}
+
 subtest 'Application of a (user-defined) postfix operator to a literal' => {
     sub postfix:<!>($n) {
         [*] 1..$n