Change 15038 by jhi@alpha on 2002/03/05 03:31:32
Shoo.
Affected files ...
.... //depot/perl/ext/Encode/t/Tcl.t#4 edit
Differences ...
==== //depot/perl/ext/Encode/t/Tcl.t#4 (text) ====
Index: perl/ext/Encode/t/Tcl.t
--- perl/ext/Encode/t/Tcl.t.~1~ Mon Mar 4 20:45:05 2002
+++ perl/ext/Encode/t/Tcl.t Mon Mar 4 20:45:05 2002
@@ -127,8 +127,9 @@
plan test => $n*@encodings + $n*@encodings*@greek
+ $n*@encodings*@ideodigit + $num_esc +
-# + $n + @hz_txt
- + @ary_buff;
+# + $n + @hz_txt # no HZ for now
+ + @ary_buff
+ - 2; # no HZ for now
foreach my $enc (@encodings)
{
@@ -234,6 +235,7 @@
for my $ary (@ary_buff) {
my $NG = 0;
my $enc = $ary->[0];
+ next if $enc eq 'HZ';
for my $n ( int(BUFSIZ/2) .. 2*BUFSIZ+4 ){
my $dst = "a"x$n. $ary->[1] . TAIL;
my $src = "a"x$n. $ary->[2] . TAIL;
End of Patch.
