tests/testthat/tests_check_metaData.R

context("check_metaData")

test_that("Return values check", {
  data("exampleData", package = "sedReview")
  
  # check_metaDataOut <- check_metaData(exampleData)
  # saveRDS(check_metaDataOut, file = "tests/testthat/data/check_metaDataOut.rds")
  
  check_metaDataOut <- readRDS("data/check_metaDataOut.rds")
  check_metaDataOutTest <- check_metaData(exampleData)
  expect_equal(check_metaDataOut, check_metaDataOutTest)
})
USGS-R/sedReview documentation built on Aug. 24, 2020, 9 p.m.