[Test] do not count dying will Null PMC access as a success

rakudo · Oct 5, 2011 · 3d67ff2 · 3d67ff2
1 parent 545638a
commit 3d67ff2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Test.pm b/lib/Test.pm
@@ -269,7 +269,7 @@ multi sub eval_dies_ok(Str $code, $reason) {
     my $ee = eval_exception($code);
     if defined $ee {
         # XXX no regexes yet in nom
-        my $bad_death = 0; #"$ee" ~~ / ^ 'Null PMC access ' /;
+        my $bad_death = $ee.Str.index('Null PMC access ').defined;
         if $bad_death {
             diag "wrong way to die: '$ee'";
         }