tests/testthat/test_constant_muscle_mass.R

context("Parameter input constant_muscle_mass")

cons <-  list(airDensity = 3)

data <- data("birds")

test_that("missing data throw error", {
  expect_error(.constant_muscle_mass(speed_control = "constant_speed",
                                     cons = cons))
})

test_that("missing constants throw error", {
  expect_error(.constant_muscle_mass(data = data, peed_control = "constant_speed"))
})


test_that("missing speed control throw error", {
  expect_error(.constant_muscle_mass(data = data, speed_control = "constant_speed",
                                    cons = cons))
})

Try the flying package in your browser

Any scripts or data that you put into this service are public.

flying documentation built on Feb. 13, 2020, 5:07 p.m.