tests/testthat/test-get-scan-resources.R

In neuroconductor-devel/nitrcbot: Download Image Files from the 'NeuroImaging Tools and Resources Collaboratory'

test_that("get_scan_resources", {
  skip_on_cran()
  skip_on_ci()
  testthat::expect_is(get_scan_resources('NITRC_IR_E10453'),"data.frame")
  testthat::expect_message(get_scan_resources('NITRC_IR_E10453',scan_type = 'T3'),"Invalid scan type")
  testthat::expect_is(get_scan_resources('NITRC_IR_E10453',scan_type = 'T1'), "data.frame")
  testthat::expect_null(get_scan_resources('NITRC_IR_E11072', jsessionID = ""))
})