[svn:dbi] r14346 - dbi/trunk/t

[REHSACK]

Author: REHSACK
Date: Sat Aug 28 00:28:41 2010
New Revision: 14346

Modified:
   dbi/trunk/t/41prof_dump.t
   dbi/trunk/t/42prof_data.t

Log:
clean up after testing


Modified: dbi/trunk/t/41prof_dump.t
==============================================================================
--- dbi/trunk/t/41prof_dump.t   (original)
+++ dbi/trunk/t/41prof_dump.t   Sat Aug 28 00:28:41 2010
@@ -32,7 +32,11 @@
     use_ok( 'DBI::ProfileDumper' );
 }
 
-my $prof_file = "dbi$$.prof";
+my $prof_file   = "dbi$$.prof";
+my $prof_backup = $prof_file . ".prev";
+END { 1 while unlink $prof_file;
+      1 while unlink $prof_backup; }
+
 my $dbh = DBI->connect("dbi:ExampleP:", '', '', 
                        { RaiseError=>1, 
Profile=>"2/DBI::ProfileDumper/File:$prof_file" });
 isa_ok( $dbh, 'DBI::db' );

Modified: dbi/trunk/t/42prof_data.t
==============================================================================
--- dbi/trunk/t/42prof_data.t   (original)
+++ dbi/trunk/t/42prof_data.t   Sat Aug 28 00:28:41 2010
@@ -30,6 +30,9 @@
 my $sql = "select mode,size,name from ?";
 
 my $prof_file = "dbi$$.prof";
+my $prof_backup = $prof_file . ".prev";
+END { 1 while unlink $prof_file;
+      1 while unlink $prof_backup; }
 
 my $dbh = DBI->connect("dbi:ExampleP:", '', '', 
                        { RaiseError=>1, 
Profile=>"6/DBI::ProfileDumper/File:$prof_file" });