tests/testthat/test-serializers_yaml.R

In ropenscilabs/vcr: Record 'HTTP' Calls to Disk

context("serializers: YAML")

test_that("YAML basic stuff", {
  expect_is(YAML, "R6ClassGenerator")
  aa <- YAML$new()
  expect_is(aa, "R6")
  expect_is(aa, "YAML")

  # vars
  expect_is(aa$file_extension, "character")
  expect_equal(aa$file_extension, ".yml")
  expect_is(aa$path, "character")
  expect_match(aa$path, "\\.yml")

  # methods
  expect_is(aa$serialize, "function")
  expect_is(aa$deserialize, "function")
})

test_that("YAML usage", {
  z <- YAML$new(path = "stuff")
  expect_match(z$path, "stuff.yml")
  # before file exists:
  expect_error(suppressWarnings(z$deserialize()), "cannot open")
  # after file exists, before any yaml in it:
  cat("", file = z$path)
  expect_equal(z$deserialize(), list())
  # after file exists, with yaml in it, with incomplete final line:
  cat("foo: 123\nbar: 456", file = z$path)
  expect_warning(z$deserialize(), "incomplete final line")
  # after file exists, with yaml in it, without incomplete final line:
  cat("foo: 123\nbar: 456\n", file = z$path)
  expect_is(z$deserialize(), "list")

  # cleanup
  unlink(z$path)
})

test_that("YAML fails well", {
  expect_error(YAML$new(a = 5), "unused argument")

  z <- YAML$new()
  # if no path specified, fails with useful message as is
  expect_error(suppressWarnings(z$deserialize()),
    "cannot open the connection")
})
test_that("Windows encoding", {
  path <- test_path("cassettes/ropenaq-encoding.yaml")
  expect_is(yaml_load_desecret(path), "list") # could fail on Windows
})