Lines 83-103
sub new {
Link Here
|
83 |
context => $args->{context}, |
83 |
context => $args->{context}, |
84 |
}; |
84 |
}; |
85 |
|
85 |
|
86 |
unless ( $self->{test_name} ) { |
86 |
if ( $self->{incremental_run} ) { |
87 |
my @caller_info = caller(); |
87 |
unless ( $self->{test_name} ) { |
88 |
my $script_filename = $caller_info[1]; |
88 |
my @caller_info = caller(); |
89 |
$self->{test_name} = basename($script_filename); |
89 |
my $script_filename = $caller_info[1]; |
90 |
$self->{test_name} =~ s|/|_|g; |
90 |
$self->{test_name} = basename($script_filename); |
91 |
$self->{test_name} =~ s|\..*$||g; |
91 |
$self->{test_name} =~ s|/|_|g; |
92 |
} |
92 |
$self->{test_name} =~ s|\..*$||g; |
93 |
|
|
|
94 |
if ( $self->{git_repo_dir} && $self->{repo_url} ) { |
95 |
unless ( -d $self->{git_repo_dir} ) { |
96 |
qx{git clone $self->{repo_url} $self->{git_repo_dir}}; |
97 |
} |
93 |
} |
98 |
qx{git -C $self->{git_repo_dir} fetch origin}; |
|
|
99 |
|
94 |
|
100 |
make_path("$self->{git_repo_dir}/$self->{test_name}"); |
95 |
if ( $self->{git_repo_dir} && $self->{repo_url} ) { |
|
|
96 |
unless ( -d $self->{git_repo_dir} ) { |
97 |
qx{git clone $self->{repo_url} $self->{git_repo_dir}}; |
98 |
} |
99 |
qx{git -C $self->{git_repo_dir} fetch origin}; |
100 |
|
101 |
make_path("$self->{git_repo_dir}/$self->{test_name}"); |
102 |
} |
101 |
} |
103 |
} |
102 |
|
104 |
|
103 |
bless $self, $class; |
105 |
bless $self, $class; |
104 |
- |
|
|