Revision 004280c1
Von Thomas Kasulke vor etwa 17 Jahren hinzugefügt
| t/selenium/AllTests.t | ||
|---|---|---|
| 61 | 61 |
# plan tests => 200; # Need to be cutomized |
| 62 | 62 |
# } |
| 63 | 63 |
sub init_server {
|
| 64 |
my $singlefileonly = 0; |
|
| 65 |
if ($_[0] eq "singlefileonly") {
|
|
| 66 |
$singlefileonly = 1; |
|
| 67 |
shift; |
|
| 68 |
} |
|
| 64 | 69 |
if(!server_is_running) {
|
| 65 | 70 |
print "No selenium server found! " |
| 66 | 71 |
."Maybe you forgot to start it or " |
| ... | ... | |
| 108 | 113 |
|
| 109 | 114 |
diag('Starting Selenium tests...');
|
| 110 | 115 |
|
| 111 |
foreach my $scriptdir (@_) {
|
|
| 112 |
opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir); |
|
| 113 |
foreach (sort readdir(SCRIPTS)) {
|
|
| 114 |
require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_) if ( $_ =~ /^\w\d\d\d.*\.t$/);
|
|
| 116 |
if(!$singlefileonly) {
|
|
| 117 |
foreach my $scriptdir (@_) {
|
|
| 118 |
opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir); |
|
| 119 |
foreach (sort readdir(SCRIPTS)) {
|
|
| 120 |
require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_) if ( $_ =~ /^\w\d\d\d.*\.t$/);
|
|
| 121 |
} |
|
| 122 |
closedir(SCRIPTS); |
|
| 115 | 123 |
} |
| 116 |
closedir(SCRIPTS); |
|
| 124 |
} |
|
| 125 |
else {
|
|
| 126 |
foreach (@_) { require_ok($_); }
|
|
| 117 | 127 |
} |
| 118 | 128 |
if($!) {
|
| 119 | 129 |
@! = ("Test fehlgeschlagen!");
|
Auch abrufbar als: Unified diff
Angepasst an Einzelfalltests und einfügen von TODO Blocks, damit bei der nächsten Selenium Version dann komplett getestet werden kann.