tests/testthat/test-utils.R

In njahn82/ropenaire: Search OpenAIRE

context("utilties")

load("utils_obs.rda")

test_that("tt_parse function", {
    expect_is(tt_parse(utils_obs$json, "json", NULL), "list")

    expect_is(sm(tt_parse(utils_obs$tsv, "tsv", NULL)), "tbl_df")
    expect_is(sm(tt_parse(utils_obs$csv, "csv", NULL)), "tbl_df")

    expect_identical(
        sm(tt_parse(utils_obs$tsv, "tsv", NULL)),
        sm(tt_parse(utils_obs$csv, "csv", NULL))
    )

    expect_is(tt_parse(utils_obs$xml, "xml", xml_content), "xml_document")

    ## fails well
    expect_error(tt_parse("foo bar"), "argument \"format\" is missing")
    expect_error(tt_parse("foo bar", "stuff"),
        "'format' must be of json, tsv, csv, or xml")
})