X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F23cache.tl;h=1f85dcbcc02610cbccee4420e4c6e77b6d55d88e;hb=f109ee4aa6c7f7cc4eaf6cd15b6d67c2ebcf8702;hp=45e638cb39fd9315efad6ed3ead8993cd6692494;hpb=62e87ea8a04936c46ba9671cc95a81ca674d999b;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/run/23cache.tl b/t/run/23cache.tl
index 45e638c..1f85dcb 100644
--- a/t/run/23cache.tl
+++ b/t/run/23cache.tl
@@ -13,6 +13,16 @@ my $artist = $rs->first;
 
 is( scalar @{ $rs->get_cache }, 0, 'cache is not populated without cache attribute' );
 
+my @a = $schema->resultset("Artist")->search(
+  { },
+  {
+    join => [ qw/ cds /],
+    prefetch => [qw/ cds /],
+  }
+);
+
+is(scalar @a, 3, 'artist with cds: count parent objects');
+
 $rs = $schema->resultset("Artist")->search(
   { 'artistid' => 1 },
   {