added a test for count() caching

Perl5 · Mar 14, 2006 · 717f349 · 717f349
1 parent 62cb84e
commit 717f349
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/run/23cache.tl b/t/run/23cache.tl
@@ -84,7 +84,9 @@ $rs = $schema->resultset("Artist")->search(
   }
 );
 {
+my $artist_count_before = $schema->resultset('Artist')->count;
 $schema->resultset("Artist")->create({artistid=>4,name=>qq{Humoungous Hamsters}});
+is($schema->resultset('Artist')->count, $artist_count_before + 1, 'count() reflects new artist');
 my $artist = $schema->resultset("Artist")->search(
   { artistid => 4 },{prefetch=>[qw/cds/]}
 )->first;