test/mktests

   1 #!/usr/bin/perl -w
   2
   3 use IO::File;
   4 use strict;
   5
   6 mkdir "sections";
   7 my $section = 0;
   8 my $dir;
   9 my $query;
  10
  11 while (<>) {
  12     chomp();
  13     s/[ \t]+$//;
  14     next if /^$/;
  15
  16     if (s/^#[ \t]*//) {
  17         $section++;
  18         $query = 0;
  19         $dir = "sections/" . substr("0$section", -2);
  20         mkdir $dir;
  21         write_file("$dir/name", $_);
  22         print "created section $section ($dir) - $_\n";
  23         next;
  24     }
  25
  26     die "query before first section header"
  27         if !defined $dir;
  28
  29     $query++;
  30     my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
  31     write_file($filename, $_);
  32     print "  added query $query ($filename) - $_\n";
  33 }
  34
  35 sub write_file {
  36     my($name, $contents) = @_;
  37
  38     my $fh = new IO::File(">$name")
  39         or die "can't create '$name': $!";
  40     $fh->print($contents);
  41     $fh->close();
  42 }