tests/testthat/test-process_set_values_to.R

In admiraldev: Utility Functions and Development Tools for the Admiral Package Family

## Test 1: add variables ----
test_that("process_set_values_to Test 1: add variables", {
  bds <- dplyr::tribble(
    ~USUBJID, ~AVAL,
    "1",         20,
    "2",         35
  )
  expected <- bds %>%
    mutate(
      PARAMCD = "BMI",
      PARAM = "Body-Mass-Index",
      PARAMN = 1
    )
  expect_dfs_equal(
    base = expected,
    compare = process_set_values_to(
      bds,
      set_values_to = exprs(
        PARAMCD = "BMI",
        PARAM = "Body-Mass-Index",
        PARAMN = 1
      ),
      expected_types = c(
        PARAMCD = "character",
        PARAM = "character",
        PARAMN = "numeric"
      )
    ),
    keys = c("USUBJID")
  )
})

## Test 2: catch error ----
test_that("process_set_values_to Test 2: catch error", {
  bds <- dplyr::tribble(
    ~USUBJID, ~AVAL,
    "1",         20,
    "2",         35
  )

  expect_snapshot(
    error = TRUE,
    process_set_values_to(
      bds,
      set_values_to = exprs(
        PARAMCD = BMI,
        PARAM = "Body-Mass-Index",
        PARAMN = 1
      )
    )
  )
})

## Test 3: check types ----
test_that("process_set_values_to Test 3: check types", {
  bds <- dplyr::tribble(
    ~USUBJID, ~AVAL,
    "1",         20,
    "2",         35
  )

  expect_snapshot(
    error = TRUE,
    process_set_values_to(
      bds,
      set_values_to = exprs(
        PARAMCD = 1,
        PARAM = "Body-Mass-Index",
        PARAMN = "BMI"
      ),
      expected_types = c(
        PARAMCD = "character",
        PARAM = "character",
        PARAMN = "numeric"
      )
    )
  )
})