Institute a central "load this first in testing" package
[dbsrgits/DBIx-Class.git] / t / 20setuperrors.t
CommitLineData
c0329273 1BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
d88ecca6 3use warnings;
4use strict;
e7513319 5
d88ecca6 6use Test::More;
7use Test::Exception;
e7513319 8
c0329273 9
8d6b1478 10use DBICTest;
11
d88ecca6 12throws_ok (
13 sub {
14 package BuggyTable;
15 use base 'DBIx::Class::Core';
e7513319 16
d88ecca6 17 __PACKAGE__->table('buggy_table');
6ebac5d6 18 __PACKAGE__->columns( qw/this doesnt work as expected/ );
d88ecca6 19 },
20 qr/\bcolumns\(\) is a read-only/,
21 'columns() error when apparently misused',
22);
e7513319 23
d88ecca6 24done_testing;