test_that("process_eamd processing", {
  expect_equal(process_eamd("empty.csv")$log[1, ]$message, "No data.")
  expect_equal(process_eamd("noformat.badext")$log[1, ]$message, "Unknown extension of file noformat.badext")
  expect_equal(process_eamd("noformat.csv")$data, NULL)
  expect_equal(round(process_eamd("test_ecap2.xls")$adh, 4), data.frame(daysadh = 0.0495, daysdose = 0.0812, perdoses = 0.1128, n = 727))
  expect_equal(round(process_eamd("test_ecap2.xls", formats_def = input_formats[4, ])$adh, 4), data.frame(daysadh = 0.0495, daysdose = 0.0812, perdoses = 0.1128, n = 727))
  expect_equal(round(process_eamd("test_ecap2.xls", include_formats = c("ecap2xls"))$adh, 4), data.frame(daysadh = 0.0495, daysdose = 0.0812, perdoses = 0.1128, n = 727))
  expect_equal(round(process_eamd("test_ecap2.xls", exclude_formats = c("ecap1", "ecap2", "ecap3", "simplemed", "mems", "mems2", "adheretech", "adheretechxls", "ecap_old"))$adh, 4), data.frame(daysadh = 0.0495, daysdose = 0.0812, perdoses = 0.1128, n = 727))
  expect_equal(round(process_eamd("test_ecap2.xls", nonmonit = data.frame(start = "2020-03-17", end = "2020-03-19"))$adh, 4), data.frame(daysadh = 0.0495, daysdose = 0.0812, perdoses = 0.1128, n = 727))
})