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