This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/bop.t: Fix test failing on EBCDIC
authorKarl Williamson <khw@cpan.org>
Thu, 17 Nov 2016 03:15:54 +0000 (20:15 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 17 Nov 2016 09:51:05 +0000 (02:51 -0700)
This recently added test did not take into account character set
differences.

t/op/bop.t

index dd5b5ef..594dd09 100644 (file)
@@ -681,4 +681,5 @@ is $byte, "\0", "utf8 &. appends null byte";
 
 # only visible under sanitize
 fresh_perl_is('$x = "UUUUUUUV"; $y = "xxxxxxx"; $x |= $y; print $x',
 
 # only visible under sanitize
 fresh_perl_is('$x = "UUUUUUUV"; $y = "xxxxxxx"; $x |= $y; print $x',
-              '}}}}}}}V', {}, "[perl #129995] access to freed memory");
+              ( $::IS_EBCDIC) ? 'XXXXXXXV' : '}}}}}}}V',
+              {}, "[perl #129995] access to freed memory");