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
52
53
|
package dbixcsl_test_dir;
use strict;
use warnings;
use File::Path 'rmtree';
use File::Temp 'tempdir';
use Scalar::Util 'weaken';
use namespace::clean;
use DBI ();
use base qw/Exporter/;
our @EXPORT_OK = '$tdir';
die "/t does not exist, this can't be right...\n"
unless -d 't';
my $tbdir = 't/var';
unless (-d $tbdir) {
mkdir $tbdir or die "Unable to create $tbdir: $!\n";
}
our $tdir = tempdir(DIR => $tbdir);
# We need to disconnect all active DBI handles before deleting the directory,
# otherwise the SQLite .db files cannot be deleted on Win32 (file in use) since
# END does not run in any sort of order.
no warnings 'redefine';
my $connect = \&DBI::connect;
my @handles;
*DBI::connect = sub {
my $dbh = $connect->(@_);
push @handles, $dbh;
weaken $handles[-1];
return $dbh;
};
END {
if (not $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}) {
foreach my $dbh (@handles) {
$dbh->disconnect if $dbh;
}
rmtree($tdir, 1, 1);
rmdir($tbdir); # remove if empty, ignore otherwise
}
}
1;
|
