From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 11 Mar 2010 17:37:46 +0000 (+0100)
Subject: regress: Start to test configuration menu in bweb
X-Git-Tag: Release-5.2.1~1608
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=0352119ee338727639e626fab1913ff51bdb6c0e;p=bacula%2Fbacula

regress: Start to test configuration menu in bweb
---

diff --git a/regress/tests/bweb-test.pl b/regress/tests/bweb-test.pl
index 82e67a3509..4dac4dfd95 100755
--- a/regress/tests/bweb-test.pl
+++ b/regress/tests/bweb-test.pl
@@ -481,3 +481,25 @@ if ($part{overview}) {
     $sel->is_text_present_ok("backup");
     $sel->is_text_present_ok("Full Set");
 }
+
+if ($part{config}) {
+    $sel->open_ok("/cgi-bin/bweb/bweb.pl");
+    $sel->click_ok("link=Configuration");
+    $sel->wait_for_page_to_load_ok("30000");
+    $sel->is_text_present_ok("Main Configuration");
+
+    $sel->click_ok("//button[\@name='action' and \@value='edit_main_conf']");
+    $sel->wait_for_page_to_load_ok("30000");
+    $sel->is_text_present_ok("Main Configuration");
+    my $dbi = $sel->get_text("dbi");
+    my $user = $sel->get_text("user");
+    my $pass = $sel->get_text("password");
+    my $histo = $sel->get_text("stat_job_table");
+
+    print "dbi=$dbi histo=$histo\n";
+    if ($histo eq 'Job') {
+        $sel->type_ok("stat_job_table", "JobHisto");
+    } else {
+        $sel->type_ok("stat_job_table", "Job");
+    }
+}