X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Fregression%2Fmktests;h=78057b09fef1925db0d12dc7c2b765bcb5f0a34b;hb=2ef8d2fc0e5a32518b1a5750e6f68cdb91e64de2;hp=2f2c4178fd39de086c20500c81faae828a060d1b;hpb=4849909e4a3cb5765e3d7ee8f2398f87c5876df4;p=cql-java-moved-to-github.git

diff --git a/test/regression/mktests b/test/regression/mktests
index 2f2c417..78057b0 100755
--- a/test/regression/mktests
+++ b/test/regression/mktests
@@ -1,11 +1,10 @@
 #!/usr/bin/perl -w
 
-# $Id: mktests,v 1.2 2002-11-03 17:02:48 mike Exp $
 
 use IO::File;
 use strict;
 
-mkdir "sections";
+maybe_mkdir("sections");
 my $section = 0;
 my $dir;
 my $query;
@@ -19,7 +18,7 @@ while (<>) {
 	$section++;
 	$query = 0;
 	$dir = "sections/" . substr("0$section", -2);
-	mkdir $dir;
+	maybe_mkdir($dir);
 	write_file("$dir/name", $_);
 	print "created section $section ($dir) - $_\n";
 	next;
@@ -31,7 +30,8 @@ while (<>) {
     $query++;
     my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
     write_file($filename, $_);
-    print "  added query $query ($filename) - $_\n";
+    $filename =~ s@sections/(.*)\.cql@$1@;
+    print "  added $filename - $_\n";
 }
 
 sub write_file {
@@ -42,3 +42,14 @@ sub write_file {
     $fh->print($contents);
     $fh->close();
 }
+
+sub maybe_mkdir {
+    my($dir) = shift();
+    if (mkdir $dir) {
+	return;
+    }
+    if ($! =~ /exists/i) {
+	return;
+    }
+    die "can't create directory '$dir': $!";
+}