Add test for closing file.

[dbsrgits/SQL-Translator.git] / t / 31dumper.t

diff --git a/t/31dumper.t b/t/31dumper.t
index add05a6..de39d5d 100644 (file)
--- 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";