tests/testthat/test-valid.R

In rappster/dti:

# Buttons -----------------------------------------------------------------

test_that("valid_dt_options_buttons_names", {
    result <- valid_dt_options_buttons_names()
    expected <- c("colvis", "copy", "csv", "excel", "pdf", "print")
    expect_identical(result, expected)

    result <- valid_dt_options_buttons_names("copy", "print")
    expected <- c("copy","print")
    expect_identical(result, expected)

    result <- valid_dt_options_buttons_names(c("copy", "print"))
    expected <- c("copy","print")
    expect_identical(result, expected)

    expect_error(valid_dt_options_buttons_names("invalid"))
})

# Select buttons ----------------------------------------------------------

test_that("valid_dt_options_buttons_select_names", {
    result <- valid_dt_options_buttons_select_names()
    expected <- c("selectAll", "selectNone", "selectRows",
        "selectColumns", "selectCells")
    expect_identical(result, expected)

    result <- valid_dt_options_buttons_select_names("selectColumns", "selectCells")
    expected <- c("selectColumns", "selectCells")
    expect_identical(result, expected)

    result <- valid_dt_options_buttons_select_names(c("selectColumns", "selectCells"))
    expected <- c("selectColumns", "selectCells")
    expect_identical(result, expected)

    expect_error(valid_dt_options_buttons_select_names("invalid"))
})

# Filter values -----------------------------------------------------------

test_that("valid_dt_filter_values", {
    result <- valid_dt_filter_values()
    expected <- c("none", "bottom", "top")
    expect_identical(result, expected)

    result <- valid_dt_filter_values("bottom")
    expected <- c("bottom")
    expect_identical(result, expected)

    result <- valid_dt_filter_values("bottom", "top")
    expected <- c("bottom", "top")
    expect_identical(result, expected)

    expect_error(valid_dt_filter_values("invalid"))
})