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 = "22";
  27 my $Base_Unicode_Version = "6.0.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