tests/testthat/test-updateObject.R

In hbc/bcbioSinglecell: Bcbio Single-Cell RNA-Seq

test_that("bcbioSingleCell", {
    x <- updateObject(bcb)
    expect_s4_class(x, "bcbioSingleCell")
})

test_that("v0.1 update", {
    invalid <- import(file.path(cacheDir, "bcbioSingleCell_0.1.0.rds"))
    valid <- updateObject(invalid)
    expect_s4_class(valid, "bcbioSingleCell")
})