From: Ken Youens-Clark Date: Thu, 11 Mar 2004 19:29:53 +0000 (+0000) Subject: Add test for closing file. X-Git-Tag: v0.06~135 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8061d279dc11d524e283db82e15002ab7df839f0;p=dbsrgits%2FSQL-Translator.git Add test for closing file. --- diff --git a/t/31dumper.t b/t/31dumper.t index add05a6..de39d5d 100644 --- a/t/31dumper.t +++ b/t/31dumper.t @@ -1,5 +1,6 @@ #!/usr/bin/perl # vim: set ft=perl: +# Test for Dumper producer use strict; use Config; @@ -40,6 +41,7 @@ ok( $output, 'Got dumper script' ); my ( $fh, $filename ) = tempfile( 'XXXXXXXX' ); print $fh $output; +close $fh or die "Can't close file '$filename': $!"; my $perl = $Config{'perlpath'}; my $cmd = "$perl -cw $filename";