This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Pod-Escapes to CPAN version 1.06
[perl5.git] / cpan / Pod-Escapes / t / 15_name2charnum.t
1
2 # Time-stamp: "2004-04-27 19:53:22 ADT"
3
4 use strict;
5 use Test;
6 use utf8;
7
8 my @them;
9 BEGIN { plan('tests' => 42) };
10 BEGIN { print "# Perl version $] under $^O\n" }
11
12 use Pod::Escapes qw(:ALL);
13 ok 1;
14
15 eval " binmode(STDOUT, ':utf8') ";
16
17 print "# Pod::Escapes version $Pod::Escapes::VERSION\n";
18 print "# I'm ", (chr(65) eq 'A') ? '' : 'not ', "in ASCII world.\n";
19 print "#\n#------------------------\n#\n";
20
21 print "# 'A' tests...\n";
22 ok e2charnum('65'), '65';
23 ok e2charnum('x41'), '65';
24 ok e2charnum('x041'), '65';
25 ok e2charnum('x0041'), '65';
26 ok e2charnum('x00041'), '65';
27 ok e2charnum('0101'), '65';
28 ok e2charnum('00101'), '65';
29 ok e2charnum('000101'), '65';
30 ok e2charnum('0000101'), '65';
31
32 print "# '<' tests...\n";
33 ok e2charnum('lt'), '60';
34 ok e2charnum('60'), '60';
35 ok e2charnum('074'), '60';
36 ok e2charnum('0074'), '60';
37 ok e2charnum('00074'), '60';
38 ok e2charnum('000074'), '60';
39 ok e2charnum('x3c'), '60';
40 ok e2charnum('x3C'), '60';
41 ok e2charnum('x03c'), '60';
42 ok e2charnum('x003c'), '60';
43 ok e2charnum('x0003c'), '60';
44 ok e2charnum('x00003c'), '60';
45
46 ok e2charnum('65') ne e2charnum('lt');
47
48 print "# eacute tests...\n";
49 ok defined e2charnum('eacute');
50
51 print "#    eacute is <", e2charnum('eacute'), "> which is code ",
52       ord(e2charnum('eacute')), "\n";
53
54 ok e2charnum('eacute'), e2charnum('233');
55 ok e2charnum('eacute'), e2charnum('0351');
56 ok e2charnum('eacute'), e2charnum('xe9');
57 ok e2charnum('eacute'), e2charnum('xE9');
58
59 print "# pi tests...\n";
60 ok defined e2charnum('pi');
61
62 print "#    pi is <", e2charnum('pi'), "> which is code ",
63       e2charnum('pi'), "\n";
64
65 ok e2charnum('pi'), e2charnum('960');
66 ok e2charnum('pi'), e2charnum('01700');
67 ok e2charnum('pi'), e2charnum('001700');
68 ok e2charnum('pi'), e2charnum('0001700');
69 ok e2charnum('pi'), e2charnum('x3c0');
70 ok e2charnum('pi'), e2charnum('x3C0');
71 ok e2charnum('pi'), e2charnum('x03C0');
72 ok e2charnum('pi'), e2charnum('x003C0');
73 ok e2charnum('pi'), e2charnum('x0003C0');
74
75
76 print "# %Name2character_number test...\n";
77
78 ok scalar keys %Name2character_number;
79 ok defined $Name2character_number{'eacute'};
80 ok $Name2character_number{'lt'} eq '60';
81
82 # e2charnum on BENGALI DIGIT SEVEN should return undef
83 ok(!defined(e2charnum('৭')));
84
85 # End