t/20setuperrors.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9
  10 use DBICTest;
  11
  12 throws_ok (
  13   sub {
  14     package BuggyTable;
  15     use base 'DBIx::Class::Core';
  16
  17     __PACKAGE__->table('buggy_table');
  18     __PACKAGE__->columns( qw/this doesnt work as expected/ );
  19   },
  20   qr/\bcolumns\(\) is a read-only/,
  21   'columns() error when apparently misused',
  22 );
  23
  24 done_testing;