[svn:DBD-Pg] r12629 - DBD-Pg/trunk/t

Author: turnstep
Date: Mon Mar 23 18:12:02 2009
New Revision: 12629

Modified:
   DBD-Pg/trunk/t/03dbmethod.t

Log:
Remove temporary filenames from lo_import and lo_export.


Modified: DBD-Pg/trunk/t/03dbmethod.t
==============================================================================
--- DBD-Pg/trunk/t/03dbmethod.t	(original)
+++ DBD-Pg/trunk/t/03dbmethod.t	Mon Mar 23 18:12:02 2009
@@ -1387,6 +1387,7 @@
 	my $handle = $dbh->pg_lo_import($filename);
 	my $objid = $handle;
 	ok ($handle, $t);
+	unlink $filename;
 
 	$t='DB handle method "pg_lo_import" inserts correct data';
 	$SQL = "SELECT data FROM pg_largeobject where loid = $handle";
@@ -1413,6 +1414,7 @@
 	is ($result, 7, $t);
 	is ($data, "abc\ndef", $t);
 	close $fh or warn 'Could not close tempfile';
+	unlink $filename;
 }
 
 ## Same pg_lo_* tests, but with AutoCommit on
@@ -1546,6 +1548,7 @@
 	$info = $sth->fetchall_arrayref()->[0][0];
 	is_deeply ($info, "abc\ndef", $t);
 
+	unlink $filename;
 	$dbh->{AutoCommit} = 1;
 
 	my $objid = $handle;
@@ -1559,6 +1562,7 @@
 	is ($result, 7, $t);
 	is ($data, "abc\ndef", $t);
 	close $fh or warn 'Could not close tempfile';
+	unlink $filename;
 }
 $dbh->{AutoCommit} = 0;