[S05] remove some pre-fudge relicts noted by sorear++

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

Hide file tree

Showing 4 changed files with 0 additions and 21 deletions.
diff --git a/S05-capture/alias.t b/S05-capture/alias.t
@@ -14,11 +14,6 @@ be valid perl6.
 
 plan 26;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-} 
-
 #?pugs emit force_todo(3,6,7,9,10,11,12,15,16,17,18,19,20,21,22,23);
 
 # L<S05/Named scalar aliasing to subpatterns/If a named scalar alias is applied>

diff --git a/S05-metasyntax/charset.t b/S05-metasyntax/charset.t
@@ -14,10 +14,6 @@ be valid perl6.
 
 plan 28;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-} else {
-
 # Broken:
 # L<S05/Extensible metasyntax (C<< <...> >>)/"A leading [ ">
 
@@ -74,8 +70,6 @@ ok ~$! ~~ / 'Unsupported use of - as character range; in Perl 6 please use ..'/,
     "STD error message for - as character range";
 }
 
-}
-
 done;
 
 # vim: ft=perl6
diff --git a/S05-metasyntax/lookaround.t b/S05-metasyntax/lookaround.t
@@ -10,11 +10,6 @@ version 0.3 (12 Apr 2004), file t/lookaround.t.
 
 plan 10;
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-}
-
 #?pugs emit force_todo(1,4,9,10);
 
 # L<S05/Extensible metasyntax (C<< <...> >>)/The special named assertions include:>

diff --git a/S05-metasyntax/prior.t b/S05-metasyntax/prior.t
@@ -18,11 +18,6 @@ plan 11;
 
 # so rule prior matches a constant substring
 
-if !eval('("a" ~~ /a/)') {
-  skip_rest "skipped tests - rules support appears to be missing";
-  exit;
-} 
-
 ok("A" !~~ m/<.prior>/, 'No prior successful match');
 
 ok("A" ~~ m/<[A..Z]>/, 'Successful match');