tests/testthat/test-soundSpeed.R

context("soundSpeed")

test_that("default value is for air, and correct", {
  expect_equal(soundSpeedMedium(), 343)
})

test_that("error in soundSpeed_vague for unknown medium", {
  expect_error(soundSpeed_vague(medium="pig semen"))
})

Try the sonicscrewdriver package in your browser

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

sonicscrewdriver documentation built on May 2, 2021, 5:06 p.m.