tests/testthat/test-battle-creek.R

In FlowWest/cvpiaHabitat: Estimate Spawning and Rearing Habitat

library(cvpiaHabitat)
context('Battle Creek Habitat')

test_that('FR fry Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_fry_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'fr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'fr', 'fry', 26), x)

})

test_that('FR juv Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_juv_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'fr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'fr', 'juv', 26), x)

})


test_that('SR fry Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_fry_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'sr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'sr', 'fry', 26), x)

})

test_that('SR juv Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_juv_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'sr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'sr', 'juv', 26), x)

})

test_that('ST fry Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_fry_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'st', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'st', 'fry', 26), x)

})

test_that('ST juv Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_juv_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'rearing' &
      cvpiaHabitat::watershed_lengths$species == 'st', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_instream_habitat('Battle Creek', 'st', 'juv', 26), x)

})

# spawning
test_that('FR spawn Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_spawn_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'spawning' &
      cvpiaHabitat::watershed_lengths$species == 'fr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_spawning_habitat('Battle Creek', 'fr', 26), x)

})

test_that('SR spawn Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_spawn_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'spawning' &
      cvpiaHabitat::watershed_lengths$species == 'sr', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_spawning_habitat('Battle Creek', 'sr', 26), x)

})

test_that('ST spawn Battle Creek works', {
  # flow 100
  wua <- cvpiaHabitat::battle_creek_instream$FR_spawn_wua[10]
  stream_length <- as.numeric(cvpiaHabitat::watershed_lengths[
    cvpiaHabitat::watershed_lengths$watershed == 'Battle Creek' &
      cvpiaHabitat::watershed_lengths$lifestage == 'spawning' &
      cvpiaHabitat::watershed_lengths$species == 'st', 'feet'])

  x <- ((stream_length/1000) * wua)/10.7639

  expect_equal(
    set_spawning_habitat('Battle Creek', 'st', 26), x)

})