tests/testthat/test-psum.R

context("psum")

## TODO: Rename context
## TODO: Add more tests

test_that("multiplication works", {
  expect_equal(psum(1:10, 1:10, 1:10), c(3, 6, 9, 12, 15, 18, 21, 24, 27, 30))  
})

Try the incadata package in your browser

Any scripts or data that you put into this service are public.

incadata documentation built on April 14, 2020, 6:08 p.m.