t/20setuperrors.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More;
   5 use Test::Exception;
   6
   7 use lib 't/lib';
   8 use DBICTest;
   9
  10 throws_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
  22 done_testing;