tests/testthat/test_separate.R

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

test_that("test get_separators", {
    md <- resolve_path('examples/wals_1A_cldf/')
    seps <- get_separators(md$metadata)
    expect_equal(nrow(seps), 1)

    expect_equal(seps[1, 'url'], 'values.csv')
    expect_equal(seps[1, 'name'], 'Source')
    expect_equal(seps[1, 'separator'], ';')
})


test_that("test separate", {

    # should error if not a cldfobject
    expect_error(separate('x'), "'cldfobj' must inherit from class cldf")

    cldfobj <- separate(cldf('examples/wals_1A_cldf/'))
    expect_equal(cldfobj$tables$ValueTable$Source[[1]], c("Najlis-1966"))
    expect_equal(cldfobj$tables$ValueTable$Source[[4]], c("Olmsted-1966", "Olmsted-1964"))
})