More clean up, update readme

[cql-java-moved-to-github.git] / util / random / mkrandom

diff --git a/util/random/mkrandom b/util/random/mkrandom
new file mode 100755 (executable)
index 0000000..131e9e7
--- /dev/null
+++ b/util/random/mkrandom
@@ -0,0 +1,27 @@
+#!/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";