Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (17 sloc) 419 Bytes
BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use warnings;
use strict;
use Test::More;
use Test::Exception;
use DBICTest;
throws_ok (
sub {
package BuggyTable;
use base 'DBIx::Class::Core';
__PACKAGE__->table('buggy_table');
__PACKAGE__->columns( qw/this doesnt work as expected/ );
},
qr/\bcolumns\(\) is a read-only/,
'columns() error when apparently misused',
);
done_testing;
Something went wrong with that request. Please try again.