[Bps-public-commit] SD branch, master, updated. 0.73-31-gd9c7be2

[Alex M Vandiver]

The branch, master has been updated
       via  d9c7be22a9c07e156be68c73bdd301c6753adbc7 (commit)
      from  7afed64ed38eec5cee98567f4b879550574b6790 (commit)

Summary of changes:
 t/sd-redmine/clone.t     |    2 +-
 t/sd-trac/basic.t        |    2 +-
 t/sd-trac/push-comment.t |    2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit d9c7be22a9c07e156be68c73bdd301c6753adbc7
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Dec 16 13:17:57 2009 -0500

    Make tests clean up after themselves

diff --git a/t/sd-redmine/clone.t b/t/sd-redmine/clone.t
index 8d2ce84..c18a15a 100644
--- a/t/sd-redmine/clone.t
+++ b/t/sd-redmine/clone.t
@@ -29,7 +29,7 @@ my @tickets;
 my $the_ticket_with_histories;
 
 Given qr/a clean sd repo/ => sub {
-    $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
+    $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 1 ) . '/_svb';
     diag "export SD_REPO=" . $ENV{'PROPHET_REPO'} . "\n";
 };
 
diff --git a/t/sd-trac/basic.t b/t/sd-trac/basic.t
index 413e947..613903f 100644
--- a/t/sd-trac/basic.t
+++ b/t/sd-trac/basic.t
@@ -66,7 +66,7 @@ ok( $ticket->update( summary => 'The product does not contain a pony' ),
     "updated!" );
 unlike( $ticket->summary, qr/moose/, "The summary does not look like a moose" );
 
-my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.txt');
+my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.txt', UNLINK => 1);
 print $fh "TIMTOWTDI\n";
 close $fh;
 sleep 2; # to make trac happy
diff --git a/t/sd-trac/push-comment.t b/t/sd-trac/push-comment.t
index 309643a..b0c70ed 100644
--- a/t/sd-trac/push-comment.t
+++ b/t/sd-trac/push-comment.t
@@ -84,7 +84,7 @@ test_push_of_attachment();
 
 sub test_push_of_attachment {
 
-	my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.txt');
+	my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.txt', UNLINK => 1);
 	print $fh "TIMTOWTDI\n";
 	close $fh;
 	sleep 2; # to make trac happy

-----------------------------------------------------------------------