Change 15033 by jhi@alpha on 2002/03/05 02:34:32
Decommission Encode::Tcl HZ testing for now.
Affected files ...
.... //depot/perl/ext/Encode/t/Tcl.t#3 edit
Differences ...
==== //depot/perl/ext/Encode/t/Tcl.t#3 (text) ====
Index: perl/ext/Encode/t/Tcl.t
--- perl/ext/Encode/t/Tcl.t.~1~ Mon Mar 4 19:45:05 2002
+++ perl/ext/Encode/t/Tcl.t Mon Mar 4 19:45:05 2002
@@ -126,7 +126,9 @@
);
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 @@
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 @@
"$enc mangled translating to Unicode");
}
}
+ }
}
for my $ary (@ary_buff) {
End of Patch.
