From d7187ca87745e121d9e0bb78ae19dc5d6914fd73 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Mar 2002 03:31:32 +0000
Subject: [PATCH] Shoo.

p4raw-id: //depot/perl@15038
---
 ext/Encode/t/Tcl.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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;
-- 
2.7.4