test -nest inside an arrayref
Laurent Dami [Tue, 28 Apr 2009 16:17:07 +0000 (16:17 +0000)]
t/04modifiers.t

index 91c9dfa..b073532 100644 (file)
@@ -364,6 +364,11 @@ my @nest_tests = (
    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;