tests/testthat/test_get_details.R

In SimonGreenhill/rcldf: Read Linguistic Data in the Cross Linguistic Data Format (CLDF)

test_that("test get_details", {
    df <- get_details(
        system.file("extdata/examples/wals_1A_cldf/StructureDataset-metadata.json", package = "rcldf")
    )
    expect_is(df, 'data.frame')
    expect_equal(df$Title, 'The Dataset')
    expect_equal(df$Size, 13696)
    expect_equal(df$Citation, 'Cite me like this!')
    expect_equal(df$ConformsTo, 'http://cldf.clld.org/v1.0/terms.rdf#StructureDataset')
})