Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 33 lines (20 sloc) 0.682 kB
27ad25f [gsoc_spectest] Added more angle bracket syntax tests. Almost done wi…
Auzon authored
1 use v6;
2
3 use Test;
4
0477942 some more smartlinks updated
szabgab authored
5 # L<S05/Extensible metasyntax (C<< <...> >>)/matches any logical grapheme>
6
27ad25f [gsoc_spectest] Added more angle bracket syntax tests. Almost done wi…
Auzon authored
7 =begin pod
8
9 This file was derived from the perl5 CPAN module Perl6::Rules,
10 version 0.3 (12 Apr 2004), file t/combchar.t.
11
12 It has (hopefully) been, and should continue to be, updated to
13 be valid perl6.
14
15 =end pod
16
17 plan 3;
18
19 if !eval('("a" ~~ /a/)') {
20 skip_rest "skipped tests - rules support appears to be missing";
21 } else {
22
23 my $unichar = "\c[GREEK CAPITAL LETTER ALPHA]";
24 my $combchar = "\c[LATIN CAPITAL LETTER A]\c[COMBINING ACUTE ACCENT]";
25
26 #?pugs todo 'feature'
27 ok("A" ~~ m/^<.>$/, 'ASCII');
28 ok($combchar ~~ m/^<.>$/, 'Unicode combining');
29 ok($unichar ~~ m/^<.>$/, 'Unicode');
30
31 }
32
Something went wrong with that request. Please try again.