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}
9
10BEGIN {
11    if ($ENV{PERL_CORE}) {
12        chdir('t') if -d 't';
13        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17use Test;
18BEGIN { plan tests => 17 };
19
20use strict;
21use warnings;
22
23ok(1);
24
25#
26# No test for Unicode::Collate is included in this .t file.
27#
28# UCA conformance test requires completely ignorable characters
29# (including noncharacters) must be able to be ordered in code point order;
30# If not so, Unicode::Collate must not be compliant with UCA.
31#
32# ~~~ CollationTest_SHIFTED.txt in CollationTest-4.0.0
33#
34# 206F 0021;	# ! NOMINAL DIGIT SHAPES	[| | | 0251]
35# D800 0021;	# ! <surrogate-D800>	[| | | 0251]
36# DFFF 0021;	# ! <surrogate-DFFF>	[| | | 0251]
37# FDD0 0021;	# ! <noncharacter-FDD0>	[| | | 0251]
38# FFFB 0021;	# ! INTERLINEAR ANNOTATION TERMINATOR	[| | | 0251]
39# FFFE 0021;	# ! <noncharacter-FFFE>	[| | | 0251]
40# FFFF 0021;	# ! <noncharacter-FFFF>	[| | | 0251]
41# 1D165 0021;	# ! MS. Cm. STEM	[| | | 0251]
42#
43# ~~~ CollationTest_NON_IGNORABLE.txt in CollationTest-4.0.0
44#
45# 206F 0021;	# ! NOMINAL DIGIT SHAPES	[0251 | 0020 | 0002 |]
46# D800 0021;	# ! <surrogate-D800>	[0251 | 0020 | 0002 |]
47# DFFF 0021;	# ! <surrogate-DFFF>	[0251 | 0020 | 0002 |]
48# FDD0 0021;	# ! <noncharacter-FDD0>	[0251 | 0020 | 0002 |]
49# FFFB 0021;	# ! INTERLINEAR ANNOTATION TERMINATOR	[0251 | 0020 | 0002 |]
50# FFFE 0021;	# ! <noncharacter-FFFE>	[0251 | 0020 | 0002 |]
51# FFFF 0021;	# ! <noncharacter-FFFF>	[0251 | 0020 | 0002 |]
52# 1D165 0021;	# ! MS. Cm. STEM	[0251 | 0020 | 0002 |]
53#
54
55no warnings 'utf8';
56
57ok("\x{206F}!" lt "\x{D800}!");
58ok(pack('U*', 0x206F, 0x21) lt pack('U*', 0xD800, 0x21));
59
60ok("\x{D800}!" lt "\x{DFFF}!");
61ok(pack('U*', 0xD800, 0x21) lt pack('U*', 0xDFFF, 0x21));
62
63ok("\x{DFFF}!" lt "\x{FDD0}!");
64ok(pack('U*', 0xDFFF, 0x21) lt pack('U*', 0xFDD0, 0x21) );
65
66ok("\x{FDD0}!" lt "\x{FFFB}!");
67ok(pack('U*', 0xFDD0, 0x21) lt pack('U*', 0xFFFB, 0x21));
68
69ok("\x{FFFB}!" lt "\x{FFFE}!");
70ok(pack('U*', 0xFFFB, 0x21) lt pack('U*', 0xFFFE, 0x21));
71
72ok("\x{FFFE}!" lt "\x{FFFF}!");
73ok(pack('U*', 0xFFFE, 0x21) lt pack('U*', 0xFFFF, 0x21));
74
75ok("\x{FFFF}!" lt "\x{1D165}!");
76ok(pack('U*', 0xFFFF, 0x21) lt pack('U*', 0x1D165, 0x21));
77
78ok("\000!" lt "\x{FFFF}!");
79ok(pack('U*', 0, 0x21) lt pack('U*', 0xFFFF, 0x21));
80
81