Lines 129-135
sub get_files_to_test {
Link Here
|
129 |
my $dev_files = Koha::Devel::Files->new( { context => $self->{context} } ); |
129 |
my $dev_files = Koha::Devel::Files->new( { context => $self->{context} } ); |
130 |
my $no_history; |
130 |
my $no_history; |
131 |
if ( $self->{incremental_run} ) { |
131 |
if ( $self->{incremental_run} ) { |
132 |
my @koha_commit_history = qx{git log --pretty=format:"%h"}; |
132 |
my @koha_commit_history = qx{git log --abbrev=10 --pretty=format:"%h"}; |
133 |
my @tested_commit_history = qx{ls $self->{git_repo_dir}/$self->{test_dir}}; |
133 |
my @tested_commit_history = qx{ls $self->{git_repo_dir}/$self->{test_dir}}; |
134 |
chomp for @koha_commit_history, @tested_commit_history; |
134 |
chomp for @koha_commit_history, @tested_commit_history; |
135 |
if (@tested_commit_history) { |
135 |
if (@tested_commit_history) { |
Lines 169-175
sub report_results {
Link Here
|
169 |
|
169 |
|
170 |
return unless $self->{report}; |
170 |
return unless $self->{report}; |
171 |
|
171 |
|
172 |
my $commit_id = qx{git rev-parse --short HEAD}; |
172 |
my $commit_id = qx{git rev-parse --short=10 HEAD}; |
173 |
chomp $commit_id; |
173 |
chomp $commit_id; |
174 |
|
174 |
|
175 |
my $failure_file = "$self->{git_repo_dir}/$self->{test_dir}/$commit_id"; |
175 |
my $failure_file = "$self->{git_repo_dir}/$self->{test_dir}/$commit_id"; |
176 |
- |
|
|