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

#!/usr/bin/perl

use Test::More tests => 1;

eval {
  package BuggyTable;
  use base 'DBIx::Class';

  __PACKAGE__->load_components qw/Core/;
  __PACKAGE__->table('buggy_table');
  __PACKAGE__->columns qw/this doesnt work as expected/;
};

like($@,qr/\bcolumns\(\) is a read-only/,
     "columns() error when apparently misused");
Commit	Line	Data
e7513319	1	#!/usr/bin/perl
	2
	3	use Test::More tests => 1;
	4
	5	eval {
	6	package BuggyTable;
	7	use base 'DBIx::Class';
	8
	9	__PACKAGE__->load_components qw/Core/;
cda04c3a	10	__PACKAGE__->table('buggy_table');
e7513319	11	__PACKAGE__->columns qw/this doesnt work as expected/;
	12	};
	13
701da8c4	14	like($@,qr/\bcolumns\(\) is a read-only/,
e7513319	15	"columns() error when apparently misused");