Test direct sql passed to ResultSetColumn

[dbsrgits/DBIx-Class-Historic.git] / t / 68inflate_has_a.t

diff --git a/t/68inflate_has_a.t b/t/68inflate_has_a.t
index 266585a..9dc1661 100644 (file)
--- a/t/68inflate_has_a.t
+++ b/t/68inflate_has_a.t
@@ -5,14 +5,17 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-my $schema = DBICTest::init_schema();
+my $schema = DBICTest->init_schema();
 
 eval { require DateTime };
 plan skip_all => "Need DateTime for inflation tests" if $@;
 
+eval { require Clone };
+plan skip_all => "Need Clone for CDBICompat inflation tests" if $@;
+
 plan tests => 6;
 
-DBICTest::Schema::CD->load_components(qw/CDBICompat::HasA/);
+DBICTest::Schema::CD->load_components(qw/CDBICompat::Relationships/);
 
 DBICTest::Schema::CD->has_a( 'year', 'DateTime',
       inflate => sub { DateTime->new( year => shift ) },