tests/testthat/test_check_input_str.R

In thiagomaf/mutate.with.erroR: Do arithmetic calculations with Gaussian error propagation - mutate_with_error()

test_that(
  desc = "check_input_str()",
  code = {
    check_input_str('as.formula("G ~ A / B")') %>% expect_equal("G=A / B")
    check_input_str('as.formula(G ~ A / B)')   %>% expect_equal("G=A / B")
    check_input_str('list("G ~ A / B")')       %>% expect_equal("G=A / B")
    check_input_str('list(G ~ A / B)')         %>% expect_equal("G=A / B")
    check_input_str('G ~ A / B')               %>% expect_equal("G=A / B")
  }
)