bind => [10, 20, '%son%'],\r
};\r
\r
+#6\r
+($sub_stmt, @sub_bind) = ("SELECT c1 FROM t1 WHERE c2 < ? AND c3 LIKE ?",\r
+ 100, "foo%");\r
+$where = {\r
+ foo => 1234,\r
+ bar => { -in => \[$sub_stmt => @sub_bind] },\r
+ };\r
+push @tests, {\r
+ where => $where,\r
+ stmt => " WHERE ( bar IN (SELECT c1 FROM t1 WHERE c2 < ? AND c3 LIKE ?) AND foo = ? )",\r
+ bind => [100, "foo%", 1234],\r
+};\r
+\r
\r
plan tests => scalar(@tests);\r
\r