diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-03 16:20:24 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-03 19:26:16 -0700 |
| commit | a441186611883aac7143f037e8e10d314482028c (patch) | |
| tree | 1d40f8e4d33c3bc756be13153d799cf1d8ee7a8f /lib | |
| parent | 06bba7d54b7eb05ccfa474032017480e14b18374 (diff) | |
| download | perl-a441186611883aac7143f037e8e10d314482028c.tar.gz | |
UCD.t: Fix a test description
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 933fbbf752..a0ebf7eb18 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -455,7 +455,7 @@ is(num("0"), 0, 'Verify num("0") == 0'); is(num("98765"), 98765, 'Verify num("98765") == 98765'); ok(! defined num("98765\N{FULLWIDTH DIGIT FOUR}"), 'Verify num("98765\N{FULLWIDTH DIGIT FOUR}") isnt defined'); is(num("\N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE DIGIT ONE}"), 21, 'Verify \N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE DIGIT ONE}" == 21'); -ok(! defined num("\N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE THAM DIGIT ONE}"), 'Verify \N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE DIGIT ONE}" isnt defined'); +ok(! defined num("\N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE THAM DIGIT ONE}"), 'Verify \N{NEW TAI LUE DIGIT TWO}\N{NEW TAI LUE THAM DIGIT ONE}" isnt defined'); is(num("\N{CHAM DIGIT ZERO}\N{CHAM DIGIT THREE}"), 3, 'Verify num("\N{CHAM DIGIT ZERO}\N{CHAM DIGIT THREE}") == 3'); ok(! defined num("\N{CHAM DIGIT ZERO}\N{JAVANESE DIGIT NINE}"), 'Verify num("\N{CHAM DIGIT ZERO}\N{JAVANESE DIGIT NINE}") isnt defined'); is(num("\N{SUPERSCRIPT TWO}"), 2, 'Verify num("\N{SUPERSCRIPT TWO} == 2'); |