fix S05-metasyntax/assertions.t

Raku · Mar 30, 2012 · db209e0 · db209e0
1 parent 6fb747c
commit db209e0
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/S05-metasyntax/assertions.t b/S05-metasyntax/assertions.t
@@ -2,6 +2,8 @@ use v6;
 
 use Test;
 
+plan 4;
+
 # L<S05/"Extensible metasyntax (C<< <...> >>)"/indicates a code assertion:>
 
 =begin pod
@@ -17,7 +19,7 @@ be valid perl6.
 ok("1"       ~~ m/ (\d) <?{$0 < 5}> /,           '1 < 5');
 ok("5"      !~~ m/ (\d) <?{$/[*-1] < 5}>/,       '5 !< 5');
 
-ok(" x 254"  ~~ m/x (\d+): <?{$/[*-1] < 255}> /, '254 < 255');
-ok(" x 255" !~~ m/x (\d+): <?{$/[*-1] < 255}> /, '255 !< 255');
+ok("x254"    ~~ m/x (\d+): <?{$/[*-1] < 255}> /, '254 < 255');
+ok("x255"   !~~ m/x (\d+): <?{$/[*-1] < 255}> /, '255 !< 255');
 
 # vim: ft=perl6