Document and test non-reference { -in => ... }

Also test the documented but untested { -in => [] } optimisation.

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 4609e5d..de10fcd 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -2231,7 +2231,8 @@ would generate:
     )";
     @bind = ('2000');
 
-
+Finally, if the argument to C<-in> is not a reference, it will be
+treated as a single-element array.
 
 Another pair of operators is C<-between> and C<-not_between>,
 used with an arrayref of two values:

diff --git a/t/01generate.t b/t/01generate.t
index 60dea0d..f015d27 100644 (file)
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -538,6 +538,14 @@ my @tests = (
               stmt_q => 'SELECT * FROM `test` WHERE ( `Y` = ( MAX( LENGTH( MIN ? ) ) ) )',
               bind   => [[Y => 'x']],
       },
+      {
+              func => 'select',
+              args => ['test', '*', { a => { -in => [] }, b => { -not_in => [] }, c => { -in => 42 } }],
+              stmt => 'SELECT * FROM test WHERE ( 0=1 AND 1=1 AND c IN ( ? ))',
+              stmt_q => 'SELECT * FROM `test` WHERE ( 0=1 AND 1=1 AND `c` IN ( ? ))',
+              bind => [ 42 ],
+      },
+
 );
 
 for my $t (@tests) {