diff options
| author | robot-piglet <robot-piglet@yandex-team.com> | 2024-12-13 15:14:50 +0300 |
|---|---|---|
| committer | robot-piglet <robot-piglet@yandex-team.com> | 2024-12-13 16:07:36 +0300 |
| commit | 5cbdc6f2bc811da3e6104da774a30b25a54a8708 (patch) | |
| tree | 68f3ddb0d928332e5ea73853f40f4670f4babb65 /yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls | |
| parent | 1402a032649d20ffb80a541f706afcd31cd897fa (diff) | |
| download | ydb-5cbdc6f2bc811da3e6104da774a30b25a54a8708.tar.gz | |
Intermediate changes
commit_hash:27af5f8a0a7836d78ffdc205213f07f79dd9f7ad
Diffstat (limited to 'yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls')
| -rw-r--r-- | yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls b/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls new file mode 100644 index 0000000000..8a0197dd5e --- /dev/null +++ b/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yqls @@ -0,0 +1,29 @@ +( +#comment +(let config (DataSource 'config)) +(let world (Configure! world config 'PureDataSource 'yt)) + +(let res_sink (DataSink 'result)) +(let vt3 (VariantType (TupleType (DataType 'String) (DataType 'String) (DataType 'String)))) +(let vt2 (VariantType (TupleType (DataType 'String) (DataType 'String)))) +(let v0 (Variant (String 'aaa) '0 vt3)) +(let v1 (Variant (String 'bbb) '1 vt3)) +(let v2 (Variant (String 'ccc) '2 vt3)) +(let list (AsList v0 v1 v2)) + +(let handler0 (lambda '(x) (Concat (String '0-) x))) +(let handler1 (lambda '(x) (Concat (String '1-) x))) +(let handler2 (lambda '(x) (Concat (String '2-) x))) + +(let remap (lambda '(x) (Visit x '0 (lambda '(x) (Variant x '1 vt3)) '1 (lambda '(x) (Variant x '2 vt3)) '2 (lambda '(x) (Variant x '0 vt3))))) +(let def (lambda '(x) (Visit x '0 (lambda '(x) (Variant (Apply handler0 x) '0 vt3)) v1))) +(let reduce (lambda '(x) (Visit x '0 (lambda '(x) (Variant x '0 vt2)) '1 (lambda '(x) (Variant x '0 vt2)) '2 (lambda '(x) (Variant x '1 vt2))))) + +(let world (Write! world res_sink (Key) (Map list (lambda '(x) (Visit (Apply remap x) '0 handler0 '1 handler1 '2 handler2))) '('('type)))) +(let world (Write! world res_sink (Key) (Map list (lambda '(x) (Visit (Apply def x) '0 handler0 '1 handler1 (String 'def)))) '('('type)))) +(let world (Write! world res_sink (Key) (Map list (lambda '(x) (Visit (Apply def x) '0 handler0 (String 'def)))) '('('type)))) +(let world (Write! world res_sink (Key) (Map list (lambda '(x) (Visit (Apply reduce x) '0 handler0 '1 handler1))) '('('type)))) + +(let world (Commit! world res_sink)) +(return world) +) |