1
2BEGIN {
3    unless ("A" eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Collate " .
5	    "cannot stringify a Unicode code point\n";
6	exit 0;
7    }
8}
9
10BEGIN {
11    if ($ENV{PERL_CORE}) {
12        chdir('t') if -d 't';
13        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17use Test;
18BEGIN { plan tests => 17 };
19
20use strict;
21use warnings;
22use Unicode::Collate;
23
24ok(1);
25
26#########################
27
28# Fix me when UCA and/or keys.txt is upgraded.
29my $UCA_Version = "11";
30my $Base_Unicode_Version = "4.0";
31my $Key_Version = "3.1.1";
32
33ok(Unicode::Collate::UCA_Version, $UCA_Version);
34ok(Unicode::Collate->UCA_Version, $UCA_Version);
35ok(Unicode::Collate::Base_Unicode_Version, $Base_Unicode_Version);
36ok(Unicode::Collate->Base_Unicode_Version, $Base_Unicode_Version);
37
38my $Collator = Unicode::Collate->new(
39  table => 'keys.txt',
40  normalization => undef,
41);
42
43ok($Collator->UCA_Version,   $UCA_Version);
44ok($Collator->UCA_Version(), $UCA_Version);
45ok($Collator->Base_Unicode_Version,   $Base_Unicode_Version);
46ok($Collator->Base_Unicode_Version(), $Base_Unicode_Version);
47ok($Collator->version,   $Key_Version);
48ok($Collator->version(), $Key_Version);
49
50my $UndefTable = Unicode::Collate->new(
51  table => undef,
52  normalization => undef,
53);
54
55ok($UndefTable->UCA_Version,   $UCA_Version);
56ok($UndefTable->UCA_Version(), $UCA_Version);
57ok($UndefTable->Base_Unicode_Version,   $Base_Unicode_Version);
58ok($UndefTable->Base_Unicode_Version(), $Base_Unicode_Version);
59ok($UndefTable->version,   "unknown");
60ok($UndefTable->version(), "unknown");
61
62