tests/testthat/test_unionList.R

In bhklab/PharmacoGx: Analysis of Large-Scale Pharmacogenomic Data

library(PharmacoGx)

##TODO:: Migrate tests to CoreGx
context("Checking CoreGx::.unionList function.")

test_that("union List works as union with arbitrary number of arguments",{
	expect_equal(CoreGx::.unionList(1,2,3,4,2,2,1), c(1,2,3,4))
	expect_equal(CoreGx::.unionList(1,2), c(1,2))
	expect_equal(CoreGx::.unionList(list(c(1,2,3), c(2,3,4), c(1,1,1))), c(1,2,3,4))
	expect_equal(CoreGx::.unionList(1), c(1))
	expect_equal(CoreGx::.unionList(), NULL)
})

test_that("CoreGx::.unionList unlists things and unions properly", {

	expect_equal(CoreGx::.unionList(list(1,2,3,4,3)), c(1,2,3,4))
	expect_equal(CoreGx::.unionList(list(1,2,3), list(4,3)), c(1,2,3,4))
	expect_equal(CoreGx::.unionList(list(1,2,3), list(4,3), list(2,2,2,2,2,2,2)), c(1,2,3,4))
})