tests/testthat/test-mktemp.R

In xrobin/xavamess: Useful Miscellaneous Functions

context("mktemp")

test_that("mktemp can create a basic temp file", {
	tmpfile <- mktemp()
	expect_true(file.exists(tmpfile))
	file.remove(tmpfile)
	expect_false(file.exists(tmpfile))
})


test_that("mktemp rejects illegal templates", {
	illegal.templates <- c(NA, "", "a", "aa", "aaa", "aa-XXX", "aa-XXX.", "aa-XXX-")
	expect_error(mktemp(illegal.templates))
	lapply(illegal.templates, function(i) {
		expect_error(mktemp(i))
	})
})

test_that("mktemp rejects illegal tmpdir", {
	illegal.tmpdir <- c("/tm p/", "/tmp/%/")
	expect_error(mktemp(tmpdir = illegal.tmpdir))
	lapply(illegal.tmpdir, function(i) {
		expect_error(mktemp(tmpdir = i))
	})
})

test_that("mktemp works with legal templates", {
	legal.templates <- c("XXX", "a.XXX")
	lapply(legal.templates, function(i) {
		tmpfile <- mktemp(i)
		expect_true(file.exists(tmpfile))
		file.remove(tmpfile)
		expect_false(file.exists(tmpfile))
	})
})