There are $nissues issues containing $issapp approved test cases, and $noissapp test cases without an associated issue.
Relative URLs listed in this table should be resolved against the base URI http://www.w3.org/2000/10/rdf-tests/rdfcore/
__END
}
foreach $is ( sort keys %issues ) {
$ntc = scalar @{$issues{$is}};
if ($is eq $NONE) {
print TABLE <<"__END";
| Test cases without an issue: $ntc tests |
|---|
__END
} else {
if ($is =~ /^(.*#)(.*)$/) {
$short = $2;
} else {
$short = $is;
}
print TABLE <<"__END";
| Issue: $short has $ntc tests |
|---|
__END
}
my @ppt = (); # positive parser tests
my @npt = (); # negative parser tests
my @pet = (); # positive entailment tests (all)
my @net = (); # negative entailment tests (all)
my @misct = (); # miscellaneous tests
foreach $testname (sort @{$issues{$is}}) {
$test = $tests{$testname};
if ($$test{type} eq "test:PositiveParserTest") {
push @ppt, $testname;
} elsif ($$test{type} eq "test:NegativeParserTest") {
push @npt, $testname;
} elsif ($$test{type} eq "test:PositiveEntailmentTest") {
push @pet, $testname;
} elsif ($$test{type} eq "test:NegativeEntailmentTest") {
push @net, $testname;
} elsif ($$test{type} eq "test:MiscellaneousTest") {
push @misct, $testname;
} else {
print "WARNING! Can't produce HTML for test $testname: unrecognised type\n";
}
}
if (scalar @ppt > 0) {
$nppt = scalar @ppt;
print TABLE <<"__END";
| Positive parser tests (test cases: $nppt) |
|---|
| Input files | Output file | Warning? | Approved |
|---|
__END
foreach $testname (@ppt) {
$test = $tests{$testname};
print TABLE " | ";
foreach $in (sort @{$$test{inputDocs}}) {
print TABLE bleah(${$in}{where}), " ";
}
print TABLE " | ", bleah(${$$test{outputDoc}}{where}), " | ";
print TABLE (defined($$test{warn}) ? $$test{warn} : " ");
print TABLE " | ", approval($test), " |
\n";
} # foreach $testname (@ppt)
} # if (scalar @ppt)
if (scalar @npt > 0) {
$nnpt = scalar @npt;
print TABLE <<"__END";
| Negative parser tests (test cases: $nnpt) |
|---|
| Input file | Approved |
|---|
__END
foreach $testname (@npt) {
$test = $tests{$testname};
print TABLE " | ", bleah(${$$test{inputDoc}}{where});
print TABLE " | ", approval($test), " |
\n";
} # foreach $testname (@npt)
} # if (scalar @npt)
if (scalar @pet > 0) {
$n = scalar @pet;
print TABLE <<"__END";
| Positive Entailment tests (test cases: $n) |
|---|
| Rules | Premise files | Conclusion file | Warning? | Approved |
|---|
__END
foreach $testname (@pet) {
$test = $tests{$testname};
print TABLE " | ";
# Figure out entailment rules to use.
my @rules = sort @{$$test{entailmentRules}};
my @dts = sort @{$$test{datatypeSupport}};
print TABLE rules(\@rules,\@dts);
print TABLE " | ";
foreach $in (sort @{$$test{premiseDocs}}) {
print TABLE bleah(${$in}{where});
}
print TABLE " | ", bleah(${$$test{conclusionDoc}}{where}), " | ";
print TABLE (defined($$test{warn}) ? $$test{warn} : " ");
print TABLE " | ", approval($test), " |
\n";
} # foreach $testname (@pet)
} # if (scalar @pet)
if (scalar @net > 0) {
$n = scalar @net;
print TABLE <<"__END";
| Negative Entailment tests (test cases: $n) |
|---|
| Rules | Premise files | Conclusion file | Warning? | Approved |
|---|
__END
foreach $testname (@net) {
$test = $tests{$testname};
print TABLE " | ";
# Figure out entailment rules to use.
my @rules = sort @{$$test{entailmentRules}};
my @dts = sort @{$$test{datatypeSupport}};
print TABLE rules(\@rules,\@dts);
print TABLE " | ";
foreach $in (sort @{$$test{premiseDocs}}) {
print TABLE bleah(${$in}{where});
}
print TABLE " | ", bleah(${$$test{conclusionDoc}}{where}), " | ";
print TABLE (defined($$test{warn}) ? $$test{warn} : " ");
print TABLE " | ", approval($test), " |
\n";
} # foreach $testname (@net)
} # if (scalar @net)
if (scalar @misct > 0) {
$n = scalar @misct;
print TABLE <<"__END";
| Miscellaneous tests (test cases: $n) |
|---|
| Related documents | Approved |
|---|
__END
foreach $testname (@misct) {
$test = $tests{$testname};
print TABLE " | ";
foreach $in (sort @{$$test{docs}}) {
print TABLE bleah(${$in}{where}), " ";
}
print TABLE " | ", approval($test), " |
\n";
} # foreach $testname (@misct)
} # if (scalar @misct)
}
print TABLE <<"__END";
__END
close(TABLE);