extra/yaml/conversion/conversion-tests.factor

   1 ! Copyright (C) 2014 Jon Harper.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: kernel literals sequences tools.test yaml.conversion
   4 yaml.ffi ;
   5 IN: yaml.conversion.tests
   6
   7 : resolve-test ( res str -- ) [ f resolve-plain-scalar ] curry unit-test ;
   8 : resolve-tests ( res seq -- ) [
   9   [ f resolve-plain-scalar ] curry unit-test
  10 ] with each ;
  11
  12 ${ YAML_NULL_TAG } "null" resolve-test
  13 ${ YAML_NULL_TAG } ""     resolve-test
  14 ${ YAML_STR_TAG } "\"\""  resolve-test
  15 ${ YAML_BOOL_TAG } { "true" "True" "false" "FALSE" } resolve-tests
  16 ${ YAML_INT_TAG } { "0" "0o7" "0x3A" "-19" } resolve-tests
  17 ${ YAML_FLOAT_TAG } { "0." "-0.0" ".5" "+12e03" "-2E+05" } resolve-tests
  18 ${ YAML_FLOAT_TAG } { ".inf" "-.Inf" "+.INF" ".NAN" } resolve-tests
  19 ${ YAML_TIMESTAMP_TAG } {
  20   "2001-12-15T02:59:43.1Z"
  21   "2001-12-14t21:59:43.10-05:00"
  22   "2001-12-14 21:59:43.10 -5"
  23   "2001-12-15 2:59:43.10"
  24   "2002-12-14"
  25   "2001-2-4   \t\t  1:59:43.10  \t\t   -5:00"
  26 } resolve-tests
  27 ${ YAML_STR_TAG } "<<" resolve-test
  28 ${ YAML_MERGE_TAG } [ "<<" t resolve-plain-scalar ] unit-test