sub run_tests {
my $self = shift;
- plan tests => 88;
+ plan tests => 89;
$self->create();
my $warn_count = 0;
$warn_count++ if grep /ResultSetManager/, @loader_warnings;
+ $warn_count++ if grep /Dynamic schema detected/, @loader_warnings;
+ $warn_count++ for grep /^Bad table or view/, @loader_warnings;
if($self->{skip_rels}) {
is(scalar(@loader_warnings), $warn_count)
$classes->{$table_name} = $schema_class . q{::} . $source_name;
}
+# for debugging...
+# {
+# mkdir '/tmp/HLAGH';
+# $conn->_loader->{dump_directory} = '/tmp/HLAGH';
+# $conn->_loader->_dump_to_dir(values %$classes);
+# }
+
my $moniker1 = $monikers->{loader_test1};
my $class1 = $classes->{loader_test1};
my $rsobj1 = $conn->resultset($moniker1);
can_ok( $class1, 'dbix_class_testcomponent' ) or $skip_tcomp = 1;
can_ok( $class1, 'loader_test1_classmeth' ) or $skip_cmeth = 1;
- TODO: {
- local $TODO = "Not yet supported by ResultSetManger code";
- can_ok( $rsobj1, 'loader_test1_rsmeth' ) or $skip_rsmeth = 1;
- }
+ can_ok( $rsobj1, 'loader_test1_rsmeth' ) or $skip_rsmeth = 1;
SKIP: {
skip "Pre-requisite test failed", 1 if $skip_tab;
}
SKIP: {
- skip 'This vendor cannot do inline relationship definitions', 5
+ skip 'This vendor cannot do inline relationship definitions', 6
if $self->{no_inline_rels};
my $moniker12 = $monikers->{loader_test12};
isa_ok( $obj13->id, $class12 );
isa_ok( $obj13->loader_test12, $class12);
isa_ok( $obj13->dat, $class12);
+
+ my $obj12 = $rsobj12->find(1);
+ isa_ok( $obj12->loader_test13_ids, "DBIx::Class::ResultSet" );
}
SKIP: {
q{ INSERT INTO loader_test30 (id,loader_test2) VALUES(321, 2) },
);
- my $dbh = $self->dbconnect(1);
- $dbh->do($_) for @statements_rescan;
- $dbh->disconnect;
+ {
+ # Silence annoying but harmless postgres "NOTICE: CREATE TABLE..."
+ local $SIG{__WARN__} = sub {
+ my $msg = shift;
+ warn $msg unless $msg =~ m{^NOTICE:\s+CREATE TABLE};
+ };
+
+ my $dbh = $self->dbconnect(1);
+ $dbh->do($_) for @statements_rescan;
+ $dbh->disconnect;
+ }
my @new = $conn->rescan;
is(scalar(@new), 1);
# Silence annoying but harmless postgres "NOTICE: CREATE TABLE..."
local $SIG{__WARN__} = sub {
my $msg = shift;
- print STDERR $msg unless $msg =~ m{^NOTICE:\s+CREATE TABLE};
+ warn $msg unless $msg =~ m{^NOTICE:\s+CREATE TABLE};
};
$dbh->do($_) for (@statements);