view release on metacpan or  search on metacpan

t/Schema/DidYouMean.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

use TestSchema;

my $schema = TestSchema->deploy_or_connect();

like(
   exception { $schema->resultset('foo_Bar') },
   qr/\* Foo_Bar <--/,
   'found correct RS',
);

done_testing;