Privatize the full list method
[dbsrgits/DBIx-Class.git] / t / 20setuperrors.t
1 use warnings;
2 use strict;
3
4 use Test::More;
5 use Test::Exception;
6
7 throws_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
19 done_testing;