1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 53c3260f3..de8b1d752 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -113,9 +113,11 @@ sub main {
     $notebook_widget->signal_connect(realize => $update_all);
     $w->sync;
     $done_button->grab_focus;
-    $in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"), 
-			[ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return
-      if $::isStandalone;
+    if (!$::testing) {
+      $in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"), 
+			  [ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return
+        if $::isStandalone;
+    }
 
     undef $initializing;
     $w->main;