[Bast-commits] r7202 - in DBIx-Class/0.08/branches: . prefetch_redux/t/prefetch

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-04 21:05:03 +0000 (Tue, 04 Aug 2009)
New Revision: 7202

Removed:
   DBIx-Class/0.08/branches/prefetch_bug-related_resultset_order_by_plus_limit/
Modified:
   DBIx-Class/0.08/branches/prefetch_redux/t/prefetch/via_search_related.t
Log:
Move norbi's test to prefetch_redux - it's the same idea

Modified: DBIx-Class/0.08/branches/prefetch_redux/t/prefetch/via_search_related.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch_redux/t/prefetch/via_search_related.t	2009-08-04 20:50:51 UTC (rev 7201)
+++ DBIx-Class/0.08/branches/prefetch_redux/t/prefetch/via_search_related.t	2009-08-04 21:05:03 UTC (rev 7202)
@@ -9,6 +9,35 @@
 
 my $schema = DBICTest->init_schema();
 
+lives_ok ( sub {
+  my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
+    {
+      'cd.year' => "2000",
+    },
+    {
+      join => 'tags',
+      order_by => 'me.trackid',
+      rows => 1,
+    }
+  );
+
+  my $use_prefetch = $no_prefetch->search(
+    {},
+    {
+      prefetch => 'tags',
+    }
+  );
+
+  is($use_prefetch->count, $no_prefetch->count, 'counts with and without prefetch match');
+  is(
+    scalar ($use_prefetch->all),
+    scalar ($no_prefetch->all),
+    "Amount of returned rows is right"
+  );
+
+}, 'search_related prefetch with order_by works');
+
+
 lives_ok (sub {
     my $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
               ->search_related('artwork_to_artist')->search_related('artist',
@@ -59,6 +88,6 @@
 
 
 
-}, 'distinct generally works with prefetch');
+}, 'distinct generally works with prefetch on deep search_related chains');
 
 done_testing;