projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Require Data::Page 2.00
[dbsrgits/DBIx-Class-Historic.git]
/
t
/
20setuperrors.t
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/;
10
__PACKAGE__->columns qw/this doesnt work as expected/;
11
};
12
13
like($@,qr/^columns\(\) is a read-only/,
14
"columns() error when apparently misused");