tests/testthat/test_read_mads.R

context("read_mads")
test_that("Non-empty Data frame from read_mads", {

  df <- read_mads("MADS-like.csv", "analyser")

  expect_is(df, "data.frame")
  expect_gt(length(df), 0)
  expect_gt(nrow(df), 0)
})
marcmtk/MadsR documentation built on May 21, 2019, 11:43 a.m.