36 lines
613 B
Perl
36 lines
613 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Git::Wrapper;
|
|
|
|
my $target_branch = $ENV{TARGET_BRANCH} // 'main';
|
|
|
|
my $git = Git::Wrapper->new('.');
|
|
|
|
my $on_target = grep { "* $target_branch" eq $_ } $git->branch;
|
|
|
|
if ($on_target) {
|
|
pass "nothing to check here";
|
|
}
|
|
else {
|
|
my @diff = $git->diff($target_branch);
|
|
ok test_file_modified(@diff), "added to a test file";
|
|
}
|
|
|
|
sub test_file_modified (@diff) {
|
|
my $in_test_file = 0;
|
|
for (@diff) {
|
|
if (/^diff/) {
|
|
$in_test_file = /\.t$/;
|
|
next;
|
|
}
|
|
|
|
return 1 if $in_test_file and /^\+/;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
done_testing;
|