tests/testthat/test-new_r.R

In trinker/pax: A Package Templating Package

context("Checking new_r")

test_that("new_r creates a .R file when passed a function",{

    tmp <- tempdir()  
    paxtest1 <- file.path(tmp, "pax_testing")
    unlink(paxtest1, TRUE, TRUE)    
    dir.create(paxtest1)
    suppressMessages(new_r(paste, paxtest1))
    fls <- file.path(paxtest1, "paste.R")
    expect_true(file.exists(fls))
    lns <- readLines(fls)
    expect_true(length(grep("^function", lns)) > 0)
})

test_that("new_r creates a .R file when passed a character and rename the .R file",{

    tmp <- tempdir()  
    paxtest2 <- file.path(tmp, "pax_testing")
    unlink(paxtest2, TRUE, TRUE)    
    dir.create(paxtest2)
    suppressMessages(new_r("myfun", paxtest2, "afun.R"))
    fls <- file.path(paxtest2, "afun.R")
    expect_true(file.exists(fls))
    lns <- readLines(fls)
    expect_true(tail(lns, 1) == "")
})


test_that("new_r creates a .R file when passed a single line function",{

    printer <- function(text = "Robots stink") print(text)
    tmp <- tempdir()  
    paxtest3 <- file.path(tmp, "pax_testing")
    unlink(paxtest3, TRUE, TRUE)    
    dir.create(paxtest3)
    suppressMessages(new_r(printer, paxtest3))
    fls <- file.path(paxtest3, "printer.R")
    expect_true(file.exists(fls))
    lns <- readLines(fls)
    expect_true(length(grep("^function", lns)) > 0)
})