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 if ($ENV{PERL_CORE}) { 9 chdir('t') if -d 't'; 10 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 11 } 12} 13 14use Test; 15BEGIN { plan tests => 17 }; 16 17use strict; 18use warnings; 19use Unicode::Collate; 20 21ok(1); 22 23######################### 24 25# Fix me when UCA and/or keys.txt is upgraded. 26my $UCA_Version = "14"; 27my $Base_Unicode_Version = "4.1.0"; 28my $Key_Version = "3.1.1"; 29 30ok(Unicode::Collate::UCA_Version, $UCA_Version); 31ok(Unicode::Collate->UCA_Version, $UCA_Version); 32ok(Unicode::Collate::Base_Unicode_Version, $Base_Unicode_Version); 33ok(Unicode::Collate->Base_Unicode_Version, $Base_Unicode_Version); 34 35my $Collator = Unicode::Collate->new( 36 table => 'keys.txt', 37 normalization => undef, 38); 39 40ok($Collator->UCA_Version, $UCA_Version); 41ok($Collator->UCA_Version(), $UCA_Version); 42ok($Collator->Base_Unicode_Version, $Base_Unicode_Version); 43ok($Collator->Base_Unicode_Version(), $Base_Unicode_Version); 44ok($Collator->version, $Key_Version); 45ok($Collator->version(), $Key_Version); 46 47my $UndefTable = Unicode::Collate->new( 48 table => undef, 49 normalization => undef, 50); 51 52ok($UndefTable->UCA_Version, $UCA_Version); 53ok($UndefTable->UCA_Version(), $UCA_Version); 54ok($UndefTable->Base_Unicode_Version, $Base_Unicode_Version); 55ok($UndefTable->Base_Unicode_Version(), $Base_Unicode_Version); 56ok($UndefTable->version, "unknown"); 57ok($UndefTable->version(), "unknown"); 58 59