3 # $Id: mktests,v 1.2 2002-11-03 17:02:48 mike Exp $
21 $dir = "sections/" . substr("0$section", -2);
23 write_file("$dir/name", $_);
24 print "created section $section ($dir) - $_\n";
28 die "query before first section header"
32 my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
33 write_file($filename, $_);
34 print " added query $query ($filename) - $_\n";
38 my($name, $contents) = @_;
40 my $fh = new IO::File(">$name")
41 or die "can't create '$name': $!";
42 $fh->print($contents);