tests/testthat/testscruff.R

In compbiomed/scruff: Single Cell RNA-Seq UMI Filtering Facilitator (scruff)

library(testthat)
library(scruff)

# extdata exists
test_that(
  desc = "Making sure files in inst/extdata folder exist",
  {
    expect_true(
      file.exists(system.file("extdata",
                              "vandenBrink_1h1_L001_R1_001.fastq.gz",
                              package = "scruff")))
    expect_true(
      file.exists(system.file("extdata",
                              "vandenBrink_1h1_L001_R2_001.fastq.gz",
                              package = "scruff")))
    expect_true(
      file.exists(system.file("extdata",
                              "vandenBrink_b1_L001_R1_001.fastq.gz",
                              package = "scruff")))
    expect_true(
      file.exists(system.file("extdata",
                              "vandenBrink_b1_L001_R2_001.fastq.gz",
                              package = "scruff")))
    expect_true(
      file.exists(system.file("extdata", "GRCm38_MT.fa", package = "scruff")))
    expect_true(
      file.exists(system.file("extdata", "GRCm38_MT.gtf", package = "scruff")))
  })