HasNullFalse.yqls 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. (
  2. (let config (DataSource 'config))
  3. (let res_sink (DataSink 'result))
  4. # Data
  5. (let value (String 'test))
  6. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  7. (let value (Int32 '1))
  8. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  9. (let value (TzDatetime '"1546981200,Europe/Moscow"))
  10. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  11. (let valye (/ (Float '1) (Float '0)))
  12. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  13. # Optional
  14. (let value (Just (Int32 '1)))
  15. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  16. # Tuple
  17. (let value '((Int32 '1) (String 'test) (Float '1)))
  18. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  19. (let value '())
  20. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  21. # Struct
  22. (let value (AsStruct '('a (Int32 '1)) '('b (String 'one))))
  23. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  24. (let value (Struct))
  25. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  26. # Variant
  27. (let valueType (VariantType (TupleType (DataType 'Int32) (NullType))))
  28. (let value (Variant (Int32 '123) '0 valueType))
  29. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  30. (let valueType (VariantType (StructType '('a (DataType 'Int32)) '('b (OptionalType (DataType 'String))))))
  31. (let value (Variant (Int32 '1) 'a valueType))
  32. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  33. # List
  34. (let value (AsList (Int32 '1) (Int32 '2) (Int32 '3)))
  35. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  36. (let value (List (ListType (NullType))))
  37. (let world (Write! world res_sink (Key) (HasNull value) '('('type))))
  38. (let world (Commit! world res_sink))
  39. (return world)
  40. )