doc tweaks, failing test from jcs

[dbsrgits/DBIx-Class.git] / t / run / 23cache.tl

diff --git a/t/run/23cache.tl b/t/run/23cache.tl
index 45e638c..1f85dcb 100644 (file)
--- 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 },
   {