tests/testthat/test-loadAndDisplay.R

In karenkuang37/MyoManager: Visual analysis of skeletal muscle microscopy data

library(MyoManager)

test_that("valid file from path", {

  human <- loadImage(system.file('extdata/Human_01.tiff', package = 'MyoManager'))

  expect_type(human, "double")
  expect_s4_class(human, "Image")
})

test_that("valid file from url", {

  rabbit <- loadImage("https://user-images.githubusercontent.com/60583839/141215629-f19d4a77-c5f0-491f-9262-b22cd59739e3.jpg")

  expect_type(rabbit, "double")
  expect_s4_class(rabbit, "Image")
})

test_that("multiple valid files from path/url", {

  human <- system.file('extdata/Human_01.tiff', package = 'MyoManager')
  mouse <- system.file('extdata/Mouse_01.tiff', package = 'MyoManager')
  rabbit <- "https://user-images.githubusercontent.com/60583839/141215629-f19d4a77-c5f0-491f-9262-b22cd59739e3.jpg"
  x <- list(human, mouse, rabbit)
  img_set <- loadImage(x)

  expect_type(img_set, "list")
  expect_length(img_set, 3)
  expect_type(img_set[[1]], "double")
  expect_s4_class(img_set[[1]], "Image")
})

test_that("invalid source path", {

  fish <- system.file('extdata/zebrafish_01.tiff', package = 'MyoManager')

  expect_error(loadImage(fish), "input is an invalid file path.")
})

test_that("one or more invalid source path", {

  human <- system.file('extdata/Human_01.tiff', package = 'MyoManager')
  mouse <- system.file('extdata/Mouse_01.tiff', package = 'MyoManager')
  fish <- system.file('extdata/zebrafish_01.tiff', package = 'MyoManager')
  x <- list(human, mouse, fish)

  expect_error(loadImage(x), "input is an invalid file path.")
})
# [END]