+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use warnings;
use strict;
use Test::More;
use Test::Exception;
+
+use DBICTest;
+
throws_ok (
sub {
package BuggyTable;
use base 'DBIx::Class::Core';
__PACKAGE__->table('buggy_table');
- __PACKAGE__->columns qw/this doesnt work as expected/;
+ __PACKAGE__->columns( qw/this doesnt work as expected/ );
},
qr/\bcolumns\(\) is a read-only/,
'columns() error when apparently misused',