X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=blobdiff_plain;f=commit-test.pl;fp=commit-test.pl;h=0000000000000000000000000000000000000000;hp=69a06405800016a482d7d0f3f6ddfab82af3b98e;hb=4e743c20f98b7ae5b8170b65c73d1ba60cb183b1;hpb=b7f76b8d0d95ef36b323f19741eb5355f4be28ee

diff --git a/commit-test.pl b/commit-test.pl
deleted file mode 100755
index 69a0640..0000000
--- a/commit-test.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl -w
-
-use warnings;
-use strict;
-use DBI;
-
-my $dsn = "dbi:SQLite:dbname=test.db";
-my $dbh = DBI->connect($dsn, '','', { 
-                            AutoCommit => 0, RaiseError => 1,
-                        });
-
-foreach my $v (@ARGV) {
-    if (!eval {
-	if ($v eq 'bw') { $dbh->begin_work or die; }
-	elsif ($v eq 'rb') { $dbh->rollback or die; }
-	elsif ($v eq 'ci') { $dbh->commit or die; }
-	elsif ($v eq 'dc') { $dbh->disconnect or die; }
-	elsif ($v eq 'ct') { $dbh->do('CREATE TABLE t (f TEXT)') or die; }
-	elsif ($v eq 'i') { $dbh->do('INSERT INTO t VALUES ("x")') or die; }
-	else { die; }
-	1;
-    }) {
-	warn $@;
-    }
-}