tests/testthat/test-kallisto-wrapper.R

In dynverse/scaterlegacy: Single-cell analysis toolkit for gene expression data in R

## Testing kallisto wrapper functions

context("test improper input usage")

test_that("failure is as expected for wrong input", {
    directories <- file.path("foo", "bar", 1:10)
    
    expect_that(readKallistoResults(samples = 1:10, directories = directories),
                throws_error("Some of the desired directories to import do not exist!"))
})