tests/testthat/test_get_sop_instance_uids.R

In pamelarussell/TCIApathfinder: Client for the Cancer Imaging Archive REST API

message("\nTesting get_sop_instance_uids")

test_that("Structure of SOPInstanceUIDs value", {
  skip_on_cran()
  uids <- get_sop_instance_uids("1.3.6.1.4.1.14519.5.2.1.5382.4002.806935685832642465081499816867")
  expect_equal(length(uids), 3)
  expect_true(length(uids$sop_instance_uids) > 10)
  expect_true(length(uids$content) > 10)
  expect_equal(class(uids$response), "response")
})

test_that("Patient values for TCGA-BRCA and MR", {
  skip_on_cran()
  uids <- get_sop_instance_uids("1.3.6.1.4.1.14519.5.2.1.5382.4002.806935685832642465081499816867")
  expect_true("1.3.6.1.4.1.14519.5.2.1.5382.4002.257663256941568276393774062283" %in% uids$sop_instance_uids)
})

test_that("Invalid series", {
  skip_on_cran()
  expect_warning(u <- get_sop_instance_uids("fake_series"))
  suppressWarnings(u <- get_sop_instance_uids("fake_series"))
  expect_equal(length(u$sop_instance_uids), 0)
})