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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-29 09:24:20 +0100 (Wed, 29 Apr 2009)
New Revision: 6017

Modified:
   DBIx-Class/0.08/trunk/t/76select.t
Log:
Add TODOs illustrating a problem with as_query

Modified: DBIx-Class/0.08/trunk/t/76select.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 08:23:25 UTC (rev 6016)
+++ DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 08:24:20 UTC (rev 6017)
@@ -9,7 +9,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 21;
+plan tests => 23;
 
 my $rs = $schema->resultset('CD')->search({},
     {
@@ -85,10 +85,10 @@
 );
 
 my @query = @${$rs->as_query};
+TODO: { local $TODO = 'as_query() inconsistent'; is (scalar @query, 2, 'as_query() returned empty bindval arrayref') || push @query, [] }
 
 is_same_sql_bind (
   @query,
-  [],
   '(SELECT me.cdid, me.title, artist.name FROM cd me  JOIN artist artist ON artist.artistid = me.artist)',
   [],
   'Use of columns attribute results in proper sql'
@@ -120,10 +120,10 @@
 );
 
 @query = @${$rs->as_query};
+TODO: { local $TODO = 'as_query() inconsistent'; is (scalar @query, 2, 'as_query() returned empty bindval arrayref') || push @query, [] }
 
 is_same_sql_bind (
   @query,
-  [],
   '(SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, me.cdid, me.title, artist.name FROM cd me  JOIN artist artist ON artist.artistid = me.artist)',
   [],
   'Use of columns attribute results in proper sql'