tests/testthat/test-flow_folders.R

test_that("flow_folders() can create folders.", {
  temp_dir <- tempdir(check = TRUE)
  flow_folders(temp_dir)

  expect_true(dir.exists(file.path(temp_dir, "code")))
})
zawmtun/slingr documentation built on Dec. 23, 2021, 9:14 p.m.