Permalink
Browse files

Debug for EBCDIC

  • Loading branch information...
khwilliamson committed Dec 5, 2017
1 parent 255454a commit e4512bc28e72f913b760ac3ac296bfd9ab5d7757
Showing with 13 additions and 2 deletions.
  1. +13 −2 ext/XS-APItest/t/handy_base.pl
@@ -338,7 +338,6 @@ ($$$)
next if $expect_error
&& ! try_malforming($u, $function,
$suffix =~ /LC/);
my $display_call = "is${function}$suffix( $display_name"
. ", $utf8_param )$display_locale";
$ret = truth eval "test_is${function}$suffix('$char',"
@@ -570,7 +569,9 @@ ($$$)
next if $expect_error && $u < ((ord "A" == 65) ? 128 : 160);
my $display_call = "to${function}_utf8($display_name, $utf8_param )";
$ret = eval "test_to${function}_utf8('$char', $utf8_param_code)";
my $code = "test_to${function}_utf8('$char', $utf8_param_code)";
$ret = eval $code;
my $err = $@;
if ($expect_error) {
isnt ($@, "", "expected and got error in $display_call");
like($@, qr/Malformed UTF-8 character/,
@@ -613,6 +614,16 @@ ($$$)
undef @warnings;
}
}
else {
warn "XXX unexpected eval fail:\n";
use Devel::Peek;
Dump $function;
Dump $char;
Dump $utf8_param_code;
Dump $code;
Dump $ret;
Dump $err;
}
}
}
}

0 comments on commit e4512bc

Please sign in to comment.