Commit | Line | Data |
ac5ea531 |
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"; |