From 4ac802ad9ae7e24d1e32f1c5b55f5bbb66edbc8c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 9 Sep 2013 12:46:46 +0200
Subject: do not show popup in testing mode

---
 perl-install/diskdrake/hd_gtk.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/diskdrake')

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;
-- 
cgit v1.2.1