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

[dami at dev.catalyst.perl.org]

Author: dami
Date: 2009-04-28 17:17:07 +0100 (Tue, 28 Apr 2009)
New Revision: 6000

Modified:
   SQL-Abstract/1.x/trunk/t/04modifiers.t
Log:
test -nest inside an arrayref

Modified: SQL-Abstract/1.x/trunk/t/04modifiers.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/04modifiers.t	2009-04-28 13:36:56 UTC (rev 5999)
+++ SQL-Abstract/1.x/trunk/t/04modifiers.t	2009-04-28 16:17:07 UTC (rev 6000)
@@ -364,6 +364,11 @@
    stmt  => 'WHERE ( ( (c = ? OR b = ?) AND a = ? ) )',
    bind  => [qw/3 2 1/],
  },
+ {
+   where => [a => 1, -nest => {b => 2, c => 3}, -nest => [d => 4, e => 5]],
+   stmt  => 'WHERE ( a = ? OR ( b = ? AND c = ? ) OR ( d = ? OR e = ? ) )',
+   bind  => [qw/1 2 3 4 5/],
+ },
 );
 
 plan tests => @and_or_tests*3 + @numbered_mods*4 + @nest_tests*2;