Prevent invisible skipping of ResultSource proxy overrides

[dbsrgits/DBIx-Class.git] / t / 20setuperrors.t

diff --git a/t/20setuperrors.t b/t/20setuperrors.t
index 25e8f32..6095817 100644 (file)
--- a/t/20setuperrors.t
+++ b/t/20setuperrors.t
@@ -1,16 +1,21 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use warnings;
 use strict;
 
 use Test::More;
 use Test::Exception;
 
+
+use DBICTest;
+
 throws_ok (
   sub {
     package BuggyTable;
     use base 'DBIx::Class::Core';
 
     __PACKAGE__->table('buggy_table');
-    __PACKAGE__->columns qw/this doesnt work as expected/;
+    __PACKAGE__->columns( qw/this doesnt work as expected/ );
   },
   qr/\bcolumns\(\) is a read-only/,
   'columns() error when apparently misused',