tests/testthat/test-referenceLevels.R

context("reference levels")

test_that("reference pressure", {
  expect_equal(referencePressure(unit="dyne_cm2"), 0.0002)
})
test_that("reference intensity", {
  expect_equal(referenceIntensity(unit="watt_cm2"), 10^-16)
})

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.