lib/DBM_Filter/t/encode.t: Generalize for non-ASCII platforms

This still has a failure due to Encode issues.  A future commit will
skip some failing tests until that is fixed.

diff --git a/lib/DBM_Filter/t/encode.t b/lib/DBM_Filter/t/encode.t
index d7a8ef2..35f501a 100644 (file)
--- a/lib/DBM_Filter/t/encode.t
+++ b/lib/DBM_Filter/t/encode.t
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 use Carp;
 
+require "../t/charset_tools.pl";
 
 BEGIN 
 {
@@ -97,25 +98,14 @@ my $db2 = tie(%h2, $db_file,'Op_dbmx', O_RDWR|O_CREAT, 0640) ;
 
 ok $db2, "tied to $db_file";
 
-if (ord('A') == 193) { # EBCDIC.
-    VerifyData(\%h2,
+VerifyData(\%h2,
           {
-           'alpha'     => "\xB4\x58",
-           'beta'      => "\xB4\x59",
-           "\xB4\x62"=> "gamma",               
-           "\x65\x75\x72\x6F" => "\xA4",                           
+           'alpha'     => byte_utf8a_to_utf8n("\xCE\xB1"),
+           'beta'      => byte_utf8a_to_utf8n("\xCE\xB2"),
+           byte_utf8a_to_utf8n("\xCE\xB3") => "gamma",
+           'euro'      => uni_to_native("\xA4"),
            ""          => "",
           });
-} else {
-    VerifyData(\%h2,
-          {
-           'alpha'     => "\xCE\xB1",
-           'beta'      => "\xCE\xB2",
-           "\xCE\xB3"=> "gamma",
-           'euro'      => "\xA4",
-           ""          => "",
-          });
-}
 
 undef $db2;
 {