From a3e5f045e1bd1e071601ce7597065b00d78a1e0d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 30 Sep 2009 13:25:48 +0100
Subject: Move Unicode::Collate from ext/ to dist/

---
 cpan/Unicode-Collate/t/version.t | 58 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 cpan/Unicode-Collate/t/version.t

(limited to 'cpan/Unicode-Collate/t/version.t')

diff --git a/cpan/Unicode-Collate/t/version.t b/cpan/Unicode-Collate/t/version.t
new file mode 100644
index 0000000000..17adf539ca
--- /dev/null
+++ b/cpan/Unicode-Collate/t/version.t
@@ -0,0 +1,58 @@
+
+BEGIN {
+    unless ("A" eq pack('U', 0x41)) {
+	print "1..0 # Unicode::Collate " .
+	    "cannot stringify a Unicode code point\n";
+	exit 0;
+    }
+    if ($ENV{PERL_CORE}) {
+	chdir('t') if -d 't';
+	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
+    }
+}
+
+use Test;
+BEGIN { plan tests => 17 };
+
+use strict;
+use warnings;
+use Unicode::Collate;
+
+ok(1);
+
+#########################
+
+# Fix me when UCA and/or keys.txt is upgraded.
+my $UCA_Version = "14";
+my $Base_Unicode_Version = "4.1.0";
+my $Key_Version = "3.1.1";
+
+ok(Unicode::Collate::UCA_Version, $UCA_Version);
+ok(Unicode::Collate->UCA_Version, $UCA_Version);
+ok(Unicode::Collate::Base_Unicode_Version, $Base_Unicode_Version);
+ok(Unicode::Collate->Base_Unicode_Version, $Base_Unicode_Version);
+
+my $Collator = Unicode::Collate->new(
+  table => 'keys.txt',
+  normalization => undef,
+);
+
+ok($Collator->UCA_Version,   $UCA_Version);
+ok($Collator->UCA_Version(), $UCA_Version);
+ok($Collator->Base_Unicode_Version,   $Base_Unicode_Version);
+ok($Collator->Base_Unicode_Version(), $Base_Unicode_Version);
+ok($Collator->version,   $Key_Version);
+ok($Collator->version(), $Key_Version);
+
+my $UndefTable = Unicode::Collate->new(
+  table => undef,
+  normalization => undef,
+);
+
+ok($UndefTable->UCA_Version,   $UCA_Version);
+ok($UndefTable->UCA_Version(), $UCA_Version);
+ok($UndefTable->Base_Unicode_Version,   $Base_Unicode_Version);
+ok($UndefTable->Base_Unicode_Version(), $Base_Unicode_Version);
+ok($UndefTable->version,   "unknown");
+ok($UndefTable->version(), "unknown");
+
-- 
cgit v1.2.1