This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Shoo.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Mar 2002 03:31:32 +0000 (03:31 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Mar 2002 03:31:32 +0000 (03:31 +0000)
p4raw-id: //depot/perl@15038

ext/Encode/t/Tcl.t

index 17fcbf4..578af12 100644 (file)
@@ -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;