remove more pre-fudge cruft

Raku · Feb 16, 2011 · ecfd67a · ecfd67a
1 parent c2b89fe
commit ecfd67a
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 33 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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