tests/testthat/test-organism.R

In acidgenomics/AcidGenomes: Acid Genomics Genome Annotations

test_that("organism", {
    list <- list()
    list[["GRanges"]] <- gr
    list[["DFrame"]] <- as.DataFrame(gr)
    for (object in list) {
        expect_identical(
            object = organism(object),
            expected = "Homo sapiens"
        )
    }
})

test_that("Metadata stash", {
    object <- gr
    org <- "xxx"
    metadata(object)[["organism"]] <- org
    expect_identical(organism(object), org)
})