From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Wed, 22 Sep 2010 02:48:52 +0000 (+0000)
Subject: add test for parsing lists
X-Git-Tag: v1.70~55
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Abstract.git;a=commitdiff_plain;h=7f2dd81ec17864887c9af9b8b40d0df8c872cdef

add test for parsing lists
---

diff --git a/t/11unparse.t b/t/11unparse.t
index 3e962f9..0b21339 100644
--- a/t/11unparse.t
+++ b/t/11unparse.t
@@ -18,4 +18,6 @@ cmp_deeply($sqlat->parse( "SELECT [screen].[id], [screen].[name], [screen].[sect
    'real life statement 1 parsed correctly'
 );
 
+cmp_deeply($sqlat->parse("SELECT x, y FROM foo WHERE x IN (?, ?, ?, ?)"), [ [ [ "SELECT", [ [ "LITERAL", [ "x", "y" ] ] ] ], [ "FROM", [ [ "LITERAL", [ "foo" ] ] ] ] ], [ "WHERE", [ [ "IN", [ "LITERAL", [ "?", "?", "?", "?" ] ] ] ] ] ], 'Lists parsed correctly');
+
 done_testing;