Changeset 34360 for lang

Show
Ignore:
Timestamp:
07/08/09 22:50:20 (5 years ago)
Author:
dankogai
Message:

VERSION 2.34 (t/perlio.t fixed)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Encode/trunk/t/piconv.t

    r34359 r34360  
    3535 
    3636{ 
    37     my($st, $out, $err) = run_cmd [qw(-S foobar -f utf-8), $script]; 
     37    my($st, $out, $err) = run_cmd [qw(-S foobar -f utf-8 -t ascii), $script]; 
    3838    like($err, qr{unknown scheme.*fallback}i, 'warning for unknown scheme'); 
    3939} 
    4040 
    4141{ 
    42     my ( $st, $out, $err ) = run_cmd [qw(-f utf-8 ./non-existing/file)]; 
     42    my ( $st, $out, $err ) = run_cmd [qw(-f utf-8 -t ascii ./non-existing/file)]; 
    4343    like( $err, qr{can't open}i ); 
    4444}