test_that("process_eamd processing", {
  input_file <- system.file('extdata', 'sample-data-ecap2.csv', package = 'oncmap')
  expect_equal(round(process_eamd(input_file)$adh,4),
               data.frame(daysadh=0.5833, daysdose=0.7083, perdoses=0.8333, n=24))

  report <- process_eamd(input_file,patinfo=list(day_start_time="22:00"))
  expect_equal(report$report[2,]$times,"")
  expect_equal(round(report$adh,4),
               data.frame(daysadh=0.3913, daysdose=0.6087, perdoses=0.8261, n=23))

  expect_equal(round(process_eamd(input_file, regimen=data.frame(periods_per_day=1,doses_per_period=2,days_per_week=2,weekdays="0,1"))$adh,4),
               data.frame(daysadh=0.2083, daysdose=0.7083, perdoses=1.25, n=24))

  nonmonit <- data.frame(
    start=c("2018-12-10","2018-12-20"),
    end=c("2018-12-11","2018-12-21"))
  report <- process_eamd(input_file, nonmonit=nonmonit)
  expect_equal(report$report[3,]$times,"")
  expect_equal(round(report$adh,4),
               data.frame(daysadh=0.6, daysdose=0.7, perdoses=0.8, n=20))

})