test_that("oxford_comma works", {

  testthat::expect_equal(
    oxford_comma(c("James")),
    "James"
  )

  testthat::expect_equal(
    oxford_comma(c("James", "John")),
    "James or John"
  )

  testthat::expect_equal(
    oxford_comma(c("James", "John", "Jeremy")),
    "James, John, or Jeremy"
  )

})

test_that("chr_quoted works", {

  testthat::expect_equal(
    chr_quoted("Hi"),
    "`Hi`"
  )

})

test_that("is_integer_value works", {

  testthat::expect_true(is_integer_value(1))

  testthat::expect_false(is_integer_value(1.1))

  testthat::expect_false(is_integer_value("1"))

  testthat::expect_false(is_integer_value(NA, allow_na = FALSE))

  testthat::expect_true(is_integer_value(NA, allow_na = TRUE))

})

test_that("check_if_numeric gives error for character inputs", {
  input = "5"
  testthat::expect_snapshot(
    error = TRUE,
    check_if_numeric(input)
  )
})

test_that("check_if_numeric gives error for NULL inputs", {
  input = NULL
  testthat::expect_snapshot(
    error = TRUE,
    check_if_numeric(input)
  )
})

test_that("check_if_numeric gives error for NA inputs", {
  input = NA
  testthat::expect_snapshot(
    error = TRUE,
    check_if_numeric(input, allow_na = FALSE)
  )
})

test_that("check_if_positive gives error for invalid inputs", {
  input = -5
  testthat::expect_snapshot(
    error = TRUE,
    check_if_positive(input)
  )
})

test_that("check_if_positive gives error for invalid inputs", {
  input = 0
  testthat::expect_snapshot(
    error = TRUE,
    check_if_positive(input)
  )
})

test_that("check_if_non_negative gives error for -5", {
  input = -5
  testthat::expect_snapshot(
    error = TRUE,
    check_if_non_negative(input)
  )
})

test_that("check_if_non_negative gives no error for 0", {
  input = 0
  testthat::expect_silent(
    check_if_non_negative(input)
  )
})

test_that("check_if_integer gives no error for 5.5", {
  input = 5.5
  testthat::expect_snapshot(
    error = TRUE,
    check_if_integer(input)
  )
})

test_that("check_if_integer gives no error for 0", {
  input = 0
  testthat::expect_silent(
    check_if_integer(input)
  )
})

test_that("arg_match0_allow_na gives error for invalid inputs", {
  input = "emale"
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_allow_na(input, values = c("female","male"))
  )
})

test_that("arg_match0_allow_na gives no error for valid inputs", {
  input = "male"
  testthat::expect_equal(
    arg_match0_allow_na(input, values = c("female","male")),
    "male"
  )

  input = NA
  testthat::expect_equal(
    is.na(arg_match0_allow_na(input, values = c("female","male"))),
    TRUE
  )

})

test_that("arg_match0_integer gives error for invalid inputs", {
  input = 6
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_integer(input, values = c(0:5))
  )
})

test_that("arg_match0_no_na_error_message gives error for NA input but values have no NA", {
  input = NA
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_no_na_error_message(input, values = c("yes", "no"))
  )
})

test_that("arg_match0_no_na_error_message should pass for NA input and values has NA", {
  input = NA
  testthat::expect_silent(
    arg_match0_no_na_error_message(input, values = c("yes", "no", NA))
  )
})

test_that("arg_match0_integer gives error for NULL inputs with allow_na set to TRUE", {
  input = NULL
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_integer(input, values = c(0:5))
  )
})

test_that("arg_match0_integer gives error for NULL inputs with allow_na set to TRUE", {
  input = NULL
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_integer(input, values = c(0:5), allow_na = FALSE)
  )
})

test_that("arg_match0_integer gives error for NA inputs", {
  input = NA
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_integer(input, values = c(0:5), allow_na = FALSE)
  )
})

test_that("arg_match0_true_or_false gives error for invalid inputs", {
  input = 0
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_true_or_false(input)
  )

  input = 1
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_true_or_false(input)
  )
})

test_that("arg_match0_true_or_false gives error for NULL inputs with allow_na set to TRUE", {
  input = NULL
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_true_or_false(input)
  )
})

test_that("arg_match0_true_or_false gives error for NULL inputs with allow_na set to FALSE", {
  input = NULL
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_true_or_false(input, allow_na = FALSE)
  )
})

test_that("arg_match0_true_or_false gives error for NA inputs", {
  input = NA
  testthat::expect_snapshot(
    error = TRUE,
    arg_match0_true_or_false(input, allow_na = FALSE)
  )
})

test_that("check_if_two_categories_are_mutually_exclusive is silent when there are no issues", {

  cat_1 <- c("male")
  cat_2 <- c("female")
  cat_missing <- c("not saying")

  testthat::expect_silent(
    check_if_two_categories_are_mutually_exclusive(cat_1, cat_2)
  )

  testthat::expect_silent(
    check_if_two_categories_are_mutually_exclusive(cat_1, cat_2, cat_missing)
  )

})

test_that("check_if_two_categories_are_mutually_exclusive gives error when there are intersection", {

  cat_1 <- c("male", "female")
  cat_2 <- c("male", "female")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_two_categories_are_mutually_exclusive(cat_1, cat_2)
  )

})

test_that("check_if_two_categories_are_mutually_exclusive gives error when there are intersection with missing labels", {

  cat_1 <- c("male", "female", "not saying")
  cat_2 <- c("male", "female", "not saying")
  cat_missing <- c("male", "female", "not saying")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_two_categories_are_mutually_exclusive(cat_1, cat_2, cat_missing)
  )

})

test_that("check_if_three_categories_are_mutually_exclusive is silent when there are no issues", {

  cat_1 <- c("typical")
  cat_2 <- c("atypical")
  cat_3 <- c("nonanginal")
  cat_missing <- c("NA")

  testthat::expect_silent(
    check_if_three_categories_are_mutually_exclusive(cat_1, cat_2, cat_3)
  )

  testthat::expect_silent(
    check_if_three_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_missing)
  )

})

test_that("check_if_three_categories_are_mutually_exclusive gives error when there are intersection", {

  cat_1 <- c("typical", "atypical", "nonanginal", "NA")
  cat_2 <- c("typical", "atypical", "nonanginal", "NA")
  cat_3 <- c("typical", "atypical", "nonanginal", "NA")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_three_categories_are_mutually_exclusive(cat_1, cat_2, cat_3)
  )

})

test_that("check_if_three_categories_are_mutually_exclusive gives error when there are intersection with missing labels", {

  cat_1 <- c("typical", "atypical", "nonanginal", "NA")
  cat_2 <- c("typical", "atypical", "nonanginal", "NA")
  cat_3 <- c("typical", "atypical", "nonanginal", "NA")
  cat_missing <- c("typical", "atypical", "nonanginal", "NA")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_three_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_missing)
  )

})

test_that("check_if_four_categories_are_mutually_exclusive is silent when there are no issues", {

  cat_1 <- c("no chest pain")
  cat_2 <- c("typical")
  cat_3 <- c("atypical")
  cat_4 <- c("nonanginal")
  cat_missing <- c("NA")

  testthat::expect_silent(
    check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4)
  )

  testthat::expect_silent(
    check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4, cat_missing)
  )

})

test_that("check_if_four_categories_are_mutually_exclusive gives error when there are intersection", {

  cat_1 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_2 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_3 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_4 <- c("no chest pain","typical", "atypical", "nonanginal")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4)
  )

})

test_that("check_if_four_categories_are_mutually_exclusive gives error when there are intersection with missing labels", {

  cat_1 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_2 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_3 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_4 <- c("no chest pain","typical", "atypical", "nonanginal")
  cat_missing <- c("no chest pain","typical", "atypical", "nonanginal")

  testthat::expect_snapshot(
    error = TRUE,
    check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4, cat_missing)
  )

})