###############################################################################
# Suppressing some functions messages because they only output the information
# on how much time they took.
###############################################################################

dummy_df <- suppressMessages(dummy_data(1000))
dummy_df[["age"]] <- as.character(dummy_df[["age"]])


test_that("Convert to numeric only if possible", {
    test_df1 <- dummy_df |> convert_numeric("age")
    test_df2 <- dummy_df |> convert_numeric("education")

    expect_true(is.numeric(test_df1[["age"]]))
    expect_true(is.character(test_df2[["age"]]))
    expect_true(is.character(test_df2[["education"]]))
})


test_that("Convert arguments to character vector", {
    return_param <- function(parameter){
        args_to_char(substitute(parameter))
    }

    expect_equal(return_param(age), "age")
    expect_equal(return_param("age"), "age")
    expect_equal(return_param(c(age, sex, income, weight)), c("age", "sex", "income", "weight"))
    expect_equal(return_param(c("age", "sex", "income", "weight")), c("age", "sex", "income", "weight"))
})


test_that("Convert arguments to character vector in nested function", {
    nested_function <- function(parameter){
        get_origin_as_char(parameter, substitute(parameter))
    }

    return_param <- function(parameter){
        nested_function(parameter)
    }

    expect_equal(return_param("age"), "age")
    expect_equal(return_param(c("age", "sex", "income", "weight")), c("age", "sex", "income", "weight"))
})


test_that("Convert ellipsis to character vector", {
    return_param <- function(...){
        dots_to_char(...)
    }

    expect_equal(return_param(age), "age")
    expect_equal(return_param("age"), "age")
    expect_equal(return_param(c(age, sex, income, weight)), c("age", "sex", "income", "weight"))
    expect_equal(return_param(c("age", "sex", "income", "weight")), c("age", "sex", "income", "weight"))
})