Not sure what I was thinking, but 18637ebb never worked :/
[dbsrgits/DBIx-Class.git] / t / 20setuperrors.t
1 use warnings;
2 use strict;
3
4 use Test::More;
5 use Test::Exception;
6
7 use lib 't/lib';
8 use DBICTest;
9
10 throws_ok (
11   sub {
12     package BuggyTable;
13     use base 'DBIx::Class::Core';
14
15     __PACKAGE__->table('buggy_table');
16     __PACKAGE__->columns( qw/this doesnt work as expected/ );
17   },
18   qr/\bcolumns\(\) is a read-only/,
19   'columns() error when apparently misused',
20 );
21
22 done_testing;