tests/testthat/test-get_constants.R

test_that("testing function get_constants()", {

  l_constants <- get_constants()
  expect_equal(l_constants$value_NaturaBeef,2)
  expect_equal(l_constants$value_SwissPrimBeef,3)


})
sknqualitasag/qp4ewc documentation built on Sept. 27, 2022, 3:31 p.m.