X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=blobdiff_plain;f=t%2F12-fail.t;fp=t%2F12-fail.t;h=7a6f9f08f60cbd7ae4b63e653e5d914970500e14;hp=78238bedeb40addb37c3c463b8ccf854f15c2cf4;hb=1ec979a85aff746de645b4670694940728a9fb7c;hpb=c0662b43b1c86733553afed7453012f25c6360e9 diff --git a/t/12-fail.t b/t/12-fail.t index 78238be..7a6f9f0 100644 --- a/t/12-fail.t +++ b/t/12-fail.t @@ -13,7 +13,7 @@ $inc = "-I $inc" if $inc; open my $fh, '<', $filename or die $!; binmode( $fh, ':raw' ); my $content = <$fh>; - is( $content, ascii_string(), 'Data written to file is there when we look for it later' ); + is( $content, ascii_string(), 'Data written to file is there when we look for it later' ); } { @@ -57,14 +57,14 @@ sub run_ok { unlink $outfile; } -sub ascii_string { +sub ascii_string { my $o = ""; return $o x 3; } -sub make_raw_badfile { - my $tmpdir = tempdir( CLEANUP => 1 ); - my ( $fh, $filename ) = tempfile( DIR => $tmpdir, SUFFIX => '.tXt' ); +sub make_raw_badfile { + my $tmpdir = tempdir( CLEANUP => 1 ); + my ( $fh, $filename ) = tempfile( DIR => $tmpdir, SUFFIX => '.tXt' ); binmode $fh, ':raw'; print $fh ascii_string(); close $fh;