tests/test_utilityFunctions.R

library(caiman)
context("test utilityFunctions.r")

x <- loadPhoto()

test_that("calcExposure works.", {
  expect_equal(round(calcExposure(8,1/125)), 13)
  expect_equal(round(calcExposure(loadPhoto()), 2), 9.88)
})
GastonMauroDiaz/caiman documentation built on Jan. 22, 2022, 4:43 a.m.