[Bast-commits] r6013 - DBIx-Class/0.08/trunk/t

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-04-29 00:16:48 +0100 (Wed, 29 Apr 2009)
New Revision: 6013

Modified:
   DBIx-Class/0.08/trunk/t/76select.t
Log:
test for prefetch by columns

Modified: DBIx-Class/0.08/trunk/t/76select.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76select.t	2009-04-28 22:15:21 UTC (rev 6012)
+++ DBIx-Class/0.08/trunk/t/76select.t	2009-04-28 23:16:48 UTC (rev 6013)
@@ -73,3 +73,10 @@
 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'],
+    }
+);