Normalize use of indicators in TAP output

rakudo · Jan 8, 2023 · 9192900 · 9192900
1 parent b6a3abe
commit 9192900
Show file tree

Hide file tree

Showing 8 changed files with 8 additions and 8 deletions.
diff --git a/t/12-rakuast/call.rakutest b/t/12-rakuast/call.rakutest
@@ -6,7 +6,7 @@ plan 18;
 
 my $ast;
 my $deparsed;
-my @type = <AST string AST string>;
+my @type = <AST Str AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $node.DEPARSE;

diff --git a/t/12-rakuast/circumfix.rakutest b/t/12-rakuast/circumfix.rakutest
@@ -6,7 +6,7 @@ plan 7;
 
 my $ast;
 my $deparsed;
-my @type = <AST string>;
+my @type = <AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $ast.DEPARSE;

diff --git a/t/12-rakuast/heredocs.rakutest b/t/12-rakuast/heredocs.rakutest
@@ -9,7 +9,7 @@ plan 13;
 
 my $ast;
 my $deparsed;
-my @type = <AST string>;
+my @type = <AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $ast.DEPARSE;

diff --git a/t/12-rakuast/literals.rakutest b/t/12-rakuast/literals.rakutest
@@ -18,7 +18,7 @@ sub ast-ok(
 
         is-deeply $deparsed, $string, 'deparse';
         is-deeply EVAL($ast), $value, 'AST';
-        is-deeply EVAL($deparsed), $value, 'string';
+        is-deeply EVAL($deparsed), $value, 'Str';
     }
 }
 

diff --git a/t/12-rakuast/meta-operators.rakutest b/t/12-rakuast/meta-operators.rakutest
@@ -6,7 +6,7 @@ plan 5;
 
 my $ast;
 my $deparsed;
-my @type = <AST string>;
+my @type = <AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $node.DEPARSE;

diff --git a/t/12-rakuast/operators.rakutest b/t/12-rakuast/operators.rakutest
@@ -6,7 +6,7 @@ plan 28;
 
 my $ast;
 my $deparsed;
-my @type = |<AST string> xx *;
+my @type = |<AST Str> xx *;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $node.DEPARSE;

diff --git a/t/12-rakuast/pair.rakutest b/t/12-rakuast/pair.rakutest
@@ -6,7 +6,7 @@ plan 8;
 
 my $ast;
 my $deparsed;
-my @type = <AST string>;
+my @type = <AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $node.DEPARSE;

diff --git a/t/12-rakuast/strings.rakutest b/t/12-rakuast/strings.rakutest
@@ -9,7 +9,7 @@ plan 13;
 
 my $ast;
 my $deparsed;
-my @type = <AST string>;
+my @type = <AST Str>;
 sub ast(RakuAST::Node:D $node --> Nil) {
     $ast      := $node;
     $deparsed := $node.DEPARSE;