simcop2387/treedeps
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Some more status output.

Browse source
This commit is contained in:
Ryan Voots 2017-03-27 19:59:54 -04:00
parent 0540cd7d3e
commit dc0448db3a
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test.pl
View file

@ -87,6 +87,7 @@ sub dep_order {
my @orders; my @orders;
for my $dep ($module->depends->@*) { for my $dep ($module->depends->@*) {
print "\r", $dep->name, " ";
push @orders, dep_order($dep); push @orders, dep_order($dep);
} }
@ -105,10 +106,6 @@ sub run_cpanm {
run \@cmd, '>&', \$out; run \@cmd, '>&', \$out;
my $exitcode = $?; my $exitcode = $?;
if ($exitcode) {
print "command failed\n"; # TODO save output?
print $out;
}
return ($exitcode, $out); return ($exitcode, $out);
} }
@ -133,8 +130,15 @@ sub test_module {
} }
} }
$|++;
print "Init\n";
my $foo = Module->new_module('Moose'); my $foo = Module->new_module('Moose');
print Dumper([map {$_->name} uniq dep_order($foo)]); print "Building dep list\n";
my @modules = map {$_->name} uniq dep_order($foo);
test_module('Clone'); for my $mod (@modules) {
print "Testing $mod\n";
test_module($mod);
}