1use warnings;
2use strict;
3
4use Test::More;
5use Test::Exception;
6
7throws_ok (
8  sub {
9    package BuggyTable;
10    use base 'DBIx::Class::Core';
11
12    __PACKAGE__->table('buggy_table');
13    __PACKAGE__->columns qw/this doesnt work as expected/;
14  },
15  qr/\bcolumns\(\) is a read-only/,
16  'columns() error when apparently misused',
17);
18
19done_testing;
20