- my $tested = read_file("$compiler < $qfile | $norman |")
- or die "can't run test compiler '$compiler | $norman': $!";
- if ($tested ne $correct) {
- print " *** different XCQL output\n";
- print "=== correct ===\n$correct";
+ my $tested = read_file("$compiler < $qfile | $norman |");
+ if (!$tested) {
+ print "\n *** test compiler exited non-zero\n";
+ } elsif ($tested eq $correct) {
+ print "OK\n";
+ $ncorrect++;
+ } else {
+ print "\n *** XCQL output differs from $afile\n";