Commit | Line | Data |
---|---|---|
c0329273 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | ||
d88ecca6 | 3 | use warnings; |
4 | use strict; | |
e7513319 | 5 | |
d88ecca6 | 6 | use Test::More; |
7 | use Test::Exception; | |
e7513319 | 8 | |
c0329273 | 9 | |
8d6b1478 | 10 | use DBICTest; |
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; |