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

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2009-03-19 20:49:39 +0000 (Thu, 19 Mar 2009)
New Revision: 5777

Modified:
   SQL-Abstract/1.x/trunk/t/01generate.t
Log:
SQLA syntax regression from 1.24


Modified: SQL-Abstract/1.x/trunk/t/01generate.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/01generate.t	2009-03-19 20:35:37 UTC (rev 5776)
+++ SQL-Abstract/1.x/trunk/t/01generate.t	2009-03-19 20:49:39 UTC (rev 5777)
@@ -526,6 +526,16 @@
               stmt_q => 'SELECT * FROM `test` WHERE ( `a` < to_date(?, \'MM/DD/YY\') AND `b` = ? )',
               bind   => [[{dummy => 1} => '02/02/02'], [b => 8]],
       },             
+      #57
+      {
+              func   => 'select',
+              new    => {bindtype => 'columns'},
+              args   => ['test', '*', { -or => [ -and => [ a => 'a', b => 'b' ],-and => [ c => 'c', d => 'd' ]  ]  }],
+              stmt   => 'SELECT * FROM test WHERE ( ( ( ( ( a = ? ) AND ( b = ? ) ) ) OR ( ( ( c = ? ) AND ( d = ? ) ) ) ) )',
+              stmt_q => 'SELECT * FROM `test` WHERE ( ( ( ( ( `a` = ? ) AND ( `b` = ? ) ) ) OR ( ( ( `c` = ? ) AND ( `d` = ? ) ) ) ) )',
+              bind   => [[a => 'a'], [b => 'b'], [ c => 'c'],[ d => 'd']],
+      },          
+      
 );