lib/Unicode/UCD.t

820 use charnames ();   # Don't use \N{} on things not in original Unicode
839     my $tai_lue_1 = charnames::string_vianame("NEW TAI LUE DIGIT ONE");
840     $tai_lue_2 = charnames::string_vianame("NEW TAI LUE DIGIT TWO");
848          . charnames::string_vianame("NEW TAI LUE THAM DIGIT ONE"), \$ret_len),
851     ok(! defined num(charnames::string_vianame("NEW TAI LUE THAM DIGIT ONE")
857     my $cham_0 = charnames::string_vianame("CHAM DIGIT ZERO");
858     is(num($cham_0 . charnames::string_vianame("CHAM DIGIT THREE")), 3,
862                          . charnames::string_vianame("JAVANESE DIGIT NINE"),
870     is(num(charnames::string_vianame("ETHIOPIC NUMBER TEN THOUSAND")), 10000,
874     is(num(charnames::string_vianame("NORTH INDIC FRACTION ONE HALF")),