From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Mar 2002 03:31:32 +0000 (+0000)
Subject: Shoo.
X-Git-Tag: accepted/trunk/20130322.191538~27765
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d7187ca87745e121d9e0bb78ae19dc5d6914fd73;p=platform%2Fupstream%2Fperl.git

Shoo.

p4raw-id: //depot/perl@15038
---

diff --git a/ext/Encode/t/Tcl.t b/ext/Encode/t/Tcl.t
index 17fcbf4..578af12 100644
--- a/ext/Encode/t/Tcl.t
+++ b/ext/Encode/t/Tcl.t
@@ -127,8 +127,9 @@ my @ary_buff = (  # [ encoding, decoded, encoded ]
 
 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 @@ foreach my $enc (@encodings)
 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;