From: Norbert Buchmuller <norbi@nix.hu>
Date: Mon, 5 Oct 2009 19:51:16 +0000 (+0200)
Subject: Failing test case for the bug.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=340926fd47fc18ba4f4a838ec783b4ad3e1d2f5d;p=dbsrgits%2FDBIx-Class-Historic.git

Failing test case for the bug.
---

diff --git a/t/prefetch/via_search_related.t b/t/prefetch/via_search_related.t
index 7725c6e..3988577 100644
--- a/t/prefetch/via_search_related.t
+++ b/t/prefetch/via_search_related.t
@@ -38,6 +38,35 @@ lives_ok ( sub {
 }, 'search_related prefetch with order_by works');
 
 
+lives_ok ( sub {
+  my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
+    {
+      'cd.year' => "2000",
+      'tagid' => 1,
+    },
+    {
+      join => 'tags',
+      rows => 1,
+    }
+  );
+
+  my $use_prefetch = $no_prefetch->search(
+    undef,
+    {
+      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 condition referencing unqualified column of a joined table works');
+
+
 lives_ok (sub {
     my $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
               ->search_related('artwork_to_artist')->search_related('artist',