#
#######################################################################
no strict;
- push @INC, ['/tselenium'];
+ push @INC, ['/t/selenium'];
use vars qw( $lxdebug $lxtest $sel );
use strict;
-
- use Test::WWW::Selenium;
use Carp;
- use Test::More tests => 86; # Need to be cutomized
- diag('Pretests and initialisation');
+ use Test::WWW::Selenium;
+ use Test::More;
+ use IO::Socket;
- eval { require('t/lxtest.conf'); };
+ eval { require('t/lxtest.conf'); };
if ($@) {
diag("No test configuration found in t/lxtest.conf.\n
Maybe you forget to copy t/lxtest.conf.default to t/lxtest.conf. Exit test...\n");
exit 0;
};
+ sub server_is_running {
+ return IO::Socket::INET->new(PeerAddr => $ENV{SRC_HOST} || $lxtest->{seleniumhost},
+ PeerPort => $ENV{SRC_PORT} || $lxtest->{seleniumport},
+ );
+ }
+ if (server_is_running) {
+ plan tests => 204; # Need to be cutomized
+ }
+ else {
+ plan skip_all => "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};
$lxtest->{testuserpasswd} = $lxtest->{test_id};
ok(defined $lxtest->{dbuser}, "found dbuser in config");
ok(defined $lxtest->{dbpasswd}, "found dbpasswd in config");
- $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?path=$lxtest->{path}&rpw=$lxtest->{rpw}&nextsub=list_users&action=Weiter";
+ $lxtest->{lxadmin} = $lxtest->{lxbaseurl} . "admin.pl?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});
+ browser_url => $lxtest->{lxadmin},
+ auto_stop => '0',
+ );
};
if ($@) {
diag("No Selenium Server running, or wrong preferences\n\n");
diag('Starting Selenium tests...');
- require('t/selenium/001CreateTestDatabase.t');
- require('t/selenium/002CreateTestUser.t');
-
- require('t/selenium/998DeleteTestUser.t');
- require('t/selenium/999DeleteTestDatabase.t');
+ opendir(SCRIPTS, 't/selenium/testscripts');
+ my @testscripts = sort readdir(SCRIPTS);
+
+ foreach my $script (@testscripts){
+ my $file = "t/selenium/testscripts/" . $script;
+ require_ok($file) if ( $script =~ /^\d\d\d.*\.t$/ );
+ }
+ exit 1;
$sel=''; # Destroy selenium object