tests/testthat/test-class.R

In nhejazi/biotmle: Targeted Learning with Moderated Statistics for Biomarker Discovery

library(SummarizedExperiment)
library(biotmleData)
data(illuminaData)

## SETUP TESTS ################################################################
example_biotmle_class <- function(se) {
  call <- match.call(expand.dots = TRUE)
  biotmle <- .biotmle(
    SummarizedExperiment(
      assays = assay(se),
      rowData = rowData(se),
      colData = colData(se)
    ),
    call = call,
    tmleOut = as.data.frame(matrix(NA, 10, 10)),
    topTable = as.data.frame(matrix(NA, 10, 10))
  )
  return(biotmle)
}
biotmle <- example_biotmle_class(se = illuminaData)

## BEGIN TESTS ################################################################
test_that("biotmle object is of class type S4", {
  expect_equivalent(typeof(biotmle), "S4")
})

test_that("biotmle object is of appropriate class", {
  expect_equivalent(class(biotmle), "bioTMLE")
})

test_that("biotmle is a subclass of SummarizedExperiment", {
  expect_is(biotmle, "SummarizedExperiment")
})