From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 29 Apr 2009 13:39:27 +0000 (+0000)
Subject: Strip out inane todo
X-Git-Tag: v0.08102~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b4fdf57c88d1a6a9a85853f4905f31e8c166f8c;p=dbsrgits%2FDBIx-Class.git

Strip out inane todo
---

diff --git a/t/76select.t b/t/76select.t
index 08273ef..cd128b0 100644
--- a/t/76select.t
+++ b/t/76select.t
@@ -9,7 +9,7 @@ use DBIC::SqlMakerTest;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 23;
+plan tests => 21;
 
 my $rs = $schema->resultset('CD')->search({},
     {
@@ -84,11 +84,10 @@ $rs = $schema->resultset('CD')->search({},
     }
 );
 
-my @query = @${$rs->as_query};
-TODO: { local $TODO = 'as_query() inconsistent'; is (scalar @query, 2, 'as_query() returned empty bindval arrayref') || push @query, [] }
-
+my ($sql, @bind) = @${$rs->as_query};
 is_same_sql_bind (
-  @query,
+  $sql,
+  \@bind,
   '(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'
@@ -115,11 +114,10 @@ $rs = $schema->resultset('CD')->search({},
     }
 );
 
-@query = @${$rs->as_query};
-TODO: { local $TODO = 'as_query() inconsistent'; is (scalar @query, 2, 'as_query() returned empty bindval arrayref') || push @query, [] }
-
+($sql, @bind) = @${$rs->as_query};
 is_same_sql_bind (
-  @query,
+  $sql,
+  \@bind,
   '(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'