This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/DBM_Filter/t/encode.t: TODO a test on EBCDIC
[perl5.git] / lib / DBM_Filter / t / encode.t
index 37a58ac..c7ef604 100644 (file)
@@ -65,13 +65,16 @@ is $@, '', "push an 'encode' filter (default to utf-8)" ;
 
 }
 
-VerifyData(\%h1,
+{
+    local $TODO = "Currently broken on EBCDIC" if $::IS_EBCDIC;
+    VerifyData(\%h1,
        {
                'alpha' => "\N{alpha}",
                "beta"  => "\N{beta}",
                "\N{gamma}"=> "gamma",
                ""              => "",
        });
+}
 
 eval { $db1->Filter_Pop() };
 is $@, '', "pop the 'utf8' filter" ;