tests/testthat/test-download.casteml.R

test_that("cbk.download.casteml(stone) should return path of pmlfile",{
  stone <- c("20160627191317-464538","20160627191900-040404")
  pmlfiles <- lapply(stone, cbk.download.casteml)
  expect_true(file.exists(pmlfiles[[1]]))
  expect_true(file.exists(pmlfiles[[2]]))
})
misasa/chelyabinsk documentation built on Nov. 24, 2020, 5:47 a.m.