library(pROC)

context("onLoad")

test_that(".parseRcppVersion works", {
  expect_equal(pROC:::.parseRcppVersion("65538"), "1.0.2")
  expect_equal(pROC:::.parseRcppVersion("1"), "0.0.1")
})

test_that("We're running the right Rcpp version", {
  skip_if_not(exists("run_slow_tests") && run_slow_tests, message = "Skipping error-prone Rcpp version check")
  skip_if(Rcpp:::getRcppVersion() == "1.0.3", "RCPP_VERSION broken in 1.0.3")

  # This check will often fail, RCPP_VERSION is regularly out of sync,
  # for instance Rcpp 1.0.4.6 has RCPP_VERSION 1.0.4. We can't expect
  # it to be silent, however we still want it to execute without error
  # expect_silent(pROC:::.checkRcppVersion())
  pROC:::.checkRcppVersion()

  # Replace the actual RcppVersion with a dummy function that returns 1
  # (= 0.0.1) so we actually see a warning
  saved.RcppVersion <- pROC:::RcppVersion
  assignInNamespace("RcppVersion", function() {
    return("1")
  }, "pROC")
  expect_warning(pROC:::.checkRcppVersion())
  # Restore
  assignInNamespace("RcppVersion", saved.RcppVersion, "pROC")
})