3 # $Id: mkrandom,v 1.2 2002-11-03 17:02:48 mike Exp $
9 print STDERR "Usage: $0 [<number-of-trees>]\n";
11 } elsif (@ARGV == 1) {
16 for (my $i = 0; $i < $n; $i++) {
17 print $i+1, " of $n -- ";
18 my $query=`CQLGenerator ../../etc/generate.properties`;
20 my $canon=`CQLParser -c '$query'`;
21 if ($canon eq $query) {
24 print "ERROR: canonicalised query differs from original\n";
28 print "Passed $nok/$n -- ", int(100*$nok/$n), "%\n";