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__->table('buggy_table');
  11   __PACKAGE__->columns qw/this doesnt work as expected/;
  12 };
  13
  14 like($@,qr/^columns\(\) is a read-only/,
  15      "columns() error when apparently misused");