X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=test%2Fregression%2Fmktests;fp=test%2Fregression%2Fmktests;h=0000000000000000000000000000000000000000;hb=03ef3621fa8624d56eef1f85274de365ddafed90;hp=78057b09fef1925db0d12dc7c2b765bcb5f0a34b;hpb=d48bccaed9308a737cdfa55ba555891d0ad85b87;p=cql-java-moved-to-github.git

diff --git a/test/regression/mktests b/test/regression/mktests
deleted file mode 100755
index 78057b0..0000000
--- a/test/regression/mktests
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl -w
-
-
-use IO::File;
-use strict;
-
-maybe_mkdir("sections");
-my $section = 0;
-my $dir;
-my $query;
-
-while (<>) {
-    chomp();
-    s/[ \t]+$//;
-    next if /^$/;
-
-    if (s/^#[ \t]*//) {
-	$section++;
-	$query = 0;
-	$dir = "sections/" . substr("0$section", -2);
-	maybe_mkdir($dir);
-	write_file("$dir/name", $_);
-	print "created section $section ($dir) - $_\n";
-	next;
-    }
-
-    die "query before first section header"
-	if !defined $dir;
-
-    $query++;
-    my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
-    write_file($filename, $_);
-    $filename =~ s@sections/(.*)\.cql@$1@;
-    print "  added $filename - $_\n";
-}
-
-sub write_file {
-    my($name, $contents) = @_;
-
-    my $fh = new IO::File(">$name")
-	or die "can't create '$name': $!";
-    $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': $!";
-}