In d009cb7d I stupidly created a "double around()"
[dbsrgits/DBIx-Class.git] / 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;