don't overspecify error message on bare ord

Raku · Feb 24, 2015 · d39c6dc · d39c6dc
1 parent 9394e7e
commit d39c6dc
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -552,7 +552,7 @@ throws_like { $*an_undeclared_dynvar = 42 }, X::Dynamic::NotFound;
 
 {
     my $*foo = 0;
-    throws_like { EVAL '$*foo = 1; say' }, X::Obsolete;
+    throws_like { EVAL '$*foo = 1; say' }, X::Comp::Group;
     is $*foo, 0, 'should be a compile time error';
 }
 
@@ -592,8 +592,7 @@ throws_like { $*an_undeclared_dynvar = 42 }, X::Dynamic::NotFound;
 
 # RT #114014
 {
-    throws_like { EVAL q[ ord.Cool ] }, X::Obsolete,
-        message => q[Unsupported use of bare 'ord'; in Perl 6 please use .ord if you meant $_, or use an explicit invocant or argument],
+    throws_like { EVAL q[ ord.Cool ] }, X::Comp::Group,
         'adequate error message when calling bare "ord"';
 }