"run works as expected for chevron_t object"
"run works as expected for chevron_t object when auto_pre = FALSE"
"run works as expected with argument printed"
"run works as expected with argument printed if the user argument is complicated"
"run uses the argument passed through the ellipsis in priority"
"run works as expected with partial match argument"
"run displays the symbols when available"
"run print internal functions when unwrap is TRUE"
"run print internal functions when unwrap is TRUE and standard chevron_tlg has no layout"
"run print internal functions when unwrap is TRUE and the chevron_tlg object is customized"
"run print main and postprocessing functions when unwrap is TRUE and auto_pre is FALSE"
"args_ls works as expected when simplify is TRUE"
"args_ls works as expected with custom chevron_tlg object"
"main setter throw an error as expected"
"Variable 'object@main': Must have formal arguments: ...."
"Variable 'object@preprocess': Must have formal arguments: ...."
"postprocess sends an error as expected"
"Variable 'object@postprocess': Must have formal arguments: ...."
"Must be of type 'character' (or 'NULL')"
"script_funs works as expected in interactive mode"

run print internal functions when unwrap is TRUE

Error in `occurrence_lyt(arm_var = arm_var, lbl_overall = lbl_overall, 
    row_split_var = row_split_var, lbl_row_split = lbl_row_split, 
    medname_var = medname_var, lbl_medname_var = lbl_medname_var, 
    summary_labels = summary_labels, count_by = "CMSEQ")`: non-interactive browser() -- left over from debugging?

test_that("cmt01a functions with default argument value return expected result with test data", {
test_that("cmt01a functions with custom argument value return expected result with test data", {
raw_res <- cmt01a_main(pre_data, summary_labels = list(
unique = "Total number of {patient_label} with at least one treatment",
nonunique = "Total number of treatments"
), ATC2 = c(unique = "Total number of {patient_label} with at least one treatment")
res <- cmt01a_post(raw_res, sort_by_freq = TRUE)
test_that("cmt01a can handle all NA values", {
ATC2 = with_label(NA_character_, var_labels_for(syn_data$adcm, "ATC2")),
CMDECOD = with_label(NA_character_, var_labels_for(syn_data$adcm, "CMDECOD"))
test_that("cmt01a can handle some NA values", {