utils/scancpan: add a check of XS dependencies in generated test

The XS modules have a high propability to fail (compared to Pure Perl modules),
so it is valuable to check XS dependencies before the check of the main module.

Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
This commit is contained in:
Francois Perrad 2019-03-29 19:05:24 +01:00 committed by Thomas Petazzoni
parent 573d15b079
commit f4a30ae5bd

View File

@ -845,6 +845,14 @@ while (my ($distname, $dist) = each %dist) {
say {$fh} qq{};
say {$fh} qq{ def test_run(self):};
say {$fh} qq{ self.login()};
foreach my $dep (sort grep { $is_xs{$_} } @indirect) {
$dep =~ s|-|::|g;
say {$fh} qq{ self.module_test("${dep}")};
}
foreach my $dep (sort grep { $is_xs{$_} } @{$deps_runtime{$distname}}) {
$dep =~ s|-|::|g;
say {$fh} qq{ self.module_test("${dep}")};
}
say {$fh} qq{ self.module_test("${modname}")};
close $fh;
}