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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
op/bop.t: Fix test failing on EBCDIC
[perl5.git]
/
t
/
op
/
bop.t
diff --git
a/t/op/bop.t
b/t/op/bop.t
index
f9bf1c5
..
594dd09
100644
(file)
--- a/
t/op/bop.t
+++ b/
t/op/bop.t
@@
-19,7
+19,7
@@
BEGIN {
# If you find tests are failing, please try adding names to tests to track
# down where the failure is, and supply your new names as a patch.
# (Just-in-time test naming)
# If you find tests are failing, please try adding names to tests to track
# down where the failure is, and supply your new names as a patch.
# (Just-in-time test naming)
-plan tests => 192 + (10*13*2) + 5 + 3
0
;
+plan tests => 192 + (10*13*2) + 5 + 3
1
;
# numerics
ok ((0xdead & 0xbeef) == 0x9ead);
# numerics
ok ((0xdead & 0xbeef) == 0x9ead);
@@
-678,3
+678,8
@@
for (["aaa","aaa"],[substr ("a\x{100}",0,1), "a"]) {
$byte = substr unpack("P2", pack "P", $$_[0] &. $$_[1]), -1;
}
is $byte, "\0", "utf8 &. appends null byte";
$byte = substr unpack("P2", pack "P", $$_[0] &. $$_[1]), -1;
}
is $byte, "\0", "utf8 &. appends null byte";
+
+# only visible under sanitize
+fresh_perl_is('$x = "UUUUUUUV"; $y = "xxxxxxx"; $x |= $y; print $x',
+ ( $::IS_EBCDIC) ? 'XXXXXXXV' : '}}}}}}}V',
+ {}, "[perl #129995] access to freed memory");