In test mode, don't scare the user and tell him that no package will be

actually installed or removed.

1 files changed, 6 insertions, 0 deletions

diff --git a/urpmi b/urpmi
index bfb9eae5..985b494d 100755
--- a/urpmi
+++ b/urpmi
@@ -486,6 +486,9 @@ have to be removed for others to be upgraded:\n%s\n", $list));
     }
 
     my $msg = N("The following packages have to be removed for others to be upgraded:\n%s", $list);
+    if ($test) {
+	$msg = "$msg\n" . N("(test only, removal will not be actually done)");
+    }
     if ($urpm->{options}{auto}) {
 	message($msg);
     } else {
@@ -534,6 +537,9 @@ if (@root_only) {
     my $msg = $#to_install
       ? N("To satisfy dependencies, the following packages are going to be installed")
       : N("To satisfy dependencies, the following package is going to be installed");
+    if ($test) {
+	$msg = "$msg\n" . N("(test only, installation will not be actually done)");
+    }
     my $msg2 = N("Proceed with the installation of the %d packages? (%d MB)", $urpm->{nb_install}, toMb($sum));
     my $p = join "\n", @to_install;
     my $noexpr = N("Nn");