/[suikacvs]/perl/charclass/t/perlbug.t
Suika

Diff of /perl/charclass/t/perlbug.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sun Sep 7 02:52:04 2003 UTC revision 1.3 by wakaba, Thu Jul 19 13:26:22 2007 UTC
# Line 12  my @test = ( Line 12  my @test = (
12      ok (scalar ($s =~ /\p{InBasicLatin}+/), '\p+ support of perl');      ok (scalar ($s =~ /\p{InBasicLatin}+/), '\p+ support of perl');
13      ok (scalar ($s =~ /^\p{InBasicLatin}+$/), '^\p+$ support of perl');      ok (scalar ($s =~ /^\p{InBasicLatin}+$/), '^\p+$ support of perl');
14        ## perl 5.8.0 has bug??        ## perl 5.8.0 has bug??
15    },'',      ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}+$/), '^\p\p+$ support of perl');
16        ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}*$/), '^\p\p*$ support of  perl');
17      },1..4,
18    sub {    sub {
19      package foo;      package foo;
20      my $s = 'NAME';      my $s = 'NAME';
21      main::ok (scalar ($s =~ /\p{InBasicLatin}/), 'NSed \p support of perl');      main::ok (scalar ($s =~ /\p{InBasicLatin}/), 'NSed \p support of perl');
22      main::ok (scalar ($s =~ /\p{InBasicLatin}+/), 'NSed \p+ support of perl');      main::ok (scalar ($s =~ /\p{InBasicLatin}+/), 'NSed \p+ support of perl');
23      main::ok (scalar ($s =~ /^\p{InBasicLatin}+$/), 'NSed ^\p+$ support of perl');      main::ok (scalar ($s =~ /^\p{InBasicLatin}+$/), 'NSed ^\p+$ support of perl');
24    }, '','','',      main::ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}+$/), 'NSed ^\p\p+$ support of perl');
25        main::ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}*$/), 'NSed ^\p\p*$ support of perl');
26      }, 1..4,
27  );  );
28  $case += @test;  $case += @test;
29  $case += @test;  $case += @test;
# Line 38  exit; Line 42  exit;
42    
43  =head1 LICENSE  =head1 LICENSE
44    
45  Copyright 2003 Wakaba <w@suika.fam.cx>  Copyright 2003, 2007 Wakaba <w@suika.fam.cx>
46    
47  This program is free software; you can redistribute it and/or  This program is free software; you can redistribute it and/or
48  modify it under the same terms as Perl itself.  modify it under the same terms as Perl itself.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24