Update Unicode-Collate to CPAN version 1.27
[perl.git] / cpan / Unicode-Collate / t / version.t
1
2 BEGIN {
3     unless ('A' eq pack('U', 0x41)) {
4         print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
5         exit 0;
6     }
7     unless (0x41 == unpack('U', 'A')) {
8         print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
9         exit 0;
10     }
11     if ($ENV{PERL_CORE}) {
12         chdir('t') if -d 't';
13         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14     }
15 }
16
17 use strict;
18 use warnings;
19 BEGIN { $| = 1; print "1..17\n"; }
20 my $count = 0;
21 sub ok ($;$) {
22     my $p = my $r = shift;
23     if (@_) {
24         my $x = shift;
25         $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
26     }
27     print $p ? "ok" : "not ok", ' ', ++$count, "\n";
28 }
29
30 use Unicode::Collate;
31
32 ok(1);
33
34 #########################
35
36 # Fix me when UCA and/or keys.txt is upgraded.
37 my $UCA_Version = "36";
38 my $Base_Unicode_Version = "10.0.0";
39 my $Key_Version = "3.1.1";
40
41 ok(Unicode::Collate::UCA_Version, $UCA_Version);
42 ok(Unicode::Collate->UCA_Version, $UCA_Version);
43 ok(Unicode::Collate::Base_Unicode_Version, $Base_Unicode_Version);
44 ok(Unicode::Collate->Base_Unicode_Version, $Base_Unicode_Version);
45
46 my $Collator = Unicode::Collate->new(
47   table => 'keys.txt',
48   normalization => undef,
49 );
50
51 ok($Collator->UCA_Version,   $UCA_Version);
52 ok($Collator->UCA_Version(), $UCA_Version);
53 ok($Collator->Base_Unicode_Version,   $Base_Unicode_Version);
54 ok($Collator->Base_Unicode_Version(), $Base_Unicode_Version);
55 ok($Collator->version,   $Key_Version);
56 ok($Collator->version(), $Key_Version);
57
58 my $UndefTable = Unicode::Collate->new(
59   table => undef,
60   normalization => undef,
61 );
62
63 ok($UndefTable->UCA_Version,   $UCA_Version);
64 ok($UndefTable->UCA_Version(), $UCA_Version);
65 ok($UndefTable->Base_Unicode_Version,   $Base_Unicode_Version);
66 ok($UndefTable->Base_Unicode_Version(), $Base_Unicode_Version);
67 ok($UndefTable->version,   "unknown");
68 ok($UndefTable->version(), "unknown");
69