tests/testthat/test-calculate_mean_liveweight_slaughter.R

In sknqualitasag/qp4ewc: Process Input and Results of ECOWEIGHT

test_that("testing function calculate_mean_liveweight_slaughter()", {

  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
  b_log <- TRUE
  s_prodsystew <- "2"
  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()


  livewt_slaughter_f_expected <- 398
  livewt_slaughter_f <- calculate_mean_liveweight_slaughter(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(livewt_slaughter_f, livewt_slaughter_f_expected)


  livewt_slaughter_m_expected <- 505
  livewt_slaughter_m <- calculate_mean_liveweight_slaughter(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(livewt_slaughter_m, livewt_slaughter_m_expected)


})