Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 26 lines (15 sloc) 0.58 kb
94c40a8 [t] move assert.t to spec/
moritz authored
1 use v6;
2
3 use Test;
4
db209e0 @moritz fix S05-metasyntax/assertions.t
moritz authored
5 plan 4;
6
0477942 some more smartlinks updated
szabgab authored
7 # L<S05/"Extensible metasyntax (C<< <...> >>)"/indicates a code assertion:>
8
94c40a8 [t] move assert.t to spec/
moritz authored
9 =begin pod
10
11 This file was derived from the perl5 CPAN module Perl6::Rules,
12 version 0.3 (12 Apr 2004), file t/assert.t.
13
14 It has (hopefully) been, and should continue to be, updated to
15 be valid perl6.
16
17 =end pod
18
19 ok("1" ~~ m/ (\d) <?{$0 < 5}> /, '1 < 5');
20 ok("5" !~~ m/ (\d) <?{$/[*-1] < 5}>/, '5 !< 5');
21
db209e0 @moritz fix S05-metasyntax/assertions.t
moritz authored
22 ok("x254" ~~ m/x (\d+): <?{$/[*-1] < 255}> /, '254 < 255');
23 ok("x255" !~~ m/x (\d+): <?{$/[*-1] < 255}> /, '255 !< 255');
7f29bc5 [t/spec] Add vim: lines everywhere.
kyle authored
24
25 # vim: ft=perl6
Something went wrong with that request. Please try again.