context("fnAppend") test_that("basic",{ fileRef <- "testReference/fnAppend_1.rds" res1 <- list( ## numeric fnAppend("feww.csv",1) , ## character fnAppend("feww.csv","one") , ## fnAppend("feww.csv","") ) expect_equal_to_reference(res1,fileRef) }) test_that("empty string does notning",{ str1 <- "fe.ef" str2 <- fnAppend(str1,"") expect_identical(str1,str2) }) test_that("multiple strings to append",{ fileRef <- "testReference/fnAppend_02.rds" res1 <- c( fnAppend("NMsim.rds",c("simname","sim2")) , ## the strings must both be appended to both fn's. fnAppend(c("NMsim.rds","NMsim2.rds"),c("simname","sim2")) ) expect_equal_to_reference(res1,fileRef) }) test_that("skip directory double dots",{ fileRef <- "testReference/fnAppend_03.rds" expect_error( fnAppend("fe/../egef","hmm") ) ## should also return error: expect_error( fnAppend("egef","hmm") ) res <- c(fnAppend("fe/../egef","hmm",allow.noext = TRUE), fnAppend("egef","hmm",allow.noext = TRUE)) expect_equal_to_reference(res,fileRef) })