3 unless ("A" eq pack('U', 0x41)) {
4 print "1..0 # Unicode::Collate " .
5 "cannot stringify a Unicode code point\n";
10 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
15 BEGIN { plan tests => 17 };
23 #########################
25 # Fix me when UCA and/or keys.txt is upgraded.
26 my $UCA_Version = "22";
27 my $Base_Unicode_Version = "6.0.0";
28 my $Key_Version = "3.1.1";
30 ok(Unicode::Collate::UCA_Version, $UCA_Version);
31 ok(Unicode::Collate->UCA_Version, $UCA_Version);
32 ok(Unicode::Collate::Base_Unicode_Version, $Base_Unicode_Version);
33 ok(Unicode::Collate->Base_Unicode_Version, $Base_Unicode_Version);
35 my $Collator = Unicode::Collate->new(
37 normalization => undef,
40 ok($Collator->UCA_Version, $UCA_Version);
41 ok($Collator->UCA_Version(), $UCA_Version);
42 ok($Collator->Base_Unicode_Version, $Base_Unicode_Version);
43 ok($Collator->Base_Unicode_Version(), $Base_Unicode_Version);
44 ok($Collator->version, $Key_Version);
45 ok($Collator->version(), $Key_Version);
47 my $UndefTable = Unicode::Collate->new(
49 normalization => undef,
52 ok($UndefTable->UCA_Version, $UCA_Version);
53 ok($UndefTable->UCA_Version(), $UCA_Version);
54 ok($UndefTable->Base_Unicode_Version, $Base_Unicode_Version);
55 ok($UndefTable->Base_Unicode_Version(), $Base_Unicode_Version);
56 ok($UndefTable->version, "unknown");
57 ok($UndefTable->version(), "unknown");