tests/testthat/test-Master_CTL.R

context("Master_CTL.csv is keeping up ReadCTLfile()")

test_that("ReadCTL() works with Master_CTL", {
  MasterFilePath<-system.file("extdata",package="GeMS")
  expect_equal(sum(is.na(ReadCTLfile(file.path(MasterFilePath,"Master_CTL"))$OM)), 0)
})
szuwalski/GeMS documentation built on Oct. 2, 2019, 5:55 a.m.