X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10test.t;h=dc56f23d9cc8426c07fb44cb7b9b8efe8a1ac061;hb=69f78611dbf1087c209b125aabb2803c5fec044a;hp=60d10d7a36820b0e83f09cfa0d11adf8021a0f8c;hpb=7d27345242d34aa0ad38e3a5f54d0bd09b558d32;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/10test.t b/t/10test.t
index 60d10d7..dc56f23 100644
--- a/t/10test.t
+++ b/t/10test.t
@@ -1093,4 +1093,17 @@ like(
   'expected debug of missing branch',
 );
 
+
+ok (eq_sql_bind (
+  \[ 'SELECT foo FROM bar WHERE baz = ? or buzz = ?', [ {} => 1 ], 2 ],
+  'SELECT foo FROM bar WHERE (baz = ?) OR buzz = ?',
+  [ [ {} => 1 ], 2 ],
+), 'arrayrefref unpacks correctly' );
+
+is_same_sql_bind(
+  \[ 'SELECT foo FROM bar WHERE baz = ? or buzz = ?', [ {} => 1 ], 2 ],
+  \[ 'SELECT foo FROM bar WHERE (( baz = ? OR (buzz = ?) ))', [ {} => 1 ], 2 ],
+  'double arrayrefref unpacks correctly'
+);
+
 done_testing;