charclass/t/perlbug.t

use strict;
## Check whether perl is buggy or not
require Test::Simple;
my $case = 0;

my $err;

my @test = (
  sub {
    my $s = 'NAME';
    ok (scalar ($s =~ /\p{InBasicLatin}/), '\p support of perl');
    ok (scalar ($s =~ /\p{InBasicLatin}+/), '\p+ support of perl');
    ok (scalar ($s =~ /^\p{InBasicLatin}+$/), '^\p+$ support of perl');
      ## perl 5.8.0 has bug??
    ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}+$/), '^\p\p+$ support of perl');
    ok (scalar ($s =~ /^\p{InBasicLatin}\p{InBasicLatin}*$/), '^\p\p*$ support of  perl');
  },1..4,
  sub {
    package foo;
    my $s = 'NAME';
    main::ok (scalar ($s =~ /\p{InBasicLatin}/), 'NSed \p support of perl');
    main::ok (scalar ($s =~ /\p{InBasicLatin}+/), 'NSed \p+ support of perl');
    main::ok (scalar ($s =~ /^\p{InBasicLatin}+$/), 'NSed ^\p+$ support of perl');
    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');
  }, 1..4,
);
$case += @test;
$case += @test;

Test::Simple->import (tests => $case);

for (1,2) {
for (@test) {&$_ if ref $_}
}

exit;
/\p{InUndefinedSet}/;
## Older perl (such as 5.6.1) cannot run if undefined
## (not defined by perl nor provided by "use"ed module) character class 
## is in use.

=head1 LICENSE

Copyright 2003, 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1; # $Date: 2004/02/14 11:27:44 $
1	use strict;
2	## Check whether perl is buggy or not
3	require Test::Simple;
4	my $case = 0;
5
6	my $err;
7
8	my @test = (
9	sub {
10	my $s = 'NAME';
11	ok (scalar ($s =~ /\p{InBasicLatin}/), '\p support of perl');
12	ok (scalar ($s =~ /\p{InBasicLatin}+/), '\p+ support of perl');
13	ok (scalar ($s =~ /^\p{InBasicLatin}+$/), '^\p+$ support of perl');
14	## 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 {
19	package foo;
20	my $s = 'NAME';
21	main::ok (scalar ($s =~ /\p{InBasicLatin}/), 'NSed \p support of perl');
22	main::ok (scalar ($s =~ /\p{InBasicLatin}+/), 'NSed \p+ support of perl');
23	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;
29	$case += @test;
30
31	Test::Simple->import (tests => $case);
32
33	for (1,2) {
34	for (@test) {&$_ if ref $_}
35	}
36
37	exit;
38	/\p{InUndefinedSet}/;
39	## Older perl (such as 5.6.1) cannot run if undefined
40	## (not defined by perl nor provided by "use"ed module) character class
41	## is in use.
42
43	=head1 LICENSE
44
45	Copyright 2003, 2007 Wakaba <w@suika.fam.cx>
46
47	This program is free software; you can redistribute it and/or
48	modify it under the same terms as Perl itself.
49
50	=cut
51
52	1; # $Date: 2004/02/14 11:27:44 $