tests/testthat/test-strip_uuid.R

In dbca-wa/ruODK: An R Client for the ODK Central API

test_that("strip_uuid works", {
  expect_equal(
    "c0f9ce58-4388-4e7b-98d7-feac459d2e12",
    strip_uuid("uuid:c0f9ce58-4388-4e7b-98d7-feac459d2e12")
  )
})

test_that("strip_uuid does its job even with weird clients", {
  expect_equal(
    "4e7b-98d7-feac459d2e12",
    strip_uuid("uuid:uuid:uuid:4e7b-uuid:98d7-feac459d2e12uuid:uuid:")
  )
})

# usethis::use_r("attachment_get") # nolint