X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F01-columns.t;h=2bc85732c2270fc6af9906de24202f09ba340bac;hb=656796f2088da66cc80f4eb127c39c923ef3c1dd;hp=3380f5202509957f35a7ec8141582a6e2e2ad92f;hpb=89c0a5a2dd20b4973b39b17caff0843efc8a5e60;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi-t/01-columns.t b/t/cdbi-t/01-columns.t
index 3380f52..2bc8573 100644
--- a/t/cdbi-t/01-columns.t
+++ b/t/cdbi-t/01-columns.t
@@ -106,11 +106,11 @@ ok(!State->find_column('HGLAGAGlAG'), '!find_column HGLAGAGlAG');
 {
         package DieTest;
         @DieTest::ISA = qw(DBIx::Class);
-        DieTest->load_components(qw/Core/);
+        DieTest->load_components(qw/CDBICompat::Retrieve Core/);
         package main;
 	local $SIG{__WARN__} = sub { };
 	eval { DieTest->retrieve(1) };
-	like $@, qr/Can't retrieve unless primary columns are defined/, "Need primary key for retrieve";
+	like $@, qr/unless primary columns are defined/, "Need primary key for retrieve";
 }
 
 #-----------------------------------------------------------------------