diff --git a/S05-capture/array-alias.t b/S05-capture/array-alias.t
index 3c1d9e8fbe..7917248ed7 100644
--- a/S05-capture/array-alias.t
+++ b/S05-capture/array-alias.t
@@ -16,11 +16,6 @@ be valid perl6.
 
 plan 45;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-}
-
 #?pugs emit force_todo 1..12, 14..45;
 
 ok("  a b\tc" ~~ m/@<chars>=( \s+ \S+ )+/, 'Named simple array capture');
diff --git a/S05-capture/hash.t b/S05-capture/hash.t
index 2f37a4efd1..d38a025a6d 100644
--- a/S05-capture/hash.t
+++ b/S05-capture/hash.t
@@ -10,11 +10,6 @@ version 0.3 (12 Apr 2004), file t/hash_cap.t.
 
 plan 116;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-} 
-
 #?pugs emit force_todo(1..49,51..99,101..108,111..116);
 
 # L<S05/Hash aliasing/An alias can also be specified using a hash>
@@ -163,5 +158,4 @@ ok(%bases.keys == 3, 'No other bases');
 is("$1", "aca", 'Trailing aca');
 
 
-
 # vim: ft=perl6
diff --git a/S05-grammar/example.t b/S05-grammar/example.t
index 0060d43819..4e3f799ffe 100644
--- a/S05-grammar/example.t
+++ b/S05-grammar/example.t
@@ -20,11 +20,6 @@ Use rules from a grammar.
 
 =end pod
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-}
-
 my $content = '
     <tr>
     <td align="center" width="8%">8:30</td>
diff --git a/S05-mass/stdrules.t b/S05-mass/stdrules.t
index 168df572ed..a3eb691b44 100644
--- a/S05-mass/stdrules.t
+++ b/S05-mass/stdrules.t
@@ -16,11 +16,6 @@ be valid perl6.
 
 plan 183;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-}
-
 #?pugs emit force_todo(9,12,13,15,16);
 
 ok("abc1_2" ~~ m/^ <ident> $/, '<ident>');
diff --git a/S05-metachars/newline.t b/S05-metachars/newline.t
index 033d1b453b..519b069ce7 100644
--- a/S05-metachars/newline.t
+++ b/S05-metachars/newline.t
@@ -12,10 +12,6 @@ plan 15;
 
 # L<S05/Changed metacharacters/"\n now matches a logical (platform independent) newline">
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-} else {
-
 ok("\n" ~~ m/\n/, '\n');
 
 ok("\o15\o12" ~~ m/\n/, 'CR/LF');
@@ -39,7 +35,5 @@ ok(!( "\x2028" ~~ m/\N/ ), 'not LINE SEP');
 
 ok("abc" ~~ m/\N/, 'abc');
 
-}
-
 
 # vim: ft=perl6
diff --git a/S05-metasyntax/combchar.t b/S05-metasyntax/combchar.t
index 6710aaec47..4c6f20a1f3 100644
--- a/S05-metasyntax/combchar.t
+++ b/S05-metasyntax/combchar.t
@@ -16,10 +16,6 @@ be valid perl6.
 
 plan 3;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-} else {
-
 my $unichar = "\c[GREEK CAPITAL LETTER ALPHA]";
 my $combchar = "\c[LATIN CAPITAL LETTER A]\c[COMBINING ACUTE ACCENT]";
 
@@ -28,7 +24,5 @@ ok("A" ~~ m/^<.>$/, 'ASCII');
 ok($combchar ~~ m/^<.>$/, 'Unicode combining');
 ok($unichar ~~ m/^<.>$/, 'Unicode');
 
-}
-
 
 # vim: ft=perl6