-#!/usr/bin/perl
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
-use Test::More tests => 1;
+use warnings;
+use strict;
-eval {
- package BuggyTable;
- use base 'DBIx::Class';
+use Test::More;
+use Test::Exception;
- __PACKAGE__->load_components qw/Core/;
- __PACKAGE__->columns qw/this doesnt work as expected/;
-};
-like($@,qr/^columns\(\) is a read-only/,
- "columns() error when apparently misused");
+use DBICTest;
+
+throws_ok (
+ sub {
+ package BuggyTable;
+ use base 'DBIx::Class::Core';
+
+ __PACKAGE__->table('buggy_table');
+ __PACKAGE__->columns( qw/this doesnt work as expected/ );
+ },
+ qr/\bcolumns\(\) is a read-only/,
+ 'columns() error when apparently misused',
+);
+
+done_testing;