diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-03-27 10:33:44 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-05 21:48:25 -0700 |
| commit | 5e8d268216881d9191f0637dd6cb32393e3fa689 (patch) | |
| tree | 7b900287c61ccc8fe8eb7791d1b37a3cae8b815b /t/op | |
| parent | e53ec980866226a523fafbace0c8f264d74d4356 (diff) | |
| download | perl-5e8d268216881d9191f0637dd6cb32393e3fa689.tar.gz | |
t/op/print.t: Skip an EBCDIC test
This could be fixed (the values would probably change depending on the
code page), but the code that would get exercised is unlikely to vary
depending on character set.
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/print.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/print.t b/t/op/print.t index 93aa94a3d3..15f880ffa3 100644 --- a/t/op/print.t +++ b/t/op/print.t @@ -13,6 +13,7 @@ fresh_perl_is('$_ = qq{OK\n}; print STDOUT;', "OK\n", {}, 'print with only a filehandle outputs $_'); SKIP: { skip_if_miniperl('no dynamic loading of PerlIO::scalar in miniperl'); + skip("EBCDIC") if $::IS_EBCDIC; # Varies depending on code page fresh_perl_is(<<'EOF', "\xC1\xAF\xC1\xAF\xC1\xB0\xC1\xB3", {}, "print doesn't launder utf8 overlongs"); use strict; use warnings; |