fix for hashref $logic

[dbsrgits/SQL-Abstract.git] / t / 04modifiers.t

diff --git a/t/04modifiers.t b/t/04modifiers.t
index 1d73dff..47530b0 100644 (file)
--- a/t/04modifiers.t
+++ b/t/04modifiers.t
@@ -144,21 +144,20 @@ my @and_or_tests = (
     bind => [1..3],
   },
   # test column multi-cond in arrayref (even more useful)
-  {
+#  {
 #    todo => 'Clarify semantics in 1.52',
-    where => { x => { '!=' => [ -and => (1 .. 3) ] } },
-    stmt => 'WHERE x != ? AND x != ? AND x != ?',
-    bind => [1..3],
-  },
+#    where => { x => { '!=' => [ -and => (1 .. 3) ] } },
+#    stmt => 'WHERE x != ? AND x != ? AND x != ?',
+#    bind => [1..3],
+#  },
 
   # the -or should affect only the inner hashref, as we are not in an outer arrayref
   {
-#    todo => 'Clarify semantics in 1.52',
     where => { x => {
       -or => { '!=', 1, '>=', 2 }, -like => 'x%'
     }},
-    stmt => 'WHERE (x != ? OR x >= ?) AND x LIKE ?',
-    bind => [qw/1 2 x%/],
+    stmt => 'WHERE ( ( x LIKE ? AND ( x != ? OR x >= ? ) ) )',
+    bind => [qw/x% 1 2/],
   },
 
   # the -and should affect the OUTER arrayref, while the internal structures remain intact