mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
25 lines
824 B
Perl
25 lines
824 B
Perl
use Test;
|
|
use DBI;
|
|
BEGIN { plan tests => 11 }
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=foo", "", "");
|
|
ok($dbh);
|
|
ok($dbh->do("delete from f"));
|
|
my $sth = $dbh->prepare("INSERT INTO f VALUES (?, ?, ?)", { go_last_insert_id_args => [undef, undef, undef, undef] });
|
|
ok($sth);
|
|
ok(my $rows = $sth->execute("Fred", "Bloggs", "fred\@bloggs.com"));
|
|
ok($rows == 1);
|
|
|
|
ok($sth->execute("test", "test", "1"), 1);
|
|
ok($sth->execute("test", "test", "2"), 1);
|
|
ok($sth->execute("test", "test", "3"), 1);
|
|
|
|
my $unless_min_dbi =
|
|
$DBI::VERSION < 1.43 ? 'last_insert_id requires DBI v1.43' : '';
|
|
skip($unless_min_dbi, $dbh->last_insert_id(undef, undef, undef, undef), 4 );
|
|
|
|
ok($dbh->func('last_insert_rowid'), 4, 'last_insert_rowid should be 4');
|
|
|
|
ok($dbh->do("delete from f where f1='test'"), 3);
|
|
$sth->finish;
|
|
undef $sth;
|
|
$dbh->disconnect;
|