diff options
| author | Karl Williamson <khw@cpan.org> | 2015-03-02 22:07:45 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-18 09:44:16 -0600 |
| commit | fc962064cacbf4393def110b51a7bac805d9c3be (patch) | |
| tree | a969f96ea81ecd747b59f319b8c6b33d16cdc457 /lib | |
| parent | f5b27708c2015c319d0178eda79bef9baeaa22a1 (diff) | |
| download | perl-fc962064cacbf4393def110b51a7bac805d9c3be.tar.gz | |
DBM_Filter/t/encode.t: temporarily skip until Encode fixed
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/DBM_Filter/t/encode.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/DBM_Filter/t/encode.t b/lib/DBM_Filter/t/encode.t index 35f501aa55..37a58ac8b8 100644 --- a/lib/DBM_Filter/t/encode.t +++ b/lib/DBM_Filter/t/encode.t @@ -76,6 +76,10 @@ VerifyData(\%h1, eval { $db1->Filter_Pop() }; is $@, '', "pop the 'utf8' filter" ; +SKIP: { + skip "Encode doesn't currently work for most filters on EBCDIC, including 8859-16", 11 if $::IS_EBCDIC || $::IS_EBCDIC; + # Actually the only thing failing below is the euro, because that's the + # only thing that's added in 8859-16. eval { $db1->Filter_Push('encode' => 'iso-8859-16') }; is $@, '', "push an 'encode' filter (specify iso-8859-16)" ; @@ -114,3 +118,4 @@ undef $db2; is $@, '', "untie without inner references" ; } +} |