From: Ken Youens-Clark <kclark@cpan.org>
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";