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), 2 * pi * 3)
})
AlexanderHelman/elliptical documentation built on May 4, 2019, 1:08 p.m.