Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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
5 =begin pod
6
7 This file was derived from the perl5 CPAN module Perl6::Rules,
8 version 0.3 (12 Apr 2004), file t/combchar.t.
9
10 It has (hopefully) been, and should continue to be, updated to
11 be valid perl6.
12
13 =end pod
14
15 plan 3;
16
17 if !eval('("a" ~~ /a/)') {
18 skip_rest "skipped tests - rules support appears to be missing";
19 } else {
20
21 # L<S05/Extensible metasyntax (C<< <...> >>)/matches any logical grapheme>
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.