[Bast-commits] r9566 - DBIx-Class/0.08/branches/extended_rels/t/relationship

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2010-06-03 10:46:13 +0100 (Thu, 03 Jun 2010)
New Revision: 9566

Modified:
   DBIx-Class/0.08/branches/extended_rels/t/relationship/custom.t
Log:
test that shows how binds in joins are missing.

Modified: DBIx-Class/0.08/branches/extended_rels/t/relationship/custom.t
===================================================================
--- DBIx-Class/0.08/branches/extended_rels/t/relationship/custom.t	2010-06-03 09:43:58 UTC (rev 9565)
+++ DBIx-Class/0.08/branches/extended_rels/t/relationship/custom.t	2010-06-03 09:46:13 UTC (rev 9566)
@@ -28,8 +28,11 @@
 map { ok($_->year < 1990 && $_->year > 1979) } @cds_80s;
 
 
+# search for all artists prefetching published cds in the 80s...
+my @all_cds_80s = $schema->resultset("Artist")->search
+  ({ 'cds_80s_noopt.cdid' => { '!=' => undef } }, { join => 'cds_80s_noopt' });
+is(@all_cds_80s, 16, '16 cds found even with the non-optimized search');
 
-
 my @last_track_ids;
 for my $cd ($schema->resultset('CD')->search ({}, { order_by => 'cdid'})->all) {
   push @last_track_ids, $cd->tracks