tests/testthat/test_anvil.R

In UW-GAC/AnvilDataModels: Utilities for AnVIL data models

context("anvil functions")

test_that("add entity id", {
    tables <- .tables()
    model <- .model()
    table_names <- c("subject", "phenotype", "sample", "file")
    for (t in table_names) {
        ent <- add_entity_id(tables[[t]], t, model)
        expect_true(paste0(t, "_id") %in% names(ent))
    }
})


test_that("create set", {
    tables <- .tables()
    expect_equal(create_set_all(tables$sample, "sample"),
                 tibble(sample_set_id="all",
                        sample_id=tables$sample$sample_id))
})


test_that("unnest set table", {
    set <- readRDS(system.file("extdata", "sample_set.rds", package="AnvilDataModels"))
    set2 <- unnest_set_table(set)
    expect_equal(names(set2), c("sample_set_id", "sample_id"))
})