RT50874
[dbsrgits/DBIx-Class-Historic.git] / t / 20setuperrors.t
1 #!/usr/bin/perl
2
3 use Test::More tests => 1;
4
5 eval {
6   package BuggyTable;
7   use base 'DBIx::Class';
8
9   __PACKAGE__->load_components qw/Core/;
10   __PACKAGE__->table('buggy_table');
11   __PACKAGE__->columns qw/this doesnt work as expected/;
12 };
13
14 like($@,qr/\bcolumns\(\) is a read-only/,
15      "columns() error when apparently misused");