1
2BEGIN {
3    unless ('A' eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
5	exit 0;
6    }
7    unless (0x41 == unpack('U', 'A')) {
8	print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
9	exit 0;
10    }
11}
12
13BEGIN {
14    if ($ENV{PERL_CORE}) {
15        chdir('t') if -d 't';
16        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
17    }
18}
19
20#########################
21
22BEGIN {
23    use Unicode::Normalize qw(:all);
24
25    unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {
26	print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".
27		" needed for this test\n";
28	print $@;
29	exit;
30    }
31}
32
33use strict;
34use warnings;
35BEGIN { $| = 1; print "1..17\n"; }
36my $count = 0;
37sub ok ($;$) {
38    my $p = my $r = shift;
39    if (@_) {
40	my $x = shift;
41	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
42    }
43    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
44}
45
46ok(1);
47
48package tiescalar;
49sub TIESCALAR {
50    my ($class, $instance) = @_;
51    return bless \$instance => $class;
52}
53sub FETCH   { return ${$_[0]}++ }
54sub STORE   { return ${$_[0]} = $_[1] }
55sub DESTROY { undef ${$_[0]} }
56
57#########################
58
59package main;
60
61tie my $tie1, 'tiescalar', "123";
62ok(NFD($tie1),  123);
63ok(NFC($tie1),  124);
64ok(NFKD($tie1), 125);
65ok(NFKC($tie1), 126);
66ok(FCD($tie1),  127);
67ok(FCC($tie1),  128);
68
69tie my $tie2, 'tiescalar', "256";
70ok(normalize('NFD',  $tie2), 256);
71ok(normalize('NFC',  $tie2), 257);
72ok(normalize('NFKD', $tie2), 258);
73ok(normalize('NFKC', $tie2), 259);
74ok(normalize('FCD',  $tie2), 260);
75ok(normalize('FCC',  $tie2), 261);
76
77tie my $tie3, 'tiescalar', "315";
78ok(decompose($tie3),         315);
79ok(reorder($tie3),           316);
80ok(compose($tie3),           317);
81ok(composeContiguous($tie3), 318);
82
83