cleanup_policy can be set from ENV

nothingmuch · Jun 22, 2008 · dc3da4b · dc3da4b
1 parent 672780a
commit dc3da4b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/lib/Test/TempDir/Factory.pm b/lib/Test/TempDir/Factory.pm
@@ -39,6 +39,12 @@ has dir_name => (
 	default => sub { dir($ENV{TEST_TEMPDIR} || $ENV{TEST_TMPDIR} || "tmp") },
 );
 
+has cleanup_policy => (
+	isa => "Str",
+	is  => "rw",
+	default => sub { $ENV{TEST_TEMPDIR_CLEANUP} || "success" },
+);
+
 has t_dir => (
 	isa => Dir,
 	is  => "rw",
@@ -85,6 +91,7 @@ sub create {
 	my $h = $self->new_handle(
 		dir => $path,
 		( defined($lock) ? ( lock => $lock ) : () ),
+		cleanup_policy => $self->cleanup_policy,
 		@args,
 	);
 

diff --git a/t/factory.t b/t/factory.t
@@ -12,7 +12,7 @@ use ok 'Test::TempDir::Factory';
 
 my $tmp = dir( tempdir( CLEANUP => 1 ) );
 
-delete @ENV{qw(TEST_TEMPDIR TEST_TMPDIR)};
+delete @ENV{qw(TEST_TEMPDIR TEST_TMPDIR TEST_TEMPDIR_CLEANUP)};
 
 my $f = Test::TempDir::Factory->new;