tests/testthat/test_cldf_loading.R

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

# Integration tests for CLDF loading
test_that("test cldf loading", {
    #logger::log_threshold(DEBUG)

    # n.b. we need to take base_dir out of the comparison
    patch_base_dir <- function(o, base_dir) { o$base_dir <- base_dir; return(o) }

    # direct link to metadata
    o <- cldf(system.file("extdata/huon", "cldf-metadata.json", package = "rcldf"))

    # requires find metadata
    o2 <- cldf(system.file("extdata/huon", package = "rcldf"))
    expect_equal(o, o2)

    o3 <- cldf(system.file("extdata/huon.zip", package = "rcldf"))
    expect_equal(o, patch_base_dir(o3, o$base_dir))

    # turn tests off if offline or on CRAN
    skip_if_offline()
    skip_on_cran()

    # github
    o4 <- cldf("https://github.com/SimonGreenhill/huon_test_data/")
    expect_equal(o, patch_base_dir(o4, o$base_dir))

    # github zip
    o5 <- cldf("https://github.com/SimonGreenhill/huon_test_data/archive/refs/tags/v0.01.zip")
    expect_equal(o, patch_base_dir(o5, o$base_dir))

    # zenodo
    o6 <- cldf("https://zenodo.org/records/10901700/files/huon_test_data-0.01.zip?download=1")
    expect_equal(o, patch_base_dir(o6, o$base_dir))
})