print "FAIL: $name (ENV[$envname] not available!)\n";
}
-sub skip_testsuite($$)
+sub skip_testsuite($$$)
{
- my ($self, $name) = @_;
+ my ($self, $envname, $name) = @_;
print "SKIPPED: $name\n";
}
print INDEX "</tr>\n";
}
-sub skip_testsuite($$)
+sub skip_testsuite($$$)
{
- my ($self, $name) = @_;
+ my ($self, $envname, $name) = @_;
print INDEX "<tr>\n";
print INDEX " <td class=\"testSuite\">$name</td>\n";
- print INDEX " <td class=\"resultSkipped\" colspan=\"2\">SKIPPED</td>\n";
+ print INDEX " <td class=\"environment\">$envname</td>\n";
+ print INDEX " <td class=\"resultSkipped\">SKIPPED</td>\n";
print INDEX "</tr>\n";
}
print "FAIL: $name (ENV[$envname] not available!)\n";
}
-sub skip_testsuite($$)
+sub skip_testsuite($$$)
{
- my ($self, $name) = @_;
+ my ($self, $envname, $name) = @_;
print "SKIPPED: $name\n";
}
my $envname = $$_[1];
if (skip($name)) {
- $msg_ops->skip_testsuite($name);
+ $msg_ops->skip_testsuite($envname, $name);
$statistics->{SUITES_SKIPPED}++;
next;
}