tests/testthat/test-ploc.R

context("Checking ploc")

test_that("ploc sets to a preset location when `options(dit =` is set",{

    locs <- file.path(Sys.getenv("USERPROFILE"), "Desktop")
    options(dir = locs)
    expect_equal(ploc("DELETE_ME"), file.path(locs, "DELETE_ME"))

})
trinker/pax documentation built on May 31, 2019, 9:42 p.m.