blob: d89d50ca284e8ec02a506f416f85938d9ac4ef7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
use strict;
use warnings;
eval "require 'meta_notation.pm'";
if ($@) {
fail("Could not find 'meta_notation.pm'");
}
else {
is(_meta_notation("\007\010\011\c?Z\x{103}"), "^G^H^I^?Z\x{103}");
if ($::IS_ASCII || $::IS_ASCII) {
is(_meta_notation("\x{c1}\x{e2}"), 'M-AM-b');
is(_meta_notation("\x{df}"), 'M-_');
}
else { # EBCDIC platform
# In the first iteration we are looking for a non-ASCII control; in
# the second, a regular non-ASCII character. SPACE marks the end of
# most controls. We test each to see that they are properly converted
# to \x{...}
foreach my $start (0x20, ord " ") {
for (my $i = $start; $i < 256; $i++) {
my $char = chr $i;
next if $char =~ /[[:ascii:]]/;
is(_meta_notation($char), sprintf("\\x{%X}", $i));
last;
}
}
}
}
done_testing();
|
