From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 15 Nov 2009 12:01:34 +0000 (+0000)
Subject: TODOify test until we get an AST
X-Git-Tag: v0.08116~141^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84c690f19e1a31cd39d914f2db0d8ccd7ea9e799;p=dbsrgits%2FDBIx-Class.git

TODOify test until we get an AST
---

diff --git a/t/prefetch/via_search_related.t b/t/prefetch/via_search_related.t
index f07f1cd..f686e15 100644
--- a/t/prefetch/via_search_related.t
+++ b/t/prefetch/via_search_related.t
@@ -37,6 +37,7 @@ lives_ok ( sub {
 
 }, 'search_related prefetch with order_by works');
 
+TODO: { local $TODO = 'Unqualified columns in where clauses can not be fixed without an SQLA rewrite' if SQL::Abstract->VERSION < 2;
 lives_ok ( sub {
   my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
     {
@@ -64,6 +65,7 @@ lives_ok ( sub {
   );
 
 }, 'search_related prefetch with condition referencing unqualified column of a joined table works');
+}
 
 
 lives_ok (sub {