Replace some eval-dies-ok with throws-like in S32-*/*

Author: usev6

S32-list/end.t

@@ -58,6 +58,7 @@ is  3.end, 0,  'Scalars look like wrapped in a single-item list';
 
 # test some errors
 {
-    eval-dies-ok ' end() ', '... end() dies without an argument';
+    throws-like ' end() ', X::TypeCheck::Argument,
+        '... end() dies without an argument';
 }
 #vim: ft=perl6

S32-num/pi.t

@@ -18,7 +18,7 @@ my $PI = 3.141592e0;
 
 is_approx(EVAL("pi"), $PI, "pi imported by default");
 
-eval-dies-ok("3 + pi()", "pi() is not a sub");
+throws-like "3 + pi()", X::Undeclared, "pi() is not a sub";
 
 is_approx(EVAL("3 + pi"), $PI+3, "3+pi, as a bareword");
 

S32-str/pos.t

@@ -8,7 +8,7 @@ plan 2;
 
 my $str = 'moose';
 $str ~~ /oo/;
-eval-dies-ok('$str.pos', 'Str.pos superseeded by $/.to');
+throws-like '$str.pos', X::Method::NotFound, 'Str.pos superseeded by $/.to';
 
 is($/.to, 3, '$/.to works');
 

S32-trig/e.t

@@ -12,7 +12,7 @@ Basic tests for trigonometric functions.
 my $e = e;
 
 is(e      , $e,    "e, as a value");
-eval-dies-ok('e()', "e(), dies as a sub");
+throws-like 'e()', X::Undeclared, "e(), dies as a sub";
 is(1 + e,   $e+1, "1+e, as a value");
 is(e + 1,   $e+1, "e+1, as a value");
 is(1 + e +0, $e+1, "1 + e +0, as a value");