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;