chiark / gitweb /
rename nonpage_ok to check_nonpage
[cgi-auth-flexible.git] / commit-test.pl
1 #!/usr/bin/perl -w
2
3 use warnings;
4 use strict;
5 use DBI;
6
7 my $dsn = "dbi:SQLite:dbname=test.db";
8 my $dbh = DBI->connect($dsn, '','', { 
9                             AutoCommit => 0, RaiseError => 1,
10                         });
11
12 foreach my $v (@ARGV) {
13     if (!eval {
14         if ($v eq 'bw') { $dbh->begin_work or die; }
15         elsif ($v eq 'rb') { $dbh->rollback or die; }
16         elsif ($v eq 'ci') { $dbh->commit or die; }
17         elsif ($v eq 'dc') { $dbh->disconnect or die; }
18         elsif ($v eq 'ct') { $dbh->do('CREATE TABLE t (f TEXT)') or die; }
19         elsif ($v eq 'i') { $dbh->do('INSERT INTO t VALUES ("x")') or die; }
20         else { die; }
21         1;
22     }) {
23         warn $@;
24     }
25 }