tests/testthat/test-read.R

In kevinlul/EpigeneLite: Lite version of EpigenCentral

# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (C) 2021  Kevin Lu

# For this test to work correctly, download the tarball of IDATS from
# https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE55491
# and extract them to the same directory (extdata) as the CSV sample sheet
test_that("IDATs are loaded", {
  expect(
   !is.null(read_idat("../../inst/extdata/GSE55491/samplesheet.rss-GSE55491.csv")),
   "no result from read_idat()"
  )
})

# For this test to work correctly, download the series matrix file from
# https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE55491
# and uncompress it in extdata so it may be read
test_that("GEO matrices are parsed", {
  expect(
   !is.null(read_geo_tsv("../../inst/extdata/GSE55491/GSE55491_series_matrix.txt")),
   "no result from read_geo_tsv()"
  )
})

# [END]