tests/testthat/test_dr2sClass.R

In DKMS-LSL/dr2s: Dual redundant reference sequencing

# context("DR2S class")
# 
# test_that("microsatellite get works", {
#   testLogicalGet(dr2s, "Microsatellite")
#   # dr2s <- InitDR2S(createDR2SConf())
# })
# 
# # test_that("partSR set and get works", {
# #   # dr2s <- InitDR2S(createDR2SConf())
# #   testLogicalGet(dr2s, "PartSR")
# # })
# 
# test_that("forceMapping set and get works", {
#   # dr2s <- InitDR2S(createDR2SConf())
#   testLogicalGet(dr2s, "ForceMapping")
# })
# 
# # test_that("filterScores set and get works", {
# #   # dr2s <- InitDR2S(createDR2SConf())
# #   testLogicalGet(dr2s, "FilterScores")
# # })
# 
# 
# test_that("absPath gets correct paths", {
#   outdir <- dr2s$getOutdir()
#   filename <- "a"
#   expected <- setNames(file.path(outdir, filename), filename)
#   expect_equal(dr2s$absPath(filename), expected)
#   filename <- c("a", "b")
#   expected <- setNames(file.path(outdir, filename), filename)
#   expect_equal(dr2s$absPath(filename)[1], expected[1])
#   expect_equal(dr2s$absPath(filename)[2], expected[2])
#   filename <- 1
#   expect_error(dr2s$absPath(filename))
#   filename <- c(1,2)
#   expect_error(dr2s$absPath(filename))
# })
# 
# 
#