+
+# if (server_is_running) {
+# plan tests => 200; # Need to be cutomized
+# }
+ sub init_server {
+ my $singlefileonly = 0;
+ if ($_[0] eq "singlefileonly") {
+ $singlefileonly = 1;
+ shift;
+ }
+ if(!server_is_running) {
+ print "No selenium server found! "
+ ."Maybe you forgot to start it or "
+ ."the preferences in t/lxtest.conf doesen't fit to your system";
+ exit 0;
+ }
+
+ diag('Pretests and initialisation');
+
+
+
+ $lxtest->{test_id} = time; # create individual ids by unixtime
+ $lxtest->{testuserlogin} = $lxtest->{testlogin} . $lxtest->{test_id} if(!$lxtest->{testuserlogin});
+ $lxtest->{testuserpasswd} = $lxtest->{test_id} if(!$lxtest->{testuserpasswd});
+ $lxtest->{db} = $lxtest->{db} . $lxtest->{test_id} if(!($lxtest->{db} =~ /^seleniumtestdatabase[0-9]{10}$/));
+
+ ok(defined $lxtest->{rpw}, "Get root password");
+
+ ok(defined $lxtest->{dbhost}, "found dbhost in config");
+ ok(defined $lxtest->{dbport}, "found dbport in config");
+ ok(defined $lxtest->{dbuser}, "found dbuser in config");
+ ok(defined $lxtest->{dbpasswd}, "found dbpasswd in config");
+
+ $lxtest->{lxadmin_url} = $lxtest->{lxbaseurl} . "admin.pl";
+ $lxtest->{lxadmin_with_get} = $lxtest->{lxadmin_url} . "?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";
+ $lxtest->{lxadmin} = $lxtest->{lxadmin_url} . "?rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";
+
+
+
+
+ eval { $sel = Test::WWW::Selenium->new(
+ host => $lxtest->{seleniumhost},
+ port => $lxtest->{seleniumport},
+ browser => $lxtest->{seleniumbrowser},
+ browser_url => $lxtest->{lxadmin},
+ auto_stop => '0',
+ );
+ };
+ if ($@) {
+ diag("No Selenium Server running, or wrong preferences\n\n");
+ exit 0;
+ }
+
+ ok(defined $sel, 'Creating Selenium Object');
+
+ diag('Starting Selenium tests...');
+
+ if(!$singlefileonly) {
+ foreach my $scriptdir (@_) {
+ opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir) or die "Can't open directory!" . $!;
+ foreach (sort readdir(SCRIPTS)) {
+ if ( $_ =~ /^\w\d\d\d.*\.t$|^\d\d\d.*\.t$/ && !$sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_}) {
+ require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_);
+ $sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_} = 1;
+ }
+ }
+ closedir(SCRIPTS);
+ }
+ }
+ else {
+ foreach (@_) {
+ if ( $_ =~ /^.*\/\w\d\d\d.*\.t$|^.*\/\d\d\d.*\.t$/ && !$sel->{ran_tests}{$_}) {
+ require_ok($_);
+ $sel->{ran_tests}{$_} = 1;
+ }
+ }
+ }
+ if($!) {
+ @! = ("Test fehlgeschlagen!");
+ }
+ $sel->stop();