[dbsrgits/DBIx-Class.git] / 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;
Commit	Line	Data
d88ecca6	1	use warnings;
d88ecca6	2	use strict;
e7513319	3
d88ecca6	4	use Test::More;
d88ecca6	5	use Test::Exception;
e7513319	6
8d6b1478	7	use lib 't/lib';
	8	use DBICTest;
	9
d88ecca6	10	throws_ok (
	11	sub {
	12	package BuggyTable;
	13	use base 'DBIx::Class::Core';
e7513319	14
d88ecca6	15	__PACKAGE__->table('buggy_table');
6ebac5d6	16	__PACKAGE__->columns( qw/this doesnt work as expected/ );
d88ecca6	17	},
	18	qr/\bcolumns\(\) is a read-only/,
	19	'columns() error when apparently misused',
	20	);
e7513319	21
d88ecca6	22	done_testing;