tests/testthat/test_createStamp.R

In philipdelff/tracee: Easily Save Output and Trace it Back to Code

context("createStamp")

test_that("basic",{

    fileRef <- "testReference/createStamp01.rds"
    res <- createStamp(script="ex.R",file="out.R",time="a test")

    expect_equal_to_reference(res,fileRef)

})