tests/testthat/test-inventory_reorder.R

In CDU-data-science-team/phaRmacyForecasting: Putting the R in pharmacy- a Shiny application to make forecasts of medication use in pharmacies in Nottinghamshire Healthcare NHS Trust

test_that("multiplication works", {
  
  # If you're looking at the most recent data then 
  # site 100 (stores) uses the suppliers AAH, MAW, PHOX and 
  # sites 240, 242 & 958 use STO. 
  # If you're looking at the very early data (2011) 
  # then only site 240 existed at that point so try AAH & UNICH
  
  reorder_frame <- inventory_reorder(site = 240, supplier = "STO")
  
  expect_gt(nrow(reorder_frame), 0)
  
})