Renamed DBIx::Class::PK's retrieve() as find()

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 01-columns.t

diff --git a/t/cdbi-t/01-columns.t b/t/cdbi-t/01-columns.t
index 3380f52..2bc8573 100644 (file)
--- 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";
 }
 
 #-----------------------------------------------------------------------