tests/testthat/test_get_table_from.R

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

library(archive)
library(openssl)

mdpath <- "examples/wals_1A_cldf/StructureDataset-metadata.json"

test_that("test get_table_from", {
    df <- get_table_from('LanguageTable', mdpath)
    expect_is(df, 'data.frame')
    expect_equal(nrow(df), 9)
    expect_equal(df$ID[1], 'abi')

    df <- get_table_from('ParameterTable', mdpath)
    expect_is(df, 'data.frame')
    expect_equal(nrow(df), 1)
    expect_equal(df$ID[1], '1A')

    df <- get_table_from('parameters.csv', mdpath)
    expect_is(df, 'data.frame')
    expect_equal(nrow(df), 1)
    expect_equal(df$ID[1], '1A')

})


test_that("test get_table_from errors on invalid table", {
    expect_error(
        get_table_from('NotATable', mdpath),
        'Table NotATable not found'
    )
})