X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07subqueries.t;h=28bac85ade52387e42589f104f4b9ffe2120238b;hb=10e6c94609fc94467ef8f281ffe192d8038ffc9e;hp=d0564aa3515a558fd66248b9225522a3e4f94db2;hpb=4f30591bc0678f8a5d657e79c6985606b064cd1d;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/07subqueries.t b/t/07subqueries.t
index d0564aa..28bac85 100644
--- a/t/07subqueries.t
+++ b/t/07subqueries.t
@@ -8,6 +8,15 @@ use SQL::Abstract::Test import => ['is_same_sql_bind'];
 
 use SQL::Abstract;
 
+#### WARNING ####
+#
+# -nest has been undocumented on purpose, but is still supported for the
+# foreseable future. Do not rip out the -nest tests before speaking to
+# someone on the DBIC mailing list or in irc.perl.org#dbix-class
+#
+#################
+
+
 my $sql = SQL::Abstract->new;
 
 my (@tests, $sub_stmt, @sub_bind, $where);
@@ -35,7 +44,7 @@ $where = {
   };
 push @tests, {
   where => $where,
-  stmt => " WHERE ( bar > ALL (SELECT c1 FROM t1 WHERE ( c2 < ? AND c3 LIKE ? )) AND foo = ? )",
+  stmt => " WHERE ( bar > ALL (SELECT c1 FROM t1 WHERE (( c2 < ? AND c3 LIKE ? )) ) AND foo = ? )",
   bind => [100, "foo%", 1234],
 };
 
@@ -90,16 +99,10 @@ push @tests, {
   bind => [100, "foo%", 1234],
 };
 
-
-plan tests => scalar(@tests);
-
 for (@tests) {
 
   my($stmt, @bind) = $sql->where($_->{where}, $_->{order});
   is_same_sql_bind($stmt, \@bind, $_->{stmt}, $_->{bind});
 }
 
-
-
-
-
+done_testing;