tests/testthat/test_rdml_new.R

In kablag/RDML: Importing Real-Time Thermo Cycler (qPCR) Data from RDML Format Files

context("Creation RDML object from different file types or user input")

PATH <- path.package("RDML")

test_that("RDML can be created from BioRad .rdml", {
  filename <- paste0(PATH, "/extdata/", "BioRad_qPCR_melt.rdml")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})

test_that("RDML can be created from StepOne .rdml", {
  filename <- paste0(PATH, "/extdata/", "stepone_std.rdml")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})

test_that("RDML can be created from LightCycler .rdml", {
  filename <- paste0(PATH, "/extdata/", "lc96_bACTXY.rdml")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})

test_that("RDML can be created from .csv", {
  filename <- paste0(PATH, "/extdata/from_tables/", "fdata.csv")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})

test_that("RDML can be created from .xlsx", {
  filename <- paste0(PATH, "/extdata/from_tables/", "table.xlsx")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})

test_that("RDML can be created from ABI7500 .eds", {
  filename <- paste0(PATH, "/extdata/from_abi7500/", "sce.eds")
  rdml <- RDML$new(filename)
  expect_class(rdml, "RDML")
})