tests/testthat/test-utils.R

context('Utility functions...')

test_that('cotan is correct',{
  expect_equal(cotan(0), Inf)
  expect_equal(cotan(pi/4), 1)
  expect_equal(cotan(pi/2), 1/tan(pi/2))
})
abarbour/sibson documentation built on May 10, 2019, 4:08 a.m.