tests/testthat/test_tsum_test.R

In bahlolab/exSTRa: Expanded STR algorithm: detecting expansions in Illumina sequencing data

context("Testing tsum_test() functions")

test_that("tsum_test() may not be giving T statistics", {
  expect_equal(dim(Tsum_stats$stats)[1], 36L)
  expect_equal(length(unique(Tsum_stats$stats$locus)), 2L)
  expect_output(print(tsum_test(exstra_wgs_pcr_2[c("HD", "SCA6", "SCA1", "FRDA")])), "Defined p-values:  72")
  expect_output(print(tsum_test(exstra_wgs_pcr_2[c("HD", "SCA6")], give.pvalue = FALSE)), "Pre-extracted tests: 36")
})