packrat/lib/x86_64-w64-mingw32/3.4.3/yaml/tests/testthat/test_write_yaml.R

In UBC-MDS/Karl:

context("write_yaml")

test_that("output is written to a file when a filename is specified", {
  filename <- tempfile()
  write_yaml(1:3, filename)
  output <- readLines(filename)
  unlink(filename)
  expect_equal(c("- 1", "- 2", "- 3"), output)
})