#!/usr/bin/perl -w

# $Id: mkrandom,v 1.2 2002-11-03 17:02:48 mike Exp $

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";