Test: util_valid_email

Ivan Jacob Agaloos Pesigan

2021-01-15

Source: vignettes/tests/test_util_valid_email.Rmd 
library(testthat)
library(jeksterslabRutils)
context("Test util_valid_email.")

Parameters

valid <- "email@email.com"
invalid <- "https://www.google.com"
valid_expected <- TRUE
invalid_expected <- FALSE
Variable <- c(
  "`valid`",
  "`invalid`"
)
Description <- c(
  paste0("Vaild email (", valid, ")."),
  paste0("Invalid email (", invalid, ").")
)
Value <- c(
  valid_expected,
  invalid_expected
)
knitr::kable(
  x = data.frame(
    Variable,
    Description,
    Value
  ),
  row.names = FALSE
)
Variable Description Value
valid Vaild email (). TRUE
invalid Invalid email (https://www.google.com). FALSE

Run test

valid_result <- util_valid_email(x = valid)
invalid_result <- util_valid_email(x = invalid)

Results

Parameter <- c(
  valid_expected,
  invalid_expected
)
Result <- c(
  valid_result,
  invalid_result
)
knitr::kable(
  x = data.frame(
    Description,
    Parameter,
    Result
  ),
  row.names = FALSE
)
Description Parameter Result
Vaild email (). TRUE TRUE
Invalid email (https://www.google.com). FALSE FALSE 
test_that("util_valid_email returns TRUE", {
  expect_true(
    valid_result
  )
})
#> Test passed 😀
test_that("util_valid_email returns FALSE", {
  expect_false(
    invalid_result
  )
})
#> Test passed 🥳