tests/testthat/test-calculate_mean_weaningweight.R

In sknqualitasag/qp4ewc: Process Input and Results of ECOWEIGHT

test_that("testing function calculate_mean_weaningweight()", {

  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()


  weaningwt_f_expected <- 213
  weaningwt_f <- calculate_mean_weaningweight(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(weaningwt_f, weaningwt_f_expected)



  weaningwt_m_expected <- NaN
  weaningwt_m <- calculate_mean_weaningweight(ps_input_flp_tibble = tbl_flp,
                                              ps_sex = "M",
                                              ps_marketing_channel = l_constants$value_SwissPrimBeef,
                                              ps_prodsystew = s_prodsystew,
                                              pb_log = b_log)
  expect_equal(weaningwt_m, weaningwt_m_expected)


})