ydb/yql/essentials/tests/s-expressions/suites/Optimizers/MoveExtractMembersOverExtend.yqls

(
(let config (DataSource 'config))

(import id_module '"/lib/yql/id.yql")
(let id (bind id_module 'id))

(let str1 (AsStruct '('a (Uint32 '1)) '('b (String 'a)) '('c (Bool 'true))))
(let str2 (AsStruct '('a (Uint32 '2)) '('b (String 'b)) '('c (Bool 'false))))
(let list1 (Apply id (AsList str1 str2)))
(let list1 (Extend list1 list1))
(let list1 (ExtractMembers list1 '('a)))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink (Key) list1 '('('type))))
(let world (Commit! world res_sink))
(return world)
)