tests/testthat/test-calculate_mean_weaningage.R

test_that("testing function calculate_mean_weaningage()", {

  s_input_file_flp <- file.path(here::here(),"inst","extdata","ewbc","test","test_zws_muku_flp.csv")
  s_start_flp_date <- 20050101
  s_end_flp_date <- 20211231
  s_prodsystew <- "2"
  b_log <- TRUE
  tbl_flp <- read_file_input_flp(ps_input_file_flp = s_input_file_flp,
                                 ps_start_flp_date = s_start_flp_date,
                                 ps_end_flp_date = s_end_flp_date,
                                 pb_log = b_log)


  l_constants <- get_constants()

  weaningage_f_expected <- 170
  weaningage_f <- calculate_mean_weaningage(ps_input_flp_tibble = tbl_flp,
                                            ps_sex = "F",
                                            ps_marketing_channel = l_constants$value_NaturaBeef,
                                            ps_prodsystew = s_prodsystew,
                                            pb_log = b_log)
  expect_equal(weaningage_f, weaningage_f_expected)


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