Skip to content

Commit

Permalink
12-fail.t: fix trailing spaces in the test source itself !!!!!!
Browse files Browse the repository at this point in the history
Yes, 12-fail.t was so broken that it had trailing spaces...
  • Loading branch information
dolmen committed Sep 8, 2012
1 parent c0662b4 commit 1ec979a
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions t/12-fail.t
Expand Up @@ -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' );

}
{
Expand Down Expand Up @@ -57,14 +57,14 @@ sub run_ok {
unlink $outfile;
}

sub ascii_string {
sub ascii_string {
my $o = "<before \r\n between \r\n after \n normal >";
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;
Expand Down

0 comments on commit 1ec979a

Please sign in to comment.