Make tests less language name specific

Raku · Jan 26, 2020 · 2a90b8d · 2a90b8d
1 parent 91928e0
commit 2a90b8d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/S02-types/array.t b/S02-types/array.t
@@ -253,7 +253,7 @@ my @array2 = ("test", 1, Mu);
 
   throws-like '@arr[-2]',
     X::Obsolete,
-    message => 'Unsupported use of a negative -2 subscript to index from the end; in Perl 6 please use a function such as *-2',
+    message => /^ 'Unsupported use of a negative -2 subscript to index from the end;'/,
     "readonly accessing [-2] of normal array throws X::Obsolete and is fatal";
   throws-like { @arr[ $minus_one ] },
     X::OutOfRange,

diff --git a/S05-metasyntax/charset.t b/S05-metasyntax/charset.t
@@ -86,7 +86,8 @@ ok 'b' ~~ /<[. .. b]>/, 'weird char class matches at least its end point';
 # RT #69682
 {
 try { EVAL "/<[a-z]>/"; }
-ok ~$! ~~ / 'Unsupported use of - as character range; in Perl 6 please use ..'/,
+# TODO Replace when the actual error message is changed.
+ok ~$! ~~ / 'Unsupported use of - as character range; in '/,
     "STD error message for - as character range";
 }