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