tests/testthat/test-version.R

In inbo/camtrapdp: Read and Manipulate Camera Trap Data Packages

test_that("version() extracts version from attribute", {
  x <- list()
  attr(x, "version") <- "1.0"
  expect_identical(version(x), "1.0")
})

test_that("version() extracts version from x$profile on match", {
  x <- list()
  x$profile <- "https://raw.githubusercontent.com/tdwg/camtrap-dp/1.0/camtrap-dp-profile.json"
  expect_identical(version(x), "1.0")
  x$profile <- "https://rs.gbif.org/sandbox/data-packages/camtrap-dp/1.0/profile/camtrap-dp-profile.json"
  expect_identical(version(x), "1.0")
  x$profile <- "foo/camtrap-dp/2/foo"
  expect_identical(version(x), "2")
  x$profile <- "foo/camtrap-dp/2.30/foo"
  expect_identical(version(x), "2.30")
  x$profile <- "foo/camtrap-dp/2.30.5/foo"
  expect_identical(version(x), "2.30.5")
  x$profile <- "foo/camtrap-dp/1.0-rc.1/foo"
  expect_identical(version(x), "1.0-rc.1")
})

test_that("version() returns x$profile when no match is found", {
  x <- list()
  x$profile <- NULL
  expect_identical(version(x), NA)
  x$profile <- NA
  expect_identical(version(x), NA)
  x$profile <- 1
  expect_identical(version(x), 1)
  x$profile <- "tabular-data-package"
  expect_identical(version(x), "tabular-data-package")
  x$profile <- "foo/2.30/foo" # Must contain camtrap-dp/<version>
  expect_identical(version(x), "foo/2.30/foo")
})

test_that("version()<- assigns a version to a package and its resources", {
  skip_if_offline()
  x <- example_dataset()
  x <- frictionless::add_resource(x, "iris", iris) # 5th resource (with schema)
  version(x) <- "6.6.6"
  expect_identical(version(x), "6.6.6")
  expect_identical(
    x$profile,
    "https://raw.githubusercontent.com/tdwg/camtrap-dp/6.6.6/camtrap-dp-profile.json"
  )
  expect_identical(
    x$resources[[1]]$schema,
    "https://raw.githubusercontent.com/tdwg/camtrap-dp/6.6.6/deployments-table-schema.json"
  )
  expect_identical(
    x$resources[[2]]$schema,
    "https://raw.githubusercontent.com/tdwg/camtrap-dp/6.6.6/media-table-schema.json"
  )
  expect_identical(
    x$resources[[3]]$schema,
    "https://raw.githubusercontent.com/tdwg/camtrap-dp/6.6.6/observations-table-schema.json"
  )
  # Non Camtrap DP resources
  expect_null(x$resources[[4]]$schema) # Remains having no schema
  expect_type(x$resources[[5]]$schema, "list") # Remains having a list schema
})