tests/testthat/test_metadata.R

In drighelli/AllenInstituteBrainData: Brain Data from Allen Institute Brain Atlas

context("metadata validity")

test_that("metadata is valid",
{
    metadata <- system.file("extdata", "metadata.csv",
        package="AllenInstituteBrainData")
    # expect_true(testExperimentHubMetadata("AllenInstituteDemo", metadata))
    expect_true(ExperimentHubData::makeExperimentHubMetadata(
        "AllenInstituteBrainData", metadata))
})