Replace some more eval-dies-ok with throws-like

S05-metasyntax/changed.t

@@ -30,9 +30,9 @@ plan 12;
 
 # The \A, \Z, and \z metacharacters are gone.
 {
-    eval-dies-ok('/\A/', '\\A is gone');
-    eval-dies-ok('/\Z/', '\\Z is gone');
-    eval-dies-ok('/\z/', '\\z is gone');
+    throws-like '/\A/', X::Obsolete, '\\A is gone';
+    throws-like '/\Z/', X::Obsolete, '\\Z is gone';
+    throws-like '/\z/', X::Obsolete, '\\z is gone';
 }
 
 # vim: ft=perl6

S05-substitution/subst.t

@@ -232,8 +232,10 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
 }
 
 {
-    eval-dies-ok '$_ = "a"; s:unkonwn/a/b/', 's/// dies on unknown adverb';
-    eval-dies-ok '$_ = "a"; s:overlap/a/b/', ':overlap does not make sense on s///';
+    throws-like '$_ = "a"; s:unkonwn/a/b/', X::Syntax::Regex::Adverb,
+        's/// dies on unknown adverb';
+    throws-like '$_ = "a"; s:overlap/a/b/', X::Syntax::Regex::Adverb,
+        ':overlap does not make sense on s///';
 }
 
 # note that when a literal is passed to 'given', $_ is bound read-only
@@ -394,7 +396,7 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
 
 {
     #?niecza todo "Niecza works when it shouldn't?"
-    eval-dies-ok q[ $_ = "abc"; my $i = 1; s:i($i)/a/b/ ],
+    throws-like q[ $_ = "abc"; my $i = 1; s:i($i)/a/b/ ], X::Value::Dynamic,
         'Value of :i must be known at compile time';
     #?rakudo todo 'be smarter about constant detection'
     eval-lives-ok q[ $_ = "abc";s:i(1)/a/b/ ],

S05-transliteration/trans.t

@@ -232,7 +232,7 @@ is(" <>&".trans(:c, :s, ([' ', '>', '&'] =>
 }
 
 # y/// is dead
-eval-dies-ok('$_ = "axbycz"; y/abc/def/', 'y/// does not exist any longer');
+throws-like '$_ = "axbycz"; y/abc/def/', X::Obsolete, 'y/// does not exist any longer';
 
 # RT #71088
 {

S06-signature/errors.t

@@ -13,8 +13,8 @@ These are misc. sub argument errors.
 sub bar (*@x) { 1 }   #OK not used
 lives-ok { bar(reverse(1,2)) }, 'slurpy args are not bounded (2)';  
 
-eval-dies-ok 'sub quuux ($?VERSION) { ... }',
-             'parser rejects magicals as args (1)';
+throws-like 'sub quuux ($?VERSION) { ... }', X::Parameter::Twigil,
+    'parser rejects magicals as args (1)';
 eval-lives-ok 'sub quuuux ($!) { ... }', 'but $! is OK';
 
 # RT #64344