tests/testthat/test_perimeter.R

library(elliptical)

context("Perimeter")

test_that("perimeter of a circle", {
  expect_equal(ellipse_perimeter(1), 2 * pi)
  expect_equal(ellipse_perimeter(3), 6 * pi)
})
lukemcphillips/ellipses documentation built on May 4, 2019, 1:22 p.m.