tests/testthat/test-utils.R

In equatiomatic: Transform Models into 'LaTeX' Equations

test_that("Strict mapply_* functions work", {
  chr_function <- function(x) as.character(x)
  lgl_function <- function(x) TRUE
  int_function <- function(x) as.integer(x)
  dbl_function <- function(x) as.double(x)

  expect_equal(equatiomatic:::mapply_chr(chr_function, x = "test"),
    "test",
    label = "mapply_chr returns a character",
    ignore_attr = TRUE
  )

  expect_equal(equatiomatic:::mapply_lgl(lgl_function, x = "test"),
    TRUE,
    label = "mapply_lgl returns a logical",
    ignore_attr = TRUE
  )

  expect_equal(equatiomatic:::mapply_int(int_function, x = 1L),
    1L,
    label = "mapply_int returns an integer",
    ignore_attr = TRUE
  )

  expect_equal(equatiomatic:::mapply_dbl(dbl_function, x = 1.0),
    1.0,
    label = "mapply_dbl returns a double",
    ignore_attr = TRUE
  )

  expect_error(equatiomatic:::mapply_chr(lgl_function, x = "test"),
    label = "mapply_chr doesn't work with non-characters"
  )

  expect_error(equatiomatic:::mapply_lgl(chr_function, x = "test"),
    label = "mapply_lgl doesn't work with non-logicals"
  )

  expect_error(equatiomatic:::mapply_int(chr_function, x = "test"),
    label = "mapply_int doesn't work with non-integers"
  )

  expect_error(equatiomatic:::mapply_dbl(chr_function, x = "test"),
    label = "mapply_dbl doesn't work with non-doubles"
  )
})