library(pedbp)
################################################################################
# verify errors if inputs are not as expected
x <- tryCatch(bp_chart(male = c(1, 1, 0)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(male) %in% c(1L, 2L) is not TRUE"))

x <- tryCatch(bp_chart(male = numeric(0)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(male) %in% c(1L, 2L) is not TRUE"))

x <- tryCatch(bp_chart(male = -1), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "male == 1 | male == 0 is not TRUE"))

x <- tryCatch(bp_chart(height = numeric(0)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(height) == 1 is not TRUE"))

x <- tryCatch(bp_chart(height = numeric(2)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(height) == 1 is not TRUE"))

x <- tryCatch(bp_chart(height_percentile = numeric(0)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(height_percentile) == 1 is not TRUE"))

x <- tryCatch(bp_chart(height_percentile = numeric(2)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "length(height_percentile) == 1 is not TRUE"))

x <- tryCatch(bp_chart(source = numeric(2)), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(identical(x$message, "'arg' must be NULL or a character vector"))

x <- tryCatch(bp_chart(source = "not-a-source"), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(
  identical(x$message, "'arg' should be one of “martin2022”, “gemelli1990”, “nhlbi”, “lo2013”, “flynn2017”") |
  identical(x$message, "'arg' should be one of \"martin2022\", \"gemelli1990\", \"nhlbi\", \"lo2013\", \"flynn2017\"")
)

x <- tryCatch(bp_chart(bp = c("not-a-bp")), error = function(e) e)
stopifnot(identical(class(x), c("simpleError", "error", "condition")))
stopifnot(
  identical(x$message, "'arg' should be one of “sbp”, “dbp”") |
  identical(x$message, "'arg' should be one of \"sbp\", \"dbp\"")
)

################################################################################
# verify defult is a ggplot
x <- bp_chart()
stopifnot(identical(class(x), c("gg", "ggplot")))

################################################################################
#                                 End of File                                  #
################################################################################