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