projects
/
cql-java-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Failure to compile a query counts as a failed test!
[cql-java-moved-to-github.git]
/
test
/
regression
/
runtests
diff --git
a/test/regression/runtests
b/test/regression/runtests
index
008c271
..
070a921
100755
(executable)
--- a/
test/regression/runtests
+++ b/
test/regression/runtests
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-# $Id: runtests,v 1.9 2007-06-21 10:10:32 mike Exp $
+# $Id: runtests,v 1.10 2007-06-21 14:54:32 mike Exp $
use IO::File;
use strict;
use IO::File;
use strict;
@@
-28,11
+28,12
@@
while (<sections/*>) {
my $afile = $qfile;
$afile =~ s/\.cql$/.xcql/;
print " query $_ - $query ";
my $afile = $qfile;
$afile =~ s/\.cql$/.xcql/;
print " query $_ - $query ";
- my $correct = read_file("$norman < $afile |");
- my $tested = read_file("$compiler < $qfile | $norman |")
- or print "\n *** test compiler exited non-zero\n";
$ntests++;
$ntests++;
- if ($tested eq $correct) {
+ my $correct = read_file("$norman < $afile |");
+ 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 "OK\n";
$ncorrect++;
} else {