Commit | Line | Data |
e4dc89b3 |
1 | use strict; |
2 | use warnings; |
3 | use lib qw(t/lib); |
4 | |
5 | use File::Copy; |
6 | |
7 | use DBICTest; |
8 | |
9 | use Test::More; |
10 | plan tests => 1; |
11 | |
12 | my $schema = DBICTest->init_schema(); |
13 | |
14 | $schema->storage_type( '::DBI::Replication' ); |
15 | |
16 | |
17 | my $db_file1 = "t/var/DBIxClass.db"; |
18 | my $db_file2 = "t/var/DBIxClass_slave1.db"; |
19 | my $db_file3 = "t/var/DBIxClass_slave2.db"; |
20 | my $dsn1 = $ENV{"DBICTEST_DSN"} || "dbi:SQLite:${db_file1}"; |
21 | my $dsn2 = $ENV{"DBICTEST_DSN2"} || "dbi:SQLite:${db_file2}"; |
22 | my $dsn3 = $ENV{"DBICTEST_DSN3"} || "dbi:SQLite:${db_file3}"; |
23 | |
24 | $schema->connect( [ |
25 | [ $dsn1, '', '', { AutoCommit => 1 } ], |
26 | [ $dsn2, '', '', { priority => 10 } ], |
27 | [ $dsn3, '', '', { priority => 10 } ] |
28 | ] |
29 | ); |
30 | |
31 | $schema->populate('Artist', [ |
32 | [ qw/artistid name/ ], |
33 | [ 4, 'Ozric Tentacles'] |
34 | ]); |
35 | |
36 | # try and read (should fail) |
37 | my $new_artist = $schema->resultset('Artist')->find(4); |
38 | |
39 | warn "artist : $new_artist\n"; |
40 | |
41 | # try and read (should succede after faked synchronisation) |
42 | copy($db_file1, $db_file2); |
43 | |
44 | unlink $db_file2; |
45 | |
46 | ok(1,"These aren't the tests you're looking for"); |