diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-05 02:34:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-05 02:34:32 +0000 |
| commit | 86386b5a6566d7a1c038f5f0c8c31abf61ca5d2b (patch) | |
| tree | 350ef9b0264d79664cadc709db104f38ee7f3591 | |
| parent | 680a9378c3ddd3184fff5e52526dbb8b39aeaa39 (diff) | |
| download | perl-86386b5a6566d7a1c038f5f0c8c31abf61ca5d2b.tar.gz | |
Decommission Encode::Tcl HZ testing for now.
p4raw-id: //depot/perl@15033
| -rw-r--r-- | ext/Encode/t/Tcl.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Encode/t/Tcl.t b/ext/Encode/t/Tcl.t index cad5a012a0..17fcbf4ff8 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) { |