view release on metacpan or  search on metacpan

t/01-model-helper.t  view on Meta::CPAN

# Delete
$schema->await($found->delete);
my $gone = $schema->await($rs->find($created->id));
is($gone, undef, 'delete works');

# 5. Error on unknown model
eval { $c->model('nonexistent') };
like($@, qr/is not configured/, 'dies on unknown model');

# 6. default_backend_name helper — cascade tests
# 6a. No explicit, no default_backend config → first backend
is($c->default_backend_name, 'main', 'default_backend_name falls back to first backend');

# 6b. Explicit param wins over everything
is($c->default_backend_name('custom'), 'custom',
    'default_backend_name respects explicit param');

# 6c. With default_backend configured
{
    my $tmpdir2 = tempdir(CLEANUP => 1);