Revision d4d655d8
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 |
our $singlefileonly = 0;
|
|
| 64 |
my $singlefileonly = 0;
|
|
| 65 | 65 |
if ($_[0] eq "singlefileonly") {
|
| 66 | 66 |
$singlefileonly = 1; |
| 67 | 67 |
shift; |
| ... | ... | |
| 117 | 117 |
foreach my $scriptdir (@_) {
|
| 118 | 118 |
opendir(SCRIPTS, 't/selenium/testscripts/' . $scriptdir) or die "Can't open directory!" . $!; |
| 119 | 119 |
foreach (sort readdir(SCRIPTS)) {
|
| 120 |
require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_) if ( $_ =~ /^\w\d\d\d.*\.t$/);
|
|
| 120 |
if ( $_ =~ /^\w\d\d\d.*\.t$|^\d\d\d.*\.t$/ && !$sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_}) {
|
|
| 121 |
require_ok("t/selenium/testscripts/". $scriptdir . "/" . $_);
|
|
| 122 |
$sel->{ran_tests}{"t/selenium/testscripts/". $scriptdir . "/" . $_} = 1;
|
|
| 123 |
} |
|
| 121 | 124 |
} |
| 122 | 125 |
closedir(SCRIPTS); |
| 123 | 126 |
} |
| 124 | 127 |
} |
| 125 | 128 |
else {
|
| 126 |
foreach (@_) { require_ok($_); }
|
|
| 129 |
foreach (@_) {
|
|
| 130 |
if ( $_ =~ /^.*\/\w\d\d\d.*\.t$|^.*\/\d\d\d.*\.t$/ && !$sel->{ran_tests}{$_}) {
|
|
| 131 |
require_ok($_); |
|
| 132 |
$sel->{ran_tests}{$_} = 1;
|
|
| 133 |
} |
|
| 134 |
} |
|
| 127 | 135 |
} |
| 128 | 136 |
if($!) {
|
| 129 | 137 |
@! = ("Test fehlgeschlagen!");
|
Auch abrufbar als: Unified diff
Hinzufügen der globalen Testscripte, welche die einzelnene Test koordienieren und aufrufen.