Fix annoying warnings on innocent looking MSSQL code

[dbsrgits/DBIx-Class.git] / t / resultsource / set_primary_key.t

diff --git a/t/resultsource/set_primary_key.t b/t/resultsource/set_primary_key.t
index b4b65f8..e46ad64 100644 (file)
--- a/t/resultsource/set_primary_key.t
+++ b/t/resultsource/set_primary_key.t
@@ -1,10 +1,12 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 use Test::More;
 use Test::Exception;
 use Test::Warn;
 
-use lib 't/lib';
+
 use DBICTest;
 
 throws_ok {
@@ -25,6 +27,6 @@ warnings_exist {
   );
   __PACKAGE__->set_primary_key(qw(foo bar))
 } qr/Primary key of source 'foo' includes the column 'bar' which has its 'is_nullable' attribute set to true/,
-'proper exception on non-existing column as PK';
+'proper exception on is_nullable column as PK';
 
 done_testing;