view release on metacpan or  search on metacpan

t/10loader.t  view on Meta::CPAN

my ($schema1, $schema2);

lives_and {
    $schema1 = make_schema(
        quiet => 0,
        test_rels => [
            'Bars.quuxref' => 'quuxs.quuxid', # foreign key
        ],
    );
} "the loader managed to stay alive";

lives_and {
    $schema2 = make_schema(
        loader_class => 1,
        no_increment => 1,
        quiet => 0,
        warnings_exist => '/RelPatterns .* without rel_constraint/',
        test_rels => [
            'Bars.quuxref' => 'quuxs.quuxid', # foreign key
        ],