tests/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 }