4 # Tests that all sample queries can be rendered into idempotent
10 $ENV{CLASSPATH} .= ":../../lib/cql-java.jar";
12 my($ntests, $ncorrect) = (0, 0);
14 while (<sections/*>) {
17 next if /^CVS$/ || /^10$/;
18 print "testing section $_ - ", read_file("$sdir/name"), "\n";
20 while (<$sdir/*.cql>) {
22 s@sections/([0-9]+/.*)\.cql@$1@;
23 my $query = read_file($qfile);
24 my $canonical = `CQLParser -c '$query'`;
26 my $maybe = `CQLParser -c '$canonical'`;
28 print "$query // $canonical ";
30 if ($maybe eq $canonical) {
39 print sprintf("%d of %d passed: %d%%\n",
40 $ncorrect, $ntests, (100 * $ncorrect) / $ntests);
45 $name = "<$name" if $name !~ /\|$/;
46 my $fh = new IO::File("$name")
47 or die "can't read '$name': $!";
48 my $contents = join('', <$fh>);