/[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.2 by wakaba, Sat Feb 14 11:27:44 2004 UTC revision 1.3 by wakaba, Thu Jul 19 13:26:22 2007 UTC
# Line 23  my @test = ( Line 23  my @test = (
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');      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');      main::ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}*$/), 'NSed ^\p\p*$ support of perl');
26    }, 1..3,    }, 1..4,
27  );  );
28  $case += @test;  $case += @test;
29  $case += @test;  $case += @test;
# Line 42  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.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24