Move Unicode::Collate from ext/ to dist/
[perl.git] / cpan / Unicode-Collate / t / version.t
1
2 BEGIN {
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     if ($ENV{PERL_CORE}) {
9         chdir('t') if -d 't';
10         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
11     }
12 }
13
14 use Test;
15 BEGIN { plan tests => 17 };
16
17 use strict;
18 use warnings;
19 use Unicode::Collate;
20
21 ok(1);
22
23 #########################
24
25 # Fix me when UCA and/or keys.txt is upgraded.
26 my $UCA_Version = "14";
27 my $Base_Unicode_Version = "4.1.0";
28 my $Key_Version = "3.1.1";
29
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);
34
35 my $Collator = Unicode::Collate->new(
36   table => 'keys.txt',
37   normalization => undef,
38 );
39
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);
46
47 my $UndefTable = Unicode::Collate->new(
48   table => undef,
49   normalization => undef,
50 );
51
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");
58