mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 06:08:38 -04:00
52 lines
1.3 KiB
Perl
52 lines
1.3 KiB
Perl
use strict;
|
|
use warnings;
|
|
use lib "t/lib";
|
|
use SQLiteTest;
|
|
use Test::More;
|
|
use if -d ".git", "Test::FailWarnings";
|
|
|
|
my $dbh = connect_ok(
|
|
AutoCommit => 0,
|
|
RaiseError => 1,
|
|
);
|
|
|
|
ok $dbh->{sqlite_use_immediate_transaction}, "sqlite_use_immediate_transaction is true by default";
|
|
|
|
$dbh->do("CREATE TABLE MST (id, lbl)");
|
|
$dbh->do("CREATE TABLE TRN (no, id, qty)");
|
|
|
|
$dbh->commit;
|
|
$dbh->do("INSERT INTO MST VALUES(1, 'ITEM1')");
|
|
$dbh->do("INSERT INTO MST VALUES(2, 'ITEM2')");
|
|
$dbh->do("INSERT INTO MST VALUES(3, 'ITEM3')");
|
|
$dbh->do("INSERT INTO TRN VALUES('A', 1, 5)");
|
|
$dbh->do("INSERT INTO TRN VALUES('B', 2, 2)");
|
|
$dbh->do("INSERT INTO TRN VALUES('C', 1, 4)");
|
|
$dbh->do("INSERT INTO TRN VALUES('D', 3, 3)");
|
|
$dbh->rollback;
|
|
|
|
my $sth = $dbh->prepare(
|
|
"SELECT TRN.id AS ID, MST.LBL AS TITLE,
|
|
SUM(qty) AS TOTAL FROM TRN,MST
|
|
WHERE TRN.ID = MST.ID
|
|
GROUP BY TRN.ID ORDER BY TRN.ID DESC");
|
|
my $rows = $sth->execute();
|
|
ok($rows, "0E0");
|
|
my $names = $sth->{NAME};
|
|
print(join(', ', @$names), "\n");
|
|
while(my $raD = $sth->fetchrow_arrayref()) {
|
|
print join(":", @$raD), "\n";
|
|
}
|
|
|
|
$dbh->rollback;
|
|
|
|
{
|
|
my $dbh = connect_ok(
|
|
AutoCommit => 0,
|
|
RaiseError => 1,
|
|
sqlite_use_immediate_transaction => 0,
|
|
);
|
|
ok !$dbh->{sqlite_use_immediate_transaction}, "sqlite_use_immediate_transaction is false if you set explicitly";
|
|
}
|
|
|
|
done_testing;
|