test/random/mkrandom

   1 #!/usr/bin/perl -w
   2
   3 # $Id: mkrandom,v 1.2 2002-11-03 17:02:48 mike Exp $
   4
   5 use strict;
   6
   7 my $n = 1;
   8 if (@ARGV > 1) {
   9     print STDERR "Usage: $0 [<number-of-trees>]\n";
  10     exit 1;
  11 } elsif (@ARGV == 1) {
  12     $n = $ARGV[0];
  13 }
  14
  15 my $nok = 0;
  16 for (my $i = 0; $i < $n; $i++) {
  17     print $i+1, " of $n -- ";
  18     my $query=`CQLGenerator ../../etc/generate.properties`;
  19     print $query;
  20     my $canon=`CQLParser -c '$query'`;
  21     if ($canon eq $query) {
  22         $nok++;
  23     } else {
  24         print "ERROR: canonicalised query differs from original\n";
  25     }
  26 }
  27
  28 print "Passed $nok/$n -- ", int(100*$nok/$n), "%\n";