| Current Path : /usr/share/doc/perl-DBIx-Class/t/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/20setuperrors.t |
use warnings;
use strict;
use Test::More;
use Test::Exception;
use lib 't/lib';
use DBICTest;
throws_ok (
sub {
package BuggyTable;
use base 'DBIx::Class::Core';
__PACKAGE__->table('buggy_table');
__PACKAGE__->columns( qw/this doesnt work as expected/ );
},
qr/\bcolumns\(\) is a read-only/,
'columns() error when apparently misused',
);
done_testing;