X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F08inflate_has_a.t;h=80678d1731c45dc7380f7ad46c14e57e76f8c406;hb=224d560a429b67b832000e4a2b05277e1626a138;hp=6f59161eb5e4e0f0919dccc08150aa0b2baca81d;hpb=8bc482e95a9cc9ccb06398d780f3ea0901f190b2;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/08inflate_has_a.t b/t/08inflate_has_a.t
index 6f59161..80678d1 100644
--- a/t/08inflate_has_a.t
+++ b/t/08inflate_has_a.t
@@ -9,9 +9,7 @@ use lib qw(t/lib);
 
 use_ok('DBICTest');
 
-use DBIx::Class::CDBICompat::HasA;
-
-unshift(@DBICTest::ISA, 'DBIx::Class::CDBICompat::HasA');
+DBICTest::CD->load_components(qw/CDBICompat::HasA/);
 
 DBICTest::CD->has_a( 'year', 'DateTime',
       inflate => sub { DateTime->new( year => shift ) },
@@ -19,7 +17,7 @@ DBICTest::CD->has_a( 'year', 'DateTime',
 );
 
 # inflation test
-my $cd = DBICTest::CD->retrieve(3);
+my $cd = DBICTest::CD->find(3);
 
 is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );
 
@@ -40,7 +38,7 @@ DBICTest::CD->has_a( 'year', 'DateTime',
 );
 
 # inflation test
-$cd = DBICTest::CD->retrieve(3);
+$cd = DBICTest::CD->find(3);
 
 is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );