tests/testthat/test_no_tx2gene.R

In mikelove/tximport: Import and summarize transcript-level estimates for transcript- and gene-level analysis

context("no_tx2gene")
test_that("no tx2gene provided throws error", {

  dir <- system.file("extdata", package="tximportData")
  samples <- read.table(file.path(dir,"samples.txt"), header=TRUE)
  files <- file.path(dir,"salmon", samples$run, "quant.sf.gz")
  names(files) <- paste0("sample",1:6)
  expect_error(tximport(files, type="salmon", txOut=FALSE))

})