Merge branch 'rightlib' into mergelibs-241120-1113

1 files changed, 22 insertions, 0 deletions

diff --git a/yql/essentials/tests/sql/suites/action/eval_code.sql b/yql/essentials/tests/sql/suites/action/eval_code.sql
new file mode 100644
index 0000000000..10d0360aea
--- /dev/null
+++ b/yql/essentials/tests/sql/suites/action/eval_code.sql
@@ -0,0 +1,22 @@
+/* syntax version 1 */
+/* postgres can not */
+select EvaluateCode(FuncCode("Int32",AtomCode("1")));
+
+$inc = EvaluateCode(LambdaCode(($x)->{return 
+    FuncCode("+", $x, FuncCode("Int32", AtomCode("1")))}));
+select $inc(1);
+
+$addPrefixForMembers = ($strValue)->{
+    $code = EvaluateCode(LambdaCode(($str)->{
+        $members = StructTypeComponents(TypeHandle(TypeOf($strValue)));
+        $list = ListMap($members, ($x)->{
+            return ListCode(AtomCode("prefix" || $x.Name),FuncCode("Member", $str, AtomCode($x.Name)));
+        });
+
+        return FuncCode("AsStruct",$list);
+    }));
+    return $code($strValue);
+};
+
+select $addPrefixForMembers(AsStruct(1 as foo, "2" as bar));
+