From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 28 Apr 2009 23:16:48 +0000 (+0000)
Subject: test for prefetch by columns
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61d26faea8b6246a1895e13270e9c3d0a2fc3efd;p=dbsrgits%2FDBIx-Class-Historic.git

test for prefetch by columns
---

diff --git a/t/76select.t b/t/76select.t
index 19e59ba..77b5541 100644
--- a/t/76select.t
+++ b/t/76select.t
@@ -73,3 +73,10 @@ is ($subsel->next->title, $cds->next->title, 'First CD title match');
 is ($subsel->next->title, $cds->next->title, 'Second CD title match');
 
 is($schema->resultset('CD')->current_source_alias, "me", '$rs->current_source_alias returns "me"');
+
+my @cds = $schema->resultset('CD')->search({},
+    {
+        'join' => 'artist',
+        'columns' => ['cdid','title','artist.name'],
+    }
+);