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
authorKarl Williamson <khw@cpan.org>
Sun, 24 May 2020 18:55:17 +0000 (12:55 -0600)
committerSawyer X <xsawyerx@cpan.org>
Wed, 27 May 2020 08:09:32 +0000 (11:09 +0300)
This depends on Encode which has some problems

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",
                ""              => "",
        });
        {
                'alpha' => "\N{alpha}",
                "beta"  => "\N{beta}",
                "\N{gamma}"=> "gamma",
                ""              => "",
        });
+}
 
 eval { $db1->Filter_Pop() };
 is $@, '', "pop the 'utf8' filter" ;
 
 eval { $db1->Filter_Pop() };
 is $@, '', "pop the 'utf8' filter" ;