Simplify boilerplate for RakUAST tests

Since "use v6.e.PREVIEW" now implies availability of RakuAST classes and we will get to that language version eventually, we might as well set it to that language version now. Also, "use Test" implies "use MONKEY", so we don't need that either. Also fix Multi-dimensional hash indexing test to 6.e semantics.
rakudo · Mar 5, 2023 · 6c035ff · 6c035ff
1 parent 003c775
commit 6c035ff
Show file tree

Hide file tree

Showing 30 changed files with 31 additions and 59 deletions.
diff --git a/t/12-rakuast/call-method.rakutest b/t/12-rakuast/call-method.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 15;

diff --git a/t/12-rakuast/call-name.rakutest b/t/12-rakuast/call-name.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 8;

diff --git a/t/12-rakuast/circumfix.rakutest b/t/12-rakuast/circumfix.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 7;

diff --git a/t/12-rakuast/code.rakutest b/t/12-rakuast/code.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 12;

diff --git a/t/12-rakuast/contextualizer.rakutest b/t/12-rakuast/contextualizer.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 7;

diff --git a/t/12-rakuast/errors.rakutest b/t/12-rakuast/errors.rakutest
@@ -1,4 +1,4 @@
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 1;

diff --git a/t/12-rakuast/heredocs.rakutest b/t/12-rakuast/heredocs.rakutest
@@ -1,8 +1,7 @@
 # NOTE: if you're adding / adapting tests here, you probably want to do
 #       the same in t/12-rakuast/strings.t
 
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 12;

diff --git a/t/12-rakuast/label.rakutest b/t/12-rakuast/label.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 18; # Do not change this file to done-testing

diff --git a/t/12-rakuast/literals.rakutest b/t/12-rakuast/literals.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 9;

diff --git a/t/12-rakuast/meta-operators.rakutest b/t/12-rakuast/meta-operators.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 5;

diff --git a/t/12-rakuast/name.rakutest b/t/12-rakuast/name.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 6;

diff --git a/t/12-rakuast/nqp.rakutest b/t/12-rakuast/nqp.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 4;

diff --git a/t/12-rakuast/operators.rakutest b/t/12-rakuast/operators.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 31;
@@ -375,7 +374,7 @@ subtest 'Multi-dimensional hash indexing' => {
     );
 
     is-deeply $deparsed, '%h{"y"; "a"}', 'deparse';
-    is-deeply $_, (3,), @type[$++]
+    is-deeply $_, 3, @type[$++]
       for EVAL($ast), EVAL($deparsed);
 }
 

diff --git a/t/12-rakuast/origins.rakutest b/t/12-rakuast/origins.rakutest
@@ -1,4 +1,4 @@
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use nqp;
 use NQPP6QRegex:from<NQP>;
 use NQPHLL:from<NQP>;

diff --git a/t/12-rakuast/package.rakutest b/t/12-rakuast/package.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 12;

diff --git a/t/12-rakuast/pair.rakutest b/t/12-rakuast/pair.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 8;

diff --git a/t/12-rakuast/regex-assertion.rakutest b/t/12-rakuast/regex-assertion.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 25;

diff --git a/t/12-rakuast/regex-charclass.rakutest b/t/12-rakuast/regex-charclass.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 5;

diff --git a/t/12-rakuast/regex-substitution.rakutest b/t/12-rakuast/regex-substitution.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 7;

diff --git a/t/12-rakuast/regex.rakutest b/t/12-rakuast/regex.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 55;

diff --git a/t/12-rakuast/signature.rakutest b/t/12-rakuast/signature.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 15;

diff --git a/t/12-rakuast/statement-mods.rakutest b/t/12-rakuast/statement-mods.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 14;

diff --git a/t/12-rakuast/statement-phaser.rakutest b/t/12-rakuast/statement-phaser.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 32; # Do not change this file to done-testing

diff --git a/t/12-rakuast/statement-prefix.rakutest b/t/12-rakuast/statement-prefix.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 14;

diff --git a/t/12-rakuast/statement.rakutest b/t/12-rakuast/statement.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 27; # Do not change this file to done-testing

diff --git a/t/12-rakuast/strings.rakutest b/t/12-rakuast/strings.rakutest
@@ -1,8 +1,7 @@
 # NOTE: if you're adding / adapting tests here, you probably want to do
 #       the same in t/12-rakuast/heredocs.t
 
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 13;

diff --git a/t/12-rakuast/stubs.rakutest b/t/12-rakuast/stubs.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 6;

diff --git a/t/12-rakuast/subset.rakutest b/t/12-rakuast/subset.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 7;

diff --git a/t/12-rakuast/terms.rakutest b/t/12-rakuast/terms.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 13;

diff --git a/t/12-rakuast/var.rakutest b/t/12-rakuast/var.rakutest
@@ -1,5 +1,4 @@
-use MONKEY-SEE-NO-EVAL;
-use experimental :rakuast;
+use v6.e.PREVIEW;
 use Test;
 
 plan 46;