29 lines
1.0 KiB
Factor
29 lines
1.0 KiB
Factor
! Copyright (C) 2014 Jon Harper.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel literals sequences tools.test yaml.conversion
|
|
yaml.ffi ;
|
|
IN: yaml.conversion.tests
|
|
|
|
: resolve-test ( res str -- ) [ f resolve-plain-scalar ] curry unit-test ;
|
|
: resolve-tests ( res seq -- ) [
|
|
[ f resolve-plain-scalar ] curry unit-test
|
|
] with each ;
|
|
|
|
${ YAML_NULL_TAG } "null" resolve-test
|
|
${ YAML_NULL_TAG } "" resolve-test
|
|
${ YAML_STR_TAG } "\"\"" resolve-test
|
|
${ YAML_BOOL_TAG } { "true" "True" "false" "FALSE" } resolve-tests
|
|
${ YAML_INT_TAG } { "0" "0o7" "0x3A" "-19" } resolve-tests
|
|
${ YAML_FLOAT_TAG } { "0." "-0.0" ".5" "+12e03" "-2E+05" } resolve-tests
|
|
${ YAML_FLOAT_TAG } { ".inf" "-.Inf" "+.INF" ".NAN" } resolve-tests
|
|
${ YAML_TIMESTAMP_TAG } {
|
|
"2001-12-15T02:59:43.1Z"
|
|
"2001-12-14t21:59:43.10-05:00"
|
|
"2001-12-14 21:59:43.10 -5"
|
|
"2001-12-15 2:59:43.10"
|
|
"2002-12-14"
|
|
"2001-2-4 \t\t 1:59:43.10 \t\t -5:00"
|
|
} resolve-tests
|
|
${ YAML_STR_TAG } "<<" resolve-test
|
|
${ YAML_MERGE_TAG } [ "<<" t resolve-plain-scalar ] unit-test
|