/[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.2 by wakaba, Sat Feb 14 11:27:44 2004 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..3,
27  );  );
28  $case += @test;  $case += @test;
29  $case += @test;  $case += @test;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24