tests/testthat/test_getRevHistory.R

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

library(testthat)
library(Revticulate)

test_that(
  "Testing getRevHistory()",
  {
    skip_on_os("windows")

    clearRev()

     expect_equal(getRevHistory(), character(0))

    times <- as.integer(runif(1)*15)

    for(i in 1:times){
      doRev(i)
    }

    expect_length(getRevHistory(), times)

    clearRev()
  }
)