tests/testthat/test-misc.R

In mmkhan19/singleCellTK: Interactive Analysis of Single Cell RNA-Seq Data

context("misc functions")

test_that("Summarize Table", {
  expect_is(summarizeTable(mouseBrainSubsetSCE[1:100, ], "counts"),
            "data.frame")
})

test_that("Create SCTKE", {
  expect_is(createSCE(assayFile = assay(mouseBrainSubsetSCE[1:100, ]),
                      inputDataFrames = TRUE),
            "SCtkExperiment")
  expect_error(createSCE(assayFile = assay(mouseBrainSubsetSCE[1:100, ]),
                         annotFile = colData(mouseBrainSubsetSCE)[1:10, ],
                         inputDataFrames = TRUE),
               "Different number of samples in input matrix and annotations: annot: 10, counts: 30")
})