[dbsrgits/DBIx-Class.git] / t / 20setuperrors.t

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/ );
  },
  qr/\bcolumns\(\) is a read-only/,
  'columns() error when apparently misused',
);

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