tests/testthat/test_rbind_score_list.R

context("Testing rbind_score* functions")

rbinding <- rbind_score_list(list(exstra_wgs_pcr_2[, 5], exstra_wgs_pcr_2[, 10]))

obs_N <- exstra_wgs_pcr_2[, 5]$data[, .N] + exstra_wgs_pcr_2[, 10]$data[, .N]

test_that("rbind_score_list() not giving the expected number of outputs", {
  expect_equal(rbinding$samples[, .N], 2L)
  expect_equal(rbinding$data[, .N], obs_N)
  #TODO on $db
})

rbinding <- rbind_score(exstra_wgs_pcr_2[, 5], exstra_wgs_pcr_2[, 10])

test_that("rbind_score() not giving the expected number of outputs", {
  expect_equal(rbinding$samples[, .N], 2L)
  expect_equal(rbinding$data[, .N], obs_N)
  #TODO on $db
})
bahlolab/exSTRa documentation built on Jan. 24, 2018, 7:05 a.m.