tests/testthat/test-sanity.R

In rpyANTs: An Alternative Advanced Normalization Tools ('ANTs')

library(testthat)

test_that("Make sure ANTs can be loaded", {

  cat("\n\n\n")
  print(ants)
  cat("\n\n\n")

  for(cls in c("ants.proxy", "python.builtin.module", "python.builtin.object"
  )) {
    expect_true(inherits(ants, cls))
  }

  for(nm in names(ants)){
    obj <- do.call(`$`, list(ants, nm))
    expect_true(inherits(obj, "ants.proxy"))
  }

})