tests/testthat/test-FV.R

In njbultman/xlsxFunctions: Use Common Microsoft Excel Functions in R

test_that("Works when inputs entered correctly", {
  expect_equal(round(FV(0.1, 3, c(50, 100, 150), 100), 2), round(100 * 1.1^3 + 50 * 1.1^2 + 100*1.1 + 150, 2))
})

test_that("Error when payment stream does not equal number of periods", {
  expect_error(FV(0.01, 2, c(50, 100, 150), 100), "pmt vector length needs to match nper or be zero.")
})

test_that("Error when number of periods is less than or equal to zero", {
  expect_error(FV(0.01, -2, c(50, 100, 150), 100), "nper needs to be greater than zero.")
})

test_that("Works when pmt of zero is entered", {
  expect_equal(round(FV(0.1, 1, 0, 100), 2), round(100 * 1.1, 2))
})