tests/testthat/test-construct_colmap.R

In RajLabMSSM/echodata: echoverse module: Fine-mapping data access and formatting

test_that("construct_colmap works", {
    
    fields <- c("munged","CHR","POS","SNP",
                "P","Effect","StdErr","tstat",
                "Locus","Freq","MAF","A1","A2",
                "Gene","N_cases","N_controls",
                "proportion_cases","N","verbose")
    colmap <- construct_colmap(munged=TRUE)
    testthat::expect_true(all(fields %in% names(colmap)))
    
    colmap <- construct_colmap(munged=TRUE, N = "N_cases")
    testthat::expect_true(all(fields %in% names(colmap)))
    testthat::expect_equal(colmap$N, "N")
})