|
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 |
- |
|
|