diff options
| author | Maxim Yurchuk <maxim-yurchuk@ydb.tech> | 2024-11-20 17:37:57 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-11-20 17:37:57 +0000 |
| commit | f76323e9b295c15751e51e3443aa47a36bee8023 (patch) | |
| tree | 4113c8cad473a33e0f746966e0cf087252fa1d7a /yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql | |
| parent | 753ecb8d410a4cb459c26f3a0082fb2d1724fe63 (diff) | |
| parent | a7b9a6afea2a9d7a7bfac4c5eb4c1a8e60adb9e6 (diff) | |
| download | ydb-f76323e9b295c15751e51e3443aa47a36bee8023.tar.gz | |
Merge pull request #11788 from ydb-platform/mergelibs-241120-1113
Library import 241120-1113
Diffstat (limited to 'yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql')
| -rw-r--r-- | yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql b/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql new file mode 100644 index 0000000000..8a0197dd5e --- /dev/null +++ b/yql/essentials/tests/s-expressions/suites/Optimizers/VisitOverVisit.yql @@ -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) +) |