From: Laurent Dami <laurent.dami@etat.ge.ch>
Date: Tue, 28 Apr 2009 16:17:07 +0000 (+0000)
Subject: test -nest inside an arrayref
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a8b7db02691ad2fdce34b5acae819390b15b240;p=scpubgit%2FQ-Branch.git

test -nest inside an arrayref
---

diff --git a/t/04modifiers.t b/t/04modifiers.t
index 91c9dfa..b073532 100644
--- a/t/04modifiers.t
+++ b/t/04modifiers.t
@@ -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;