Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 29 lines (17 sloc) 0.592 kb
27ad25fc »
2008-07-30 [gsoc_spectest] Added more angle bracket syntax tests. Almost done wi…
1 use v6;
2
3 use Test;
4
0477942e »
2009-04-28 some more smartlinks updated
5 # L<S05/Extensible metasyntax (C<< <...> >>)/matches any logical grapheme>
6
27ad25fc »
2008-07-30 [gsoc_spectest] Added more angle bracket syntax tests. Almost done wi…
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 my $unichar = "\c[GREEK CAPITAL LETTER ALPHA]";
20 my $combchar = "\c[LATIN CAPITAL LETTER A]\c[COMBINING ACUTE ACCENT]";
21
22 #?pugs todo 'feature'
23 ok("A" ~~ m/^<.>$/, 'ASCII');
24 ok($combchar ~~ m/^<.>$/, 'Unicode combining');
25 ok($unichar ~~ m/^<.>$/, 'Unicode');
26
7f29bc53 »
2009-08-08 [t/spec] Add vim: lines everywhere.
27
28 # vim: ft=perl6
Something went wrong with that request. Please try again.