- use do_pkgs->ensure_is_installed instead of do_pkgs->install where it's easy to do so

- do_pkgs->install won't do anything when $::testing

we need a ensure_are_installed

we also need to share more package pkgs_interactive code which is hosted in install_any and standalone

1 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 84e9d1b2e..b05301b5f 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -164,6 +164,11 @@ sub install {
 
     return 1 if is_installed($o, @l);
 
+    if ($::testing) {
+	log::l("i would install packages " . join(' ', @l));
+	return 1;
+    }
+
     my $wait;
     if ($o->{in}->isa('interactive::newt')) {
 	$o->{in}->suspend;