Failing test case for the bug.
Norbert Buchmuller [Mon, 5 Oct 2009 19:51:16 +0000 (21:51 +0200)]
t/prefetch/via_search_related.t

index 7725c6e..3988577 100644 (file)
@@ -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',