tests/testthat/test_get_total_values.R

In AnglerCreelSurveySimulation: Simulate a Bus Route Creel Survey of Anglers

context("Tests of get_total_values()")

test_that("Wait time passed to fx is equal to actual wait time", {
  
  anglers <- make_anglers()
  
  wait_time <- 4
  mean_catch_rate <- 3
  
  vals <- get_total_values(anglers, wait_time = wait_time, mean_catch_rate = mean_catch_rate)
  
  expect_equal(vals$wait_time , wait_time)
  
  })

test_that("When wait time is zero, effort, completed trips, and catch is 0", {
  
  anglers <- make_anglers()
  
  wait_time <- 0
  mean_catch_rate <- 3
  
  vals <- get_total_values(anglers, wait_time = wait_time, mean_catch_rate = mean_catch_rate)
  
  expect_equal(vals$total_observed_trip_effort, wait_time)
  expect_equal(vals$n_completed_trips, wait_time)
  expect_equal(vals$total_completed_trip_effort, wait_time)
  expect_equal(vals$total_completed_trip_catch, wait_time)
  
})

test_that("True effort is the same as the sum of anglers$trip_length", {
  
  anglers <- make_anglers()
  
  mean_catch_rate <- 3
  
  vals <- get_total_values(anglers, mean_catch_rate = mean_catch_rate)
  
  expect_equal(sum(anglers$trip_length), vals$true_effort)

})