X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Frandom%2Fmkrandom;fp=test%2Frandom%2Fmkrandom;h=185f2c38cd7f7915930f69ee6811460c7494f7f3;hb=f2834b0b08f014e37438f54697bf6a92f325bd23;hp=f3005347ec925d888d999e00af1e08c25edb9e54;hpb=cab72229696568fdc524a5218b6231a0ccbda4ff;p=cql-java-moved-to-github.git

diff --git a/test/random/mkrandom b/test/random/mkrandom
index f300534..185f2c3 100755
--- a/test/random/mkrandom
+++ b/test/random/mkrandom
@@ -12,12 +12,17 @@ if (@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 ne $query) {
+    if ($canon eq $query) {
+	$nok++;
+    } else {
 	print "ERROR: canonicalised query differs from original\n";
     }
 }
+
+print "Passed $nok/$n -- ", int(100*$nok/$n), "%\n";