This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fec13a4
)
ext/POSIX/t/mb.t: Generalize for EBCDIC
author
Karl Williamson
<khw@cpan.org>
Wed, 3 Apr 2019 18:14:19 +0000
(12:14 -0600)
committer
Karl Williamson
<khw@cpan.org>
Tue, 9 Apr 2019 18:02:19 +0000
(12:02 -0600)
ext/POSIX/t/mb.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/t/mb.t
b/ext/POSIX/t/mb.t
index
961edf6
..
785400a
100644
(file)
--- a/
ext/POSIX/t/mb.t
+++ b/
ext/POSIX/t/mb.t
@@
-15,6
+15,7
@@
BEGIN {
}
unshift @INC, "../../t";
require 'loc_tools.pl';
+ require 'charset_tools.pl';
require 'test.pl';
}
@@
-38,7
+39,9
@@
SKIP: {
delete $ENV{LC_ALL};
fresh_perl_is(
- 'use POSIX; print &POSIX::mblen("\x{c3}\x{28}", &POSIX::MB_CUR_MAX)',
+ 'use POSIX; print &POSIX::mblen("'
+ . I8_to_native("\x{c3}\x{28}")
+ . '", &POSIX::MB_CUR_MAX)',
-1, {}, 'mblen() recognizes invalid multibyte characters');
fresh_perl_is(