From f2834b0b08f014e37438f54697bf6a92f325bd23 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@miketaylor.org.uk>
Date: Tue, 25 May 2010 16:06:12 +0200
Subject: [PATCH] Count iterations and summarise results.

---
 test/random/mkrandom |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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