1use warnings;
2use strict;
3
4use Test::More;
5use Test::Exception;
6
7use lib 't/lib';
8use DBICTest;
9
10throws_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
22done_testing;
23