tests/testthat/test-getSomaScanVersion.R

In SomaDataIO: Input/Output 'SomaScan' Data

test_that("`getSomaScanVersion()` returns the ADAT version string", {
  expect_equal(getSomaScanVersion(example_data), "V4")
})

test_that("`checkSomaScanVersion()` returns the correct error mode", {
  expect_null(checkSomaScanVersion("V4"))
  expect_null(checkSomaScanVersion("v4"))
  expect_null(checkSomaScanVersion("v4.1"))
  expect_null(checkSomaScanVersion("v5.0"))
  expect_null(checkSomaScanVersion("v5"))
  expect_error(checkSomaScanVersion("V2"), "Unsupported")
  expect_error(checkSomaScanVersion("foo"), "Unsupported")
})