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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/env perl
use Test::More;
use Test::Requires 'DBD::SQLite';
use DBIx::Class::Optional::Dependencies;
my $deploy_deps;
BEGIN {
$deploy_deps = DBIx::Class::Optional::Dependencies->req_list_for('deploy');
}
use Test::Requires $deploy_deps;
use Test::TempDir;
use KiokuDB;
use KiokuDB::Backend::DBI;
use KiokuDB::Test;
use Search::GIN::Extract::Class;
# real file needed for concurrency tests
my $sqlite = "dbi:SQLite:dbname=" . temp_root->file("db");
foreach my $dsn (
[ $sqlite ],
#[ "dbi:mysql:test" ],
#[ "dbi:Pg:dbname=test" ],
) {
foreach my $serializer (qw(json storable), eval { require YAML::XS; "yaml" }) {
#diag "testing against $dsn->[0] with $serializer\n";
my $connect = sub {
KiokuDB->connect(
@$dsn,
create => 1,
serializer => $serializer,
columns => [
name => {
is_nullable => 1,
data_type => "varchar",
},
age => {
is_nullable => 1,
data_type => "integer",
},
],
extract => Search::GIN::Extract::Class->new,
sqlite_sync_mode => 'OFF',
);
};
{
my $dir = $connect->();
$dir->txn_do(sub { $dir->backend->clear });
}
run_all_fixtures($connect);
if ( grep { !$_ } Test::Builder->new->summary ) {
diag "Leaving tables in $dsn->[0] due to test failures";
} else {
$connect->()->backend->drop_tables;
}
}
}
done_testing;
|
