tests/testthat/test_citation.R

In SimonGreenhill/rcldf: rcldf - Read Linguistic Data In The Cross Linguistic Data Format (CLDF)

test_that("test summary.cldf", {

    expect_error(citation('x'), "'object' must inherit from class cldf")

    df <- cldf("examples/wals_1A_cldf/StructureDataset-metadata.json")
    out <- capture.output(citation(df))

    expect_match(out[1], "Cite me like this!")
})