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
69
70
71
72
73
74
75
76
77
78
|
use Test::Modern;
use DBICx::Sugar qw(config rset resultset schema);
use File::Temp qw(tempfile);
use Test::Requires qw(DBD::SQLite);
plan tests => 4;
my @dbfiles = map { (tempfile SUFFIX => '.db' )[1] } 1..3;
subtest 'two schemas' => sub {
config({
foo => {
schema_class => 'Foo',
dsn => "dbi:SQLite:dbname=$dbfiles[0]",
},
bar => {
schema_class => 'Foo',
dsn => "dbi:SQLite:dbname=$dbfiles[1]",
},
});
schema('foo')->deploy;
ok schema('foo')->resultset('User')->create({ name => 'bob', age => 30 });
schema('bar')->deploy;
ok schema('bar')->resultset('User')->create({ name => 'sue', age => 20 });
my $user = schema('foo')->resultset('User')->find('bob');
ok $user, 'found bob';
is $user->age => '30', 'bob is getting old';
$user = schema('bar')->resultset('User')->find('sue');
ok $user, 'found sue';
is $user->age => '20', 'sue is the right age';
like exception { schema('poo')->resultset('User')->find('bob') },
qr/schema poo is not configured/, 'Missing schema error thrown';
like exception { schema->resultset('User')->find('bob') },
qr/The schema default is not configured/,
'Missing default schema error thrown';
};
subtest 'two schemas with a default schema' => sub {
config({
default => {
schema_class => 'Foo',
dsn => "dbi:SQLite:dbname=$dbfiles[0]",
},
bar => {
schema_class => 'Foo',
dsn => "dbi:SQLite:dbname=$dbfiles[1]",
},
});
ok my $bob = schema->resultset('User')->find('bob'), 'found bob';
is $bob->age => 30;
};
subtest 'Schema-specific configuation in schema() call' => sub {
my $schema = schema(
'bar',
{
'schema_class' => 'Foo',
'dsn' => "dbi:SQLite:dbname=$dbfiles[2]",
},
);
$schema->deploy;
$schema->resultset('User')
->create( { 'name' => 'Bat Sheva', 'age' => 7 } );
my $bat_sheva = $schema->resultset('User')->find('Bat Sheva');
ok( $bat_sheva, 'Found Bat Sheva' );
is( $bat_sheva->age, 7 );
};
unlink @dbfiles;
|
