From 0352119ee338727639e626fab1913ff51bdb6c0e Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Thu, 11 Mar 2010 18:37:46 +0100 Subject: [PATCH] regress: Start to test configuration menu in bweb --- regress/tests/bweb-test.pl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) 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"); + } +} -- 2.39.2