Skip to content
Browse files

Add set_test to Test.pm.

  • Loading branch information...
1 parent 02e34e8 commit 853529a20772601ff08af0d165b8f8da56167a44 @pjcj committed Oct 20, 2013
Showing with 8 additions and 0 deletions.
  1. +8 −0 lib/Devel/Cover/Test.pm
View
8 lib/Devel/Cover/Test.pm
@@ -53,6 +53,13 @@ sub new
$self->get_params
}
+
+sub set_test {
+ my $self = shift;
+ my ($test) = @_;
+ $self->{test} = $test;
+}
+
sub shell_quote
{
my ($item) = @_;
@@ -234,6 +241,7 @@ sub run_test
}
my ($base, $v) = $self->cover_gold;
+ # print STDERR "[$base,$v]\n";
return 1 unless $v; # assume we are generating the golden results
my $gold = "$base.$v";

0 comments on commit 853529a

Please sign in to comment.
Something went wrong with that request. Please try again.