sub run_tests {
my $self = shift;
- plan tests => 84;
+ plan tests => 97;
$self->create();
}
my $conn = $schema_class->clone;
- my $monikers = $schema_class->loader->monikers;
- my $classes = $schema_class->loader->classes;
+ my $monikers = {};
+ my $classes = {};
+ foreach my $source_name ($schema_class->sources) {
+ my $table_name = $schema_class->source($source_name)->from;
+ $monikers->{$table_name} = $source_name;
+ $classes->{$table_name} = $schema_class . q{::} . $source_name;
+ }
my $moniker1 = $monikers->{loader_test1};
my $class1 = $classes->{loader_test1};
my $class26 = $classes->{loader_test26};
my $rsobj26 = $conn->resultset($moniker26);
+ my $moniker27 = $monikers->{loader_test27};
+ my $class27 = $classes->{loader_test27};
+ my $rsobj27 = $conn->resultset($moniker27);
+
+ my $moniker28 = $monikers->{loader_test28};
+ my $class28 = $classes->{loader_test28};
+ my $rsobj28 = $conn->resultset($moniker28);
+
+ my $moniker29 = $monikers->{loader_test29};
+ my $class29 = $classes->{loader_test29};
+ my $rsobj29 = $conn->resultset($moniker29);
+
isa_ok( $rsobj3, "DBIx::Class::ResultSet" );
isa_ok( $rsobj4, "DBIx::Class::ResultSet" );
isa_ok( $rsobj5, "DBIx::Class::ResultSet" );
isa_ok( $rsobj22, "DBIx::Class::ResultSet" );
isa_ok( $rsobj25, "DBIx::Class::ResultSet" );
isa_ok( $rsobj26, "DBIx::Class::ResultSet" );
+ isa_ok( $rsobj27, "DBIx::Class::ResultSet" );
+ isa_ok( $rsobj28, "DBIx::Class::ResultSet" );
+ isa_ok( $rsobj29, "DBIx::Class::ResultSet" );
# basic rel test
my $obj4 = $rsobj4->find(123);
isa_ok($rs_rel26->first, $class26);
is($rs_rel26->first->id, 3);
+ # test one-to-one rels
+ my $obj27 = $rsobj27->find(1);
+ my $obj28 = $obj27->loader_test28;
+ isa_ok($obj28, $class28);
+ is($obj28->get_column('id'), 1);
+
+ my $obj29 = $obj27->loader_test29;
+ isa_ok($obj29, $class29);
+ is($obj29->id, 1);
+
+ $obj27 = $rsobj27->find(2);
+ is($obj27->loader_test28, undef);
+ is($obj27->loader_test29, undef);
+
# from Chisel's tests...
SKIP: {
if($self->{vendor} =~ /sqlite/i) {
isa_ok( $obj15->loader_test14, $class14 );
}
}
+
+ # rescan test
+ SKIP: {
+ skip $self->{skip_rels}, 4 if $self->{skip_rels};
+
+ my @statements_rescan = (
+ qq{
+ CREATE TABLE loader_test30 (
+ id INTEGER NOT NULL PRIMARY KEY,
+ loader_test2 INTEGER NOT NULL,
+ FOREIGN KEY (loader_test2) REFERENCES loader_test2 (id)
+ ) $self->{innodb}
+ },
+ q{ INSERT INTO loader_test30 (id,loader_test2) VALUES(123, 1) },
+ q{ INSERT INTO loader_test30 (id,loader_test2) VALUES(321, 2) },
+ );
+
+ my $dbh = $self->dbconnect(1);
+ $dbh->do($_) for @statements_rescan;
+ $dbh->disconnect;
+
+ my @new = $conn->rescan;
+ is(scalar(@new), 1);
+ is($new[0], 'LoaderTest30');
+
+ my $rsobj30 = $conn->resultset('LoaderTest30');
+ isa_ok($rsobj30, 'DBIx::Class::ResultSet');
+ my $obj30 = $rsobj30->find(123);
+ isa_ok( $obj30->loader_test2, $class2);
+ }
}
sub dbconnect {
q{ INSERT INTO loader_test26 (id,rel1,rel2) VALUES (33,5,7) },
q{ INSERT INTO loader_test26 (id,rel1,rel2) VALUES (3,42,42) },
+
+ qq{
+ CREATE TABLE loader_test27 (
+ id INTEGER NOT NULL PRIMARY KEY
+ ) $self->{innodb}
+ },
+
+ q{ INSERT INTO loader_test27 (id) VALUES (1) },
+ q{ INSERT INTO loader_test27 (id) VALUES (2) },
+
+ qq{
+ CREATE TABLE loader_test28 (
+ id INTEGER NOT NULL PRIMARY KEY,
+ FOREIGN KEY (id) REFERENCES loader_test27 (id)
+ ) $self->{innodb}
+ },
+
+ q{ INSERT INTO loader_test28 (id) VALUES (1) },
+
+ qq{
+ CREATE TABLE loader_test29 (
+ id INTEGER NOT NULL PRIMARY KEY,
+ fk INTEGER UNIQUE,
+ FOREIGN KEY (fk) REFERENCES loader_test27 (id)
+ ) $self->{innodb}
+ },
+
+ q{ INSERT INTO loader_test29 (id,fk) VALUES (1,1) },
);
my @statements_advanced = (
},
q{ INSERT INTO loader_test15 (id,loader_test14) VALUES (1,123) },
- );
+ );
$self->drop_tables;
loader_test21
loader_test26
loader_test25
+ loader_test28
+ loader_test29
+ loader_test27
/;
my @tables_advanced = qw/
loader_test14
/;
+ my @tables_rescan = qw/ loader_test30 /;
+
my $drop_fk_mysql =
q{ALTER TABLE loader_test10 DROP FOREIGN KEY loader_test11_fk;};
unless($self->{no_implicit_rels}) {
$dbh->do("DROP TABLE $_") for (@tables_implicit_rels);
}
+ $dbh->do("DROP TABLE $_") for (@tables_rescan);
}
$dbh->do("DROP TABLE $_") for (@tables);
$dbh->disconnect;