From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RIBASUSHI / DBIx-Class-0.082844 / t / resultsource / bare_resultclass_exception.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

              
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib 't/lib';
use DBICTest;
{
  package DBICTest::Foo;
  use base "DBIx::Class::Core";
}
throws_ok { DBICTest::Foo->new("urgh") } qr/must be a hashref/;
done_testing;