-
Notifications
You must be signed in to change notification settings - Fork 151
/
zzzzzzz_sqlite_deadlock.t
51 lines (38 loc) · 1.06 KB
/
zzzzzzz_sqlite_deadlock.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use DBICTest::RunMode;
if ( DBICTest::RunMode->is_plain ) {
plan( skip_all => "Skipping test on plain module install" );
}
use Test::Exception;
use DBICTest;
use File::Temp ();
plan tests => 2;
my $wait_for = 120; # how many seconds to wait
# don't lock anything - this is a tempfile anyway
$ENV{DBICTEST_LOCK_HOLDER} = -1;
for my $close (0,1) {
my $tmp = File::Temp->new(
UNLINK => 1,
DIR => 't/var',
SUFFIX => '.db',
TEMPLATE => 'DBIxClass-XXXXXX',
EXLOCK => 0, # important for BSD and derivatives
);
my $tmp_fn = $tmp->filename;
close $tmp if $close;
local $SIG{ALRM} = sub { die sprintf (
"Timeout of %d seconds reached (tempfile still open: %s)",
$wait_for, $close ? 'No' : 'Yes'
)};
alarm $wait_for;
lives_ok (sub {
my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn");
$schema->storage->dbh_do(sub { $_[1]->do('PRAGMA synchronous = OFF') });
DBICTest->deploy_schema ($schema);
DBICTest->populate_schema ($schema);
});
alarm 0;
}