fix test
[dbsrgits/DBIx-Class-Historic.git] / t / 20setuperrors.t
CommitLineData
e7513319 1#!/usr/bin/perl
2
3use Test::More tests => 1;
4
5eval {
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 14like($@,qr/\bcolumns\(\) is a read-only/,
e7513319 15 "columns() error when apparently misused");