diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-05-24 11:01:10 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-25 23:06:04 +0200 |
| commit | 8a38a8369536df0f4eac69e5a26e9b86f9123d1d (patch) | |
| tree | bb8e109e302389fb01615af0c71ad3f8ad99dc25 /t/uni | |
| parent | f69d9fdf3f3cf041b8398a5d897daef24f0e5fa0 (diff) | |
| download | perl-8a38a8369536df0f4eac69e5a26e9b86f9123d1d.tar.gz | |
Change a few tests to use new test.pl EBCDIC stuff
A few .t's are delivered here which use the new conversion functions in
test.pl. Obviously, this commit doesn't have to be incorporated, but it
does simplify those tests.
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/class.t | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/t/uni/class.t b/t/uni/class.t index 3dde5082cb..107a20274d 100644 --- a/t/uni/class.t +++ b/t/uni/class.t @@ -50,13 +50,7 @@ sub test_regexp ($$) { use strict; -my $str; - -if (ord('A') == 193) { - $str = join "", map chr($_), 0x40, 0x5A, 0x7F, 0x7B, 0x5B, 0x6C, 0x50, 0x7D, 0x4D, 0x5D, 0x5C, 0x4E, 0x6B, 0x60, 0x4B, 0x61, 0xF0 .. 0xF9, 0x7A, 0x5E, 0x4C, 0x7E, 0x6E, 0x6F, 0x7C, 0xC1 .. 0xC9, 0xD1 .. 0xD9, 0xE2 .. 0xE9, 0xAD, 0xE0, 0xBD, 0x5F, 0x6D, 0x79, 0x81 .. 0x89, 0x91 .. 0x96; # IBM-1047 -} else { - $str = join "", map chr($_), 0x20 .. 0x6F; -} +my $str = join "", map latin1_to_native(chr($_)), 0x20 .. 0x6F; # make sure it finds built-in class is(($str =~ /(\p{Letter}+)/)[0], 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'); |