Upgrade to Unicode::Normalize 0.10, now in XS.
[p5sagit/p5-mst-13.2.git] / ext / Unicode / Normalize / t / func.t
1 # Before `make install' is performed this script should be runnable with
2 # `make test'. After `make install' it should work as `perl test.pl'
3
4 #########################
5
6 use Test;
7 use strict;
8 use warnings;
9 BEGIN { plan tests => 6 };
10 use Unicode::Normalize qw(:all);
11 ok(1); # If we made it this far, we're ok.
12
13 #########################
14
15 print getCombinClass(   0) == 0
16    && getCombinClass( 768) == 230
17    && getCombinClass(1809) == 36
18 #  && getCombinClass(119143) == 1
19   ? "ok" : "not ok", " 2\n";
20
21 print ! defined getCanon( 0)
22    && ! defined getCanon(41)
23    && getCanon(0x00C0) eq pack('U*', 0x0041, 0x0300)
24    && getCanon(0x00EF) eq pack('U*', 0x0069, 0x0308)
25    && getCanon(0x304C) eq pack('U*', 0x304B, 0x3099)
26    && getCanon(0x1EA4) eq pack('U*', 0x0041, 0x0302, 0x0301)
27    && getCanon(0x1FAF) eq pack('U*', 0x03A9, 0x0314, 0x0342, 0x0345)
28    && getCanon(0xAC00) eq pack('U*', 0x1100, 0x1161)
29    && getCanon(0xAE00) eq pack('U*', 0x1100, 0x1173, 0x11AF)
30    && ! defined getCanon(0x212C)
31    && ! defined getCanon(0x3243)
32    && getCanon(0xFA2D) eq pack('U*', 0x9DB4)
33   ? "ok" : "not ok", " 3\n";
34
35 print ! defined getCompat( 0)
36    && ! defined getCompat(41)
37    && getCompat(0x00C0) eq pack('U*', 0x0041, 0x0300)
38    && getCompat(0x00EF) eq pack('U*', 0x0069, 0x0308)
39    && getCompat(0x304C) eq pack('U*', 0x304B, 0x3099)
40    && getCompat(0x1EA4) eq pack('U*', 0x0041, 0x0302, 0x0301)
41    && getCompat(0x1FAF) eq pack('U*', 0x03A9, 0x0314, 0x0342, 0x0345)
42    && getCompat(0x212C) eq pack('U*', 0x0042)
43    && getCompat(0x3243) eq pack('U*', 0x0028, 0x81F3, 0x0029)
44    && getCompat(0xAC00) eq pack('U*', 0x1100, 0x1161)
45    && getCompat(0xAE00) eq pack('U*', 0x1100, 0x1173, 0x11AF)
46    && getCompat(0xFA2D) eq pack('U*', 0x9DB4)
47   ? "ok" : "not ok", " 4\n";
48
49 print ! getComposite( 0,  0)
50    && ! getComposite( 0, 41)
51    && ! getComposite(41,  0)
52    && ! getComposite(41, 41)
53    && ! getComposite(12, 0x0300)
54    && ! getComposite(0x0055, 0xFF00)
55    && 0x00D9 == getComposite(0x0055, 0x0300)
56    && 0x1E14 == getComposite(0x0112, 0x0300)
57    && 0xAC00 == getComposite(0x1100, 0x1161)
58    && 0xADF8 == getComposite(0x1100, 0x1173)
59    && ! getComposite(0x1100, 0x11AF)
60    && ! getComposite(0x1173, 0x11AF)
61    && 0xAE00 == getComposite(0xADF8, 0x11AF)
62   ? "ok" : "not ok", " 5\n";
63
64 print ! getExclusion( 0)
65    && ! getExclusion(41)
66    && getExclusion(2392)
67    && getExclusion(3907)
68    && getExclusion(64334)
69   ? "ok" : "not ok", " 6\n";