ydb/yql/essentials/tests/s-expressions/suites/Casts/StrictCastOverDict.yqls

(

(let config (DataSource 'config))
(let res_sink (DataSink 'result))

# Dict<Int32, String> -> Dict<Uint8, Utf8> (good)
(let targetType (DictType (DataType 'Uint8) (DataType 'Utf8)))
(let src (AsDict '((Int32 '1) (String 'one)) '((Int32 '2) (String 'two)) '((Int32 '3) (String 'three))))
(let cast (StrictCast src targetType))
(let world (Write! world res_sink (Key) cast '('('type))))

# Dict<Int32, String> -> Dict<Int64, Utf8> (fail)
(let targetType (DictType (DataType 'Int64) (DataType 'Utf8)))
(let src (AsDict '((Int32 '1) (String 'one)) '((Int32 '2) (String '"\xff\xfe")) '((Int32 '3) (String 'three))))
(let cast (StrictCast src targetType))
(let world (Write! world res_sink (Key) cast '('('type))))

(let world (Commit! world res_sink))

(return world)

)