X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05in_between.t;fp=t%2F05in_between.t;h=2b6c8c7affea1adb45636d2ea9cfbe1440d24369;hb=2c99e31e33464a67d514b2ad6b993d9badc1ccdf;hp=44e40344ebefde0d12da3711e7897d8443e7a567;hpb=dbc10abd32c48b023b9ce3d2a0c458c27f48d503;p=scpubgit%2FQ-Branch.git

diff --git a/t/05in_between.t b/t/05in_between.t
index 44e4034..2b6c8c7 100644
--- a/t/05in_between.t
+++ b/t/05in_between.t
@@ -284,6 +284,13 @@ my @in_between_tests = (
     bind => [ 4, 2 ],
     test => 'Top level -in',
   },
+# This works but then SQL::Abstract::Tree breaks - something for a later commit
+#  {
+#    where => { -in => [ { -list => [ qw(x y) ] }, { -list => [ 1, 3 ] }, { -list => [ 2, 4 ] } ] },
+#    stmt => ' WHERE ((x, y) IN ((?, ?), (?, ?))',
+#    bind => [ 1, 3, 2, 4 ],
+#    test => 'Top level -in with list args',
+#  },
   {
     where => { -between => [42, 69] },
     throws => qr/Illegal use of top-level '-between'/,