tests/testthat/test_area_trapezoid.R

library(geometry)
context("Area Trapezoid")

test_that("area of a trapezoid", {
  expect_equal(area_trapezoid(6, 3, 6), 27)
})
katiesocolow/Week_2_Project_Package documentation built on May 12, 2019, 10:33 p.m.