In a long dependency chain, ensure that some projects don't get insta…

…lled twice
tadzik · Jan 10, 2013 · fcfec51 · fcfec51
1 parent dc81db8
commit fcfec51
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/lib/Pies.pm b/lib/Pies.pm
@@ -77,6 +77,8 @@ class Pies {
                           $notests, $isdep as Bool) {
         unless $nodeps {
             for self.deps-helper($bone) {
+                next unless $.ecosystem.project-get-state($bone)
+                    eq 'absent';
                 self.resolve-helper($_, $nodeps, $notests, 1);
             }
         }

diff --git a/t/stubs.t b/t/stubs.t
@@ -125,9 +125,9 @@ check-mock($i, *.called('install', times => 4));
 
 $p.resolve($proj.name, :notests);
 
-check-mock($f, *.called('fetch',   times => 7));
-check-mock($b, *.called('build',   times => 7));
+check-mock($f, *.called('fetch',   times => 5));
+check-mock($b, *.called('build',   times => 5));
 check-mock($t, *.called('test',    times => 4));
-check-mock($i, *.called('install', times => 7));
+check-mock($i, *.called('install', times => 5));
 
 # vim: ft=perl6