test_that("basic use works", {
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    fn_args = list(
      vars = starts_with("diagx"),
      vals = letters
    )
  )
  if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  expect_true(all(if_call))
})

test_that("edge case - arg is external symbol works", {
  def_lab <- "SUD"
  srcs <- c("msp", "dad")
  some_vals <- 1:10
  def <- build_def(def_lab,
    src_labs = srcs,
    fn_args = list(
      vars = starts_with("diagx"),
      vals = some_vals
    )
  )
  expect_equal(def$def_lab, rep(def_lab, 2))
  expect_equal(def$src_labs, srcs)
  expect_true(stringr::str_detect(deparse(def$fn_call[[1]]), "some_vals"))
})

test_that("error of invalid arguments works", {
  msp_db <- letters_n(type = "database")
  dad_df <- xnum_n("F")
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    fn_args = list(
      vars = starts_with("diagx"),
      match = "start",
      vals = list(letters, "F"),
      clnt_id = clnt_id,
      uid = uid,
      date_var = dates,
      n_per_clnt = 2,
      within = 365,
      what = "w"
    )
  )
  # if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  # if_invalid <- purrr::map_lgl(def$fn_call, ~ stringr::str_detect(deparse(.), "what"))
  # expect_true(all(if_call))
  # expect_false(any(if_invalid))
  # # also test ... in fn_args
  # expect_error(build_def("SUD",
  #                        src_labs = c("msp", "dad"),
  #                        fn_args = list(
  #                          vars = starts_with("diagx"),
  #                          ... = what
  #                        )), "...")
  expect_error(execute_def(def, with_data = list(msp = msp_db, dad = dad_df)), "Problematic argument")
})

test_that("multiple def_fn works", {
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    def_fn = list(define_case, identify_rows),
    fn_args = list(
      vars = starts_with("diagx"),
      vals = letters
    )
  )
  if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  expect_true(all(if_call))
})

test_that("incorrect recycling does not work", {
  expect_error(build_def("SUD",
    src_labs = c("msp", "dad"),
    fn_args = list(
      vars = starts_with("diagx"),
      vals = list(1, 2, 3)
    )
  ), "recycle")
})

test_that("define_case_with_age works as def_fn", {
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    def_fn = define_case_with_age,
    fn_args = list(
      vars = starts_with("diagx"),
      vals = letters,
      clnt_id = clnt_id,
      age = age,
      age_range = list(c(18, 65), c(21, NA))
    )
  )
  if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  expect_true(all(if_call))
  expect_equal(unname(def$def_fn), rep("define_case_with_age", 2))
  # check that age_range is in the calls
  expect_true(all(purrr::map_lgl(def$fn_call, ~ any(stringr::str_detect(deparse(.), "age_range")))))
})

test_that("define_case_with_age with birth_date works", {
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    def_fn = define_case_with_age,
    fn_args = list(
      vars = starts_with("diagx"),
      vals = letters,
      clnt_id = clnt_id,
      date_var = dates,
      birth_date = birth_dt,
      age_range = c(18, 65)
    )
  )
  if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  expect_true(all(if_call))
  # check that birth_date is in the calls
  expect_true(all(purrr::map_lgl(def$fn_call, ~ any(stringr::str_detect(deparse(.), "birth_date")))))
})

test_that("mixed def_fn with define_case_with_age works", {
  def <- build_def("SUD",
    src_labs = c("msp", "dad"),
    def_fn = list(define_case, define_case_with_age),
    fn_args = list(
      vars = starts_with("diagx"),
      vals = letters,
      clnt_id = clnt_id,
      age = age,
      age_range = c(18, 65)
    )
  )
  if_call <- purrr::map_lgl(def$fn_call, rlang::is_call)
  expect_true(all(if_call))
  expect_equal(unname(def$def_fn), c("define_case", "define_case_with_age"))
})