From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Mar 2002 02:34:32 +0000 (+0000)
Subject: Decommission Encode::Tcl HZ testing for now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6008b2cdded3e19383438abf72747730e4e5f4a3;p=p5sagit%2Fp5-mst-13.2.git

Decommission Encode::Tcl HZ testing for now.

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

diff --git a/ext/Encode/t/Tcl.t b/ext/Encode/t/Tcl.t
index cad5a01..17fcbf4 100644
--- a/ext/Encode/t/Tcl.t
+++ b/ext/Encode/t/Tcl.t
@@ -126,7 +126,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*@encodings*@ideodigit + $num_esc +
+# + $n + @hz_txt
+  + @ary_buff;
 
 foreach my $enc (@encodings)
  {
@@ -211,6 +213,7 @@ foreach my $enc (@encodings)
    return encode($hz, pack 'U*', unpack 'n*', pack 'H*', shift);
   };
 
+ if(0){
  foreach my $enc ($hz)
   {
    my $tab = Encode->getEncoding($enc);
@@ -225,6 +228,7 @@ foreach my $enc (@encodings)
       "$enc mangled translating to Unicode");
     }
   }
+  }
 }
 
 for my $ary (@ary_buff) {