Merge branch 'rightlib' into mergelibs-241120-1113

1 files changed, 21 insertions, 0 deletions

diff --git a/yql/essentials/tests/sql/suites/action/runtime_apply_quoted_code.sql b/yql/essentials/tests/sql/suites/action/runtime_apply_quoted_code.sql
new file mode 100644
index 0000000000..8a4a92b353
--- /dev/null
+++ b/yql/essentials/tests/sql/suites/action/runtime_apply_quoted_code.sql
@@ -0,0 +1,21 @@
+/* syntax version 1 */
+/* postgres can not */
+$func = ($x)->{
+    return $x == 1;
+};
+
+$structApply = ($strValue, $f)->{
+    $code = EvaluateCode(LambdaCode(($strCode)->{
+        $members = StructTypeComponents(TypeHandle(TypeOf($strValue)));
+       
+        return Yql::Fold($members, ReprCode(false), ($item, $state)->{
+            $member = FuncCode("Member", $strCode, AtomCode($item.Name));
+            $apply = FuncCode("Apply", QuoteCode($f), $member);
+            return FuncCode("Or", $state, $apply);
+        });
+    }));
+    return $code($strValue);
+};
+
+select $structApply(AsStruct(1 as a,2 as b,3 as c), $func);
+select $structApply(AsStruct(4 as a,2 as b,3 as c), $func);