1 package dbixcl_common_tests;
6 use DBIx::Class::Loader;
14 if( ref($_[0]) eq 'HASH') {
22 # Only MySQL uses this
23 $self->{innodb} ||= '';
25 $self->{verbose} = $ENV{TEST_VERBOSE} || 0;
27 return bless $self => $class;
31 my ($self, $why) = @_;
33 plan skip_all => $why;
43 my $namespace = 'DBIXCL_Test_' . $self->{vendor};
45 my $debug = ($self->{verbose} > 1) ? 1 : 0;
47 my $loader = DBIx::Class::Loader->new(
49 user => $self->{user},
50 password => $self->{password},
51 namespace => $namespace,
52 constraint => '^loader_test.*',
57 my $conn = $loader->connect();
59 my $moniker1 = $loader->moniker('loader_test1');
60 my $rsobj1 = $conn->resultset($moniker1);
61 my $moniker2 = $loader->moniker('loader_test2');
62 my $rsobj2 = $conn->resultset($moniker2);
64 isa_ok( $rsobj1, "DBIx::Class::ResultSet" );
65 isa_ok( $rsobj2, "DBIx::Class::ResultSet" );
67 my $obj = $rsobj1->find(1);
69 is( $obj->dat, "foo" );
70 is( $rsobj2->count, 4 );
72 my ($obj2) = $rsobj2->find( dat => 'bbb' );
76 skip $self->{skip_rels}, 20 if $self->{skip_rels};
78 my $moniker3 = $loader->moniker('loader_test3');
79 my $rsobj3 = $conn->resultset($moniker3);
80 my $moniker4 = $loader->moniker('loader_test4');
81 my $rsobj4 = $conn->resultset($moniker4);
82 my $moniker5 = $loader->moniker('loader_test5');
83 my $rsobj5 = $conn->resultset($moniker5);
84 my $moniker6 = $loader->moniker('loader_test6');
85 my $rsobj6 = $conn->resultset($moniker6);
86 my $moniker7 = $loader->moniker('loader_test7');
87 my $rsobj7 = $conn->resultset($moniker7);
88 my $moniker8 = $loader->moniker('loader_test8');
89 my $rsobj8 = $conn->resultset($moniker8);
90 my $moniker9 = $loader->moniker('loader_test9');
91 my $rsobj9 = $conn->resultset($moniker9);
93 isa_ok( $rsobj3, "DBIx::Class::ResultSet" );
94 isa_ok( $rsobj4, "DBIx::Class::ResultSet" );
95 isa_ok( $rsobj5, "DBIx::Class::ResultSet" );
96 isa_ok( $rsobj6, "DBIx::Class::ResultSet" );
97 isa_ok( $rsobj7, "DBIx::Class::ResultSet" );
98 isa_ok( $rsobj8, "DBIx::Class::ResultSet" );
99 isa_ok( $rsobj9, "DBIx::Class::ResultSet" );
102 my $obj4 = $rsobj4->find(123);
103 isa_ok( $obj4->fkid, "$namespace\::$moniker3");
105 # fk def in comments should not be parsed
106 my $obj5 = $rsobj5->find( id1 => 1, id2 => 1 );
107 is( ref( $obj5->id2 ), '' );
109 # mulit-col fk def (works for some, not others...)
110 my $obj6 = $rsobj6->find(1);
111 isa_ok( $obj6->loader_test2, "$namespace\::$moniker2" );
113 skip "Multi-column FKs are only half-working for this vendor", 1
114 unless $self->{multi_fk_broken};
115 is( ref( $obj6->id2 ), '' );
118 # fk that references a non-pk key (UNIQUE)
119 my $obj8 = $rsobj8->find(1);
120 isa_ok( $obj8->loader_test7, "$namespace\::$moniker7" );
122 # from Chisel's tests...
124 if($self->{vendor} =~ /sqlite/i) {
125 skip 'SQLite cannot do the advanced tests', 8;
128 my $moniker10 = $loader->moniker('loader_test10');
129 my $rsobj10 = $conn->resultset($moniker10);
130 my $moniker11 = $loader->moniker('loader_test11');
131 my $rsobj11 = $conn->resultset($moniker11);
133 isa_ok( $rsobj10, "DBIx::Class::ResultSet" );
134 isa_ok( $rsobj11, "DBIx::Class::ResultSet" );
136 my $obj10 = $rsobj10->create({ subject => 'xyzzy' });
139 ok( defined $obj10, '$obj10 is defined' );
141 my $obj11 = $rsobj11->create({ loader_test10 => $obj10->id() });
143 ok( defined $obj11, '$obj11 is defined' );
146 my $obj10_2 = $obj11->loader_test10;
147 $obj10_2->loader_test11( $obj11->id11() );
150 is($@, '', 'No errors after eval{}');
153 skip 'Previous eval block failed', 3
156 my $results = $rsobj10->search({ subject => 'xyzzy' });
157 is( $results->count(), 1,
158 'One $rsobj10 returned from search' );
160 my $obj10_3 = $results->first();
161 isa_ok( $obj10_3, "$namespace\::$moniker10" );
162 is( $obj10_3->loader_test11()->id(), $obj11->id(),
163 'found same $rsobj11 object we expected' );
170 my ($self, $complain) = @_;
173 $self->{dsn}, $self->{user},
176 RaiseError => $complain,
177 PrintError => $complain,
188 CREATE TABLE loader_test1 (
189 id $self->{auto_inc_pk},
194 q{ INSERT INTO loader_test1 (dat) VALUES('foo'); },
195 q{ INSERT INTO loader_test1 (dat) VALUES('bar'); },
196 q{ INSERT INTO loader_test1 (dat) VALUES('baz'); },
199 CREATE TABLE loader_test2 (
200 id $self->{auto_inc_pk},
205 q{ INSERT INTO loader_test2 (dat) VALUES('aaa'); },
206 q{ INSERT INTO loader_test2 (dat) VALUES('bbb'); },
207 q{ INSERT INTO loader_test2 (dat) VALUES('ccc'); },
208 q{ INSERT INTO loader_test2 (dat) VALUES('ddd'); },
211 my @statements_reltests = (
213 CREATE TABLE loader_test3 (
214 id INTEGER NOT NULL PRIMARY KEY,
219 q{ INSERT INTO loader_test3 (id,dat) VALUES(1,'aaa'); },
220 q{ INSERT INTO loader_test3 (id,dat) VALUES(2,'bbb'); },
221 q{ INSERT INTO loader_test3 (id,dat) VALUES(3,'ccc'); },
222 q{ INSERT INTO loader_test3 (id,dat) VALUES(4,'ddd'); },
225 CREATE TABLE loader_test4 (
226 id INTEGER NOT NULL PRIMARY KEY,
227 fkid INTEGER NOT NULL,
229 FOREIGN KEY (fkid) REFERENCES loader_test3 (id)
233 q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(123,1,'aaa'); },
234 q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(124,2,'bbb'); },
235 q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(125,3,'ccc'); },
236 q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(126,4,'ddd'); },
239 CREATE TABLE loader_test5 (
241 id2 INTEGER, -- , id2 INTEGER REFERENCES loader_test1,
243 PRIMARY KEY (id1,id2)
247 q{ INSERT INTO loader_test5 (id1,id2,dat) VALUES (1,1,'aaa'); },
250 CREATE TABLE loader_test6 (
251 id $self->{auto_inc_pk},
253 loader_test2 INTEGER,
255 FOREIGN KEY (loader_test2) REFERENCES loader_test2 (id),
256 FOREIGN KEY (id, id2 ) REFERENCES loader_test5 (id1,id2)
260 (q{ INSERT INTO loader_test6 (id2,loader_test2,dat) } .
261 q{ VALUES (1,1,'aaa'); }),
264 CREATE TABLE loader_test7 (
265 id INTEGER NOT NULL PRIMARY KEY,
266 id2 VARCHAR(8) NOT NULL UNIQUE,
271 q{ INSERT INTO loader_test7 (id,id2,dat) VALUES (1,'aaa','bbb'); },
274 CREATE TABLE loader_test8 (
275 id INTEGER NOT NULL PRIMARY KEY,
276 loader_test7 VARCHAR(8) NOT NULL,
278 FOREIGN KEY (loader_test7) REFERENCES loader_test7 (id2)
282 (q{ INSERT INTO loader_test8 (id,loader_test7,dat) } .
283 q{ VALUES (1,'aaa','bbb'); }),
286 CREATE TABLE loader_test9 (
287 loader_test9 TEXT NOT NULL
292 my @statements_advanced = (
294 CREATE TABLE loader_test10 (
295 id10 $self->{auto_inc_pk},
297 loader_test11 INTEGER
302 CREATE TABLE loader_test11 (
303 id11 $self->{auto_inc_pk},
304 message VARCHAR(8) DEFAULT 'foo',
305 loader_test10 INTEGER NOT NULL,
306 FOREIGN KEY (loader_test10) REFERENCES loader_test10 (id10)
310 (q{ ALTER TABLE loader_test10 ADD CONSTRAINT } .
311 q{ loader_test11_fk FOREIGN KEY (loader_test11) } .
312 q{ REFERENCES loader_test11 (id11); }),
315 $self->{created} = 1;
317 my $dbh = $self->dbconnect(1);
318 $dbh->do($_) for (@statements);
319 unless($self->{skip_rels}) {
320 $dbh->do($_) for (@statements_reltests);
321 unless($self->{vendor} =~ /sqlite/i) {
322 $dbh->do($_) for (@statements_advanced);
331 return unless $self->{created};
338 my @tables_reltests = qw/
348 my @tables_advanced = qw/
354 q{ALTER TABLE loader_test10 DROP FOREIGN KEY loader_test11_fk;};
357 q{ALTER TABLE loader_test10 DROP CONSTRAINT loader_test11_fk;};
359 my $dbh = $self->dbconnect(0);
361 unless($self->{skip_rels}) {
362 $dbh->do("DROP TABLE $_") for (@tables_reltests);
363 unless($self->{vendor} =~ /sqlite/i) {
364 if($self->{vendor} =~ /mysql/i) {
365 $dbh->do($drop_fk_mysql);
370 $dbh->do("DROP TABLE $_") for (@tables_advanced);
373 $dbh->do("DROP TABLE $_") for (@tables);