+++ /dev/null
-#!/usr/bin/perl -w
-
-
-use strict;
-
-my $n = 1;
-if (@ARGV > 1) {
- print STDERR "Usage: $0 [<number-of-trees>]\n";
- exit 1;
-} elsif (@ARGV == 1) {
- $n = $ARGV[0];
-}
-
-my $nok = 0;
-for (my $i = 0; $i < $n; $i++) {
- print $i+1, " of $n -- ";
- my $query=`CQLGenerator ../../etc/generate.properties`;
- print $query;
- my $canon=`CQLParser -c '$query'`;
- if ($canon eq $query) {
- $nok++;
- } else {
- print "ERROR: canonicalised query differs from original\n";
- }
-}
-
-print "Passed $nok/$n -- ", int(100*$nok/$n), "%\n";