tests/testthat/test-a5-info.R

In a5R: 'A5' Discrete Global Grid System

test_that("a5_info reports versions and settings", {
  info <- a5_info()
  expect_s3_class(info, "a5_info")
  expect_named(info, c("version", "crate", "index", "threads", "c_api"))
  expect_identical(info$version, as.character(utils::packageVersion("a5R")))
  expect_match(info$crate, "^1\\.0\\.0")
  expect_identical(info$index, "1.0")
  expect_identical(info$c_api, 1L)
  expect_identical(with(a5_threads(3), a5_info()$threads), 3L)
  expect_message(print(info), "A5 index")
  expect_match(a5R:::a5_info_line(info), "a5 crate")
})