[Bast-commits] r9731 - SQL-Abstract/1.x/trunk/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-22 03:48:52 +0100 (Wed, 22 Sep 2010)
New Revision: 9731

Modified:
   SQL-Abstract/1.x/trunk/t/11unparse.t
Log:
add test for parsing lists

Modified: SQL-Abstract/1.x/trunk/t/11unparse.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/11unparse.t	2010-09-21 05:11:08 UTC (rev 9730)
+++ SQL-Abstract/1.x/trunk/t/11unparse.t	2010-09-22 02:48:52 UTC (rev 9731)
@@ -18,4 +18,6 @@
    '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;