charclass/t/xml.t

use strict;

require Test::Simple;
my $case = 0;

my $err;

my @test = (
  sub {
    eval q{use Char::Class::XML qw/InXMLNameChar/; 1} or die $@;
    my $s = 'NAME';
    ok (scalar ($s =~ /\p{InXMLNameChar}/), '{NameChar}');
    ok (scalar ($s =~ /\p{InXMLNameChar}+/), '{NameChar}+');
    ok (scalar ($s =~ /^\p{InXMLNameChar}+$/), '^{NameChar}+$');
  }, '','',
  sub {
    package foo;
    eval q{use Char::Class::XML qw/InXML_NameStartChar/; 1} or die $@;
    my $s = 'NAME';
    main::ok (scalar ($s =~ /\p{InXML_NameStartChar}/), '{foo::NameStartChar}');
    main::ok (scalar ($s =~ /\p{InXML_NameStartChar}+/), '{foo::NameStartChar}+');
    main::ok (scalar ($s =~ /^\p{InXML_NameStartChar}+$/), '^{foo::NameStartChar}+$');
  }, '','',
  sub {
    eval q{use Char::Class::XML qw/InXMLNCNameChar InXML_NCNameStartChar/; 1}
      or die $@;
    my $s = 'NAME';
    my $ncname = qr/\p{InXML_NCNameStartChar}\p{InXMLNCNameChar}*/;
    ok (scalar ($s =~ /^$ncname$/), 'ncname check');
    ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
    
    $s = qq(NAME\x{4E00}\x{8123});
    ok (scalar ($s =~ /^$ncname$/), 'ncname check');
    ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
    
    $s = qq(foo:bar);
    ok (!scalar ($s =~ /^$ncname$/), 'ncname check');
    ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
  },'','','','','',
);
$case += @test;
$case += @test;

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

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


=head1 LICENSE

Copyright 2003 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: 2003/08/05 12:20:00 $
1	wakaba	1.1	use strict;
2
3			require Test::Simple;
4			my $case = 0;
5
6			my $err;
7
8			my @test = (
9			sub {
10			eval q{use Char::Class::XML qw/InXMLNameChar/; 1} or die $@;
11			my $s = 'NAME';
12			ok (scalar ($s =~ /\p{InXMLNameChar}/), '{NameChar}');
13			ok (scalar ($s =~ /\p{InXMLNameChar}+/), '{NameChar}+');
14			ok (scalar ($s =~ /^\p{InXMLNameChar}+$/), '^{NameChar}+$');
15			}, '','',
16			sub {
17			package foo;
18			eval q{use Char::Class::XML qw/InXML_NameStartChar/; 1} or die $@;
19			my $s = 'NAME';
20			main::ok (scalar ($s =~ /\p{InXML_NameStartChar}/), '{foo::NameStartChar}');
21			main::ok (scalar ($s =~ /\p{InXML_NameStartChar}+/), '{foo::NameStartChar}+');
22			main::ok (scalar ($s =~ /^\p{InXML_NameStartChar}+$/), '^{foo::NameStartChar}+$');
23			}, '','',
24			sub {
25			eval q{use Char::Class::XML qw/InXMLNCNameChar InXML_NCNameStartChar/; 1}
26			or die $@;
27			my $s = 'NAME';
28			my $ncname = qr/\p{InXML_NCNameStartChar}\p{InXMLNCNameChar}*/;
29			ok (scalar ($s =~ /^$ncname$/), 'ncname check');
30			ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
31
32			$s = qq(NAME\x{4E00}\x{8123});
33			ok (scalar ($s =~ /^$ncname$/), 'ncname check');
34			ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
35
36			$s = qq(foo:bar);
37			ok (!scalar ($s =~ /^$ncname$/), 'ncname check');
38			ok (scalar ($s =~ /^$ncname(?::$ncname)?$/), 'qname check');
39			},'','','','','',
40			);
41			$case += @test;
42			$case += @test;
43
44			Test::Simple->import (tests => $case);
45
46			for (1,2) {
47			for (@test) {&$_ if ref $_}
48			}
49
50
51			=head1 LICENSE
52
53			Copyright 2003 Wakaba <w@suika.fam.cx>
54
55			This program is free software; you can redistribute it and/or
56			modify it under the same terms as Perl itself.
57
58			=cut
59
60			1; # $Date: 2003/08/05 12:20:00 $