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/; | |
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"); |