tests/testthat/test_saveRev.R

In Paleantology/RevR: Interaction with "RevBayes" in R

library(Revticulate)
library(testthat)

test_that(
  "Testing saveRev()",
  {
    file <- tempfile()

    expect_false(file.exists(file))

    doRev("2", evaluate = F)

    saveRev(file)

    expect_true(file.exists(file))

    clearRev()
  }
)