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