test/random/mkrandom

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