This todo is active on the cpan 1.51 release, still needs resolving thus leaving...

[scpubgit/Q-Branch.git] / t / 04modifiers.t

diff --git a/t/04modifiers.t b/t/04modifiers.t
index dcb61f2..1d73dff 100755 (executable)
--- a/t/04modifiers.t
+++ b/t/04modifiers.t
@@ -145,6 +145,7 @@ my @and_or_tests = (
   },
   # 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],
@@ -152,6 +153,7 @@ my @and_or_tests = (
 
   # 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%'
     }},
@@ -338,12 +340,12 @@ my @numbered_mods = (
   },
 );
 
-#can not be verified via is_same_sql_bind - need exact matching (parenthesis and all)
-my @nest_tests = ();
-
 plan tests => @and_or_tests*3 + @numbered_mods*4;
 
 for my $case (@and_or_tests) {
+  TODO: {
+    local $TODO = $case->{todo} if $case->{todo};
+
     local $Data::Dumper::Terse = 1;
 
     my @w;
@@ -361,6 +363,7 @@ for my $case (@and_or_tests) {
     });
     is (@w, 0, 'No warnings within and-or tests')
       || diag join "\n", 'Emitted warnings:', @w;
+  }
 }
 
 my $w_str = "\QUse of [and|or|nest]_N modifiers is deprecated and will be removed in SQLA v2.0\E";