3 # $Id: mktests,v 1.3 2002-11-20 22:50:45 mike Exp $
8 maybe_mkdir("sections");
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 $filename =~ s@sections/(.*)\.cql@$1@;
35 print " added $filename - $_\n";
39 my($name, $contents) = @_;
41 my $fh = new IO::File(">$name")
42 or die "can't create '$name': $!";
43 $fh->print($contents);
52 if ($! =~ /exists/i) {
55 die "can't create directory '$dir': $!";