add test for parsing lists
Arthur Axel "fREW" Schmidt [Wed, 22 Sep 2010 02:48:52 +0000 (02:48 +0000)]
t/11unparse.t

index 3e962f9..0b21339 100644 (file)
@@ -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;