20setuperrors.t

#!/usr/bin/perl

use Test::More tests => 1;

eval {
  package BuggyTable;
  use base 'DBIx::Class';

  __PACKAGE__->load_components qw/Core/;
  __PACKAGE__->table('buggy_table');
  __PACKAGE__->columns qw/this doesnt work as expected/;
};

like($@,qr/\bcolumns\(\) is a read-only/,
     "columns() error when apparently misused");