9 use Catalyst::Model::DBIC::Schema;
12 # execise the connect_info coercion
17 ['dbi:SQLite:foo.db', '', ''],
18 { dsn => 'dbi:SQLite:foo.db', user => '', password => '' },
20 ['dbi:SQLite:foo.db', ''],
21 { dsn => 'dbi:SQLite:foo.db', user => '', password => '' },
23 ['dbi:SQLite:foo.db'],
24 { dsn => 'dbi:SQLite:foo.db', user => '', password => '' },
27 { dsn => 'dbi:SQLite:foo.db', user => '', password => '' },
29 ['dbi:Pg:dbname=foo', 'user', 'pass',
30 { pg_enable_utf8 => 1, auto_savepoint => 1 }],
31 { dsn => 'dbi:Pg:dbname=foo', user => 'user', password => 'pass',
32 pg_enable_utf8 => 1, auto_savepoint => 1 },
34 ['dbi:Pg:dbname=foo', 'user', 'pass',
35 { pg_enable_utf8 => 1 }, { auto_savepoint => 1 }],
36 { dsn => 'dbi:Pg:dbname=foo', user => 'user', password => 'pass',
37 pg_enable_utf8 => 1, auto_savepoint => 1 },
39 [ { dsn => 'dbi:Pg:dbname=foo', user => 'user', password => 'pass',
40 pg_enable_utf8 => 1, auto_savepoint => 1 } ],
41 { dsn => 'dbi:Pg:dbname=foo', user => 'user', password => 'pass',
42 pg_enable_utf8 => 1, auto_savepoint => 1 },
44 [$coderef, { pg_enable_utf8 => 1, auto_savepoint => 1 }],
45 { dbh_maker => $coderef, pg_enable_utf8 => 1, auto_savepoint => 1 },
51 ['dbi:Pg:dbname=foo', 'user', 'pass',
52 { pg_enable_utf8 => 1 }, { AutoCommit => 1 }, { auto_savepoint => 1 }],
55 # ignore redefined warnings, and uninitialized warnings from old
56 # ::Storage::DBI::Replicated
57 local $SIG{__WARN__} = sub {
58 $_[0] !~ /(?:redefined|uninitialized)/i && warn @_
61 for (my $i = 0; $i < @tests; $i += 2) {
63 connect_info => $tests[$i]
66 is_deeply $m->connect_info, $tests[$i+1],
67 'connect_info coerced correctly';
70 throws_ok { instance(connect_info => $_) } qr/valid connect_info/i,
71 'invalid connect_info throws exception'
74 # try as ConnectInfos (e.g.: replicants)
75 my @replicants = map $tests[$_], grep $_ % 2 == 0, 0..$#tests;
78 package TryConnectInfos;
81 use Catalyst::Model::DBIC::Schema::Types 'ConnectInfos';
83 has replicants => (is => 'ro', isa => ConnectInfos, coerce => 1);
86 my $m = TryConnectInfos->new(
87 replicants => \@replicants
91 is_deeply(TryConnectInfos->new(replicants => $tests[1])->replicants,
93 } 'single replicant hashref coerces correctly';
95 is_deeply $m->replicants, [
96 map $tests[$_], grep $_ % 2, 0 .. $#tests
97 ], 'replicant connect_infos coerced correctly';
100 ASchemaClass->connection( @{$tests[0]} );
103 is_deeply $m->connect_info, $tests[1],
104 'connect_info coerced correctly when defining connection in the schema class';
110 Catalyst::Model::DBIC::Schema->new({
111 schema_class => 'ASchemaClass',