| 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 | |
| 4a2e806c |
4 | BEGIN { |
| 5 | if (ord("A") == 193) { |
| 6 | print "1..0 # Unicode::Normalize not ported to EBCDIC\n"; |
| 7 | exit 0; |
| 8 | } |
| 9 | } |
| 10 | |
| ac5ea531 |
11 | ######################### |
| 12 | |
| 13 | use Test; |
| 14 | use strict; |
| 15 | use warnings; |
| 16 | BEGIN { plan tests => 6 }; |
| 17 | use Unicode::Normalize qw(:all); |
| 18 | ok(1); # If we made it this far, we're ok. |
| 19 | |
| 20 | ######################### |
| 21 | |
| 22 | print getCombinClass( 0) == 0 |
| 23 | && getCombinClass( 768) == 230 |
| 24 | && getCombinClass(1809) == 36 |
| 25 | # && getCombinClass(119143) == 1 |
| 26 | ? "ok" : "not ok", " 2\n"; |
| 27 | |
| 28 | print ! defined getCanon( 0) |
| 29 | && ! defined getCanon(41) |
| 30 | && getCanon(0x00C0) eq pack('U*', 0x0041, 0x0300) |
| 31 | && getCanon(0x00EF) eq pack('U*', 0x0069, 0x0308) |
| 32 | && getCanon(0x304C) eq pack('U*', 0x304B, 0x3099) |
| 33 | && getCanon(0x1EA4) eq pack('U*', 0x0041, 0x0302, 0x0301) |
| 2a204b45 |
34 | && getCanon(0x1F82) eq "\x{03B1}\x{0313}\x{0300}\x{0345}" |
| ac5ea531 |
35 | && getCanon(0x1FAF) eq pack('U*', 0x03A9, 0x0314, 0x0342, 0x0345) |
| 36 | && getCanon(0xAC00) eq pack('U*', 0x1100, 0x1161) |
| 37 | && getCanon(0xAE00) eq pack('U*', 0x1100, 0x1173, 0x11AF) |
| 38 | && ! defined getCanon(0x212C) |
| 39 | && ! defined getCanon(0x3243) |
| 40 | && getCanon(0xFA2D) eq pack('U*', 0x9DB4) |
| 41 | ? "ok" : "not ok", " 3\n"; |
| 42 | |
| 43 | print ! defined getCompat( 0) |
| 44 | && ! defined getCompat(41) |
| 45 | && getCompat(0x00C0) eq pack('U*', 0x0041, 0x0300) |
| 46 | && getCompat(0x00EF) eq pack('U*', 0x0069, 0x0308) |
| 47 | && getCompat(0x304C) eq pack('U*', 0x304B, 0x3099) |
| 48 | && getCompat(0x1EA4) eq pack('U*', 0x0041, 0x0302, 0x0301) |
| 2a204b45 |
49 | && getCompat(0x1F82) eq pack('U*', 0x03B1, 0x0313, 0x0300, 0x0345) |
| ac5ea531 |
50 | && getCompat(0x1FAF) eq pack('U*', 0x03A9, 0x0314, 0x0342, 0x0345) |
| 51 | && getCompat(0x212C) eq pack('U*', 0x0042) |
| 52 | && getCompat(0x3243) eq pack('U*', 0x0028, 0x81F3, 0x0029) |
| 53 | && getCompat(0xAC00) eq pack('U*', 0x1100, 0x1161) |
| 54 | && getCompat(0xAE00) eq pack('U*', 0x1100, 0x1173, 0x11AF) |
| 55 | && getCompat(0xFA2D) eq pack('U*', 0x9DB4) |
| 56 | ? "ok" : "not ok", " 4\n"; |
| 57 | |
| 2a204b45 |
58 | print ! defined getComposite( 0, 0) |
| 59 | && ! defined getComposite( 0, 41) |
| 60 | && ! defined getComposite(41, 0) |
| 61 | && ! defined getComposite(41, 41) |
| 62 | && ! defined getComposite(12, 0x0300) |
| 63 | && ! defined getComposite(0x0055, 0xFF00) |
| 64 | && 0x00C0 == getComposite(0x0041, 0x0300) |
| ac5ea531 |
65 | && 0x00D9 == getComposite(0x0055, 0x0300) |
| 66 | && 0x1E14 == getComposite(0x0112, 0x0300) |
| 67 | && 0xAC00 == getComposite(0x1100, 0x1161) |
| 68 | && 0xADF8 == getComposite(0x1100, 0x1173) |
| ab8fe378 |
69 | && ! defined getComposite(0x1100, 0x11AF) |
| 70 | && ! defined getComposite(0x1173, 0x11AF) |
| ac5ea531 |
71 | && 0xAE00 == getComposite(0xADF8, 0x11AF) |
| 72 | ? "ok" : "not ok", " 5\n"; |
| 73 | |
| 2a204b45 |
74 | print ! isExclusion( 0) |
| 75 | && ! isExclusion(41) |
| 76 | && isExclusion(2392) |
| 77 | && isExclusion(3907) |
| 78 | && isExclusion(64334) |
| ac5ea531 |
79 | ? "ok" : "not ok", " 6\n"; |
| 2a204b45 |
80 | |
projects / p5sagit/p5-mst-13.2.git / blame