From f4a30ae5bd06357b1c1cab96a8d3708896451dea Mon Sep 17 00:00:00 2001 From: Francois Perrad Date: Fri, 29 Mar 2019 19:05:24 +0100 Subject: [PATCH] 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 Signed-off-by: Thomas Petazzoni --- utils/scancpan | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/utils/scancpan b/utils/scancpan index 8073ad1978..0e7585e312 100755 --- a/utils/scancpan +++ b/utils/scancpan @@ -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; } -- 2.30.2