tests/testthat/test-download-nitrc-dir.R

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

test_that("download_nirc_dir", {
  skip_on_cran()
  skip_on_ci()
  testthat::expect_message(download_nitrc_dir(subject_ID = "NITRC_IR_S05274", project="42"),"Invalid project_ID.")
  testthat::expect_message(download_nitrc_dir(subject_ID = "NITRC_IR_S05274"), "If subject_ID is specified, project_ID cannot be missing.")
  testthat::expect_message(download_nitrc_dir('NITRC_IR_E10452', subject_ID = "NITRC_IR_S05274", project="ixi"),"Provided session_ID does not match the provided subject_ID session_ID.")
  testthat::expect_message(download_nitrc_dir('NITRC_IR_E110452'),"No images found for the provided parameters")
  testthat::expect_is(download_nitrc_dir('NITRC_IR_E10452'),"list")
  testthat::expect_is(download_nitrc_dir('NITRC_IR_E10452', scan_type="T1", zipped = TRUE),"character")
  testthat::expect_equal(basename(download_nitrc_dir('NITRC_IR_E10452', scan_type="T1", zipped = TRUE)),"NITRC_IR_E10452.zip")
  testthat::expect_null(download_nitrc_dir('NITRC_IR_E10452', scan_type="T3"))
  testthat::expect_message(download_nitrc_dir('NITRC_IR_E10452', scan_type="T1", verbose = TRUE), "Downloading IXI002-Guys-0828-T1.nii.gz")
  testthat::expect_equal(basename(download_nitrc_dir(subject_ID = "NITRC_IR_S05274", project = 'ixi', zipped = TRUE, verbose = TRUE, error = TRUE)), "NITRC_IR_E10537.zip")
})