From aac3b20f3546338a8bcda64d5e4a758673734b87 Mon Sep 17 00:00:00 2001 From: Michael Reddick Date: Thu, 20 Jun 2013 15:20:41 -0500 Subject: Test case for compile error --- t/lib/Test/Class/Refresh.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 't/lib') diff --git a/t/lib/Test/Class/Refresh.pm b/t/lib/Test/Class/Refresh.pm index 7720d62..5e3bf40 100644 --- a/t/lib/Test/Class/Refresh.pm +++ b/t/lib/Test/Class/Refresh.pm @@ -37,9 +37,10 @@ sub rcopy { } sub prepare_temp_dir_for { - my ($test_id) = @_; + my ($test_id, $subdir) = @_; + $subdir ||= 'before'; - my $from_dir = 't/data/' . $test_id . '/before'; + my $from_dir = 't/data/' . $test_id . "/$subdir"; my $to_dir = File::Temp->newdir; rcopy($from_dir, $to_dir); @@ -48,9 +49,10 @@ sub prepare_temp_dir_for { } sub update_temp_dir_for { - my ($test_id, $to_dir) = @_; + my ($test_id, $to_dir, $subdir) = @_; + $subdir ||= 'after'; - my $from_dir = 't/data/' . $test_id . '/after'; + my $from_dir = 't/data/' . $test_id . "/$subdir"; rcopy($from_dir, $to_dir); } -- cgit v1.2.3-54-g00ecf