tests/testthat/test-dotproduct.R

In iterors: Fast, Compact Iterators and Tools

test_that("dotproduct functions properly with two iterators", {
  it <- iteror(1:5)
  it2 <- iteror(1:5)
  expect_equal(dotproduct(it, it2), 55)
})

test_that("dotproduct functions properly with two numeric vectors", {
  vec1 <- c(10, 10)
  vec2 <- c(20, 20)
  expect_equal(dotproduct(vec1, vec2), 400)
})