tests/test-cran/test-yaml.R

In yihui/xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'

library(testit)

yaml = '
a: 1
b: [1, 2, 3]
c: true
d:
  e: !expr 1+1
  f: null
'

if (loadable('yaml')) assert('yaml_load() works with the yaml package', {
  (yaml_load(yaml) %==% list(a = 1L, b = 1:3, c = TRUE, d = list(e = 2, f = NULL)))
  (yaml_load(yaml, envir = FALSE)[[c('d', 'e')]] %==% expression(1 + 1))
  # this test won't work for yaml::yaml.load() but works for yaml_load()
  f = function() {
    foo = 1:10
    yaml_load('a: !expr head(foo, 4)')
  }
  (f() %==% list(a = 1:4))
})

assert('yaml_load() works without the yaml package', {
  (yaml_load(yaml, use_yaml = FALSE) %==% list(a = 1L, b = 1:3, c = TRUE, d = list(e = 2, f = NULL)))
  (yaml_load(yaml, envir = FALSE, use_yaml = FALSE)[[c('d', 'e')]] %==% expression(1 + 1))
  # this test won't work for yaml::yaml.load() but works for yaml_load()
  f = function() {
    foo = 1:10
    yaml_load('a: !expr head(foo, 4)', use_yaml = FALSE)
  }
  (f() %==% list(a = 1:4))
})