tests/testthat/percent-tests.R

In maxmayr95/STWIBFH: Utility Classes for STWI Exame 2019 @ University of Applied Science in Bern (Switzerland)

library(STWIBFH)

test_that("percent different calculation", {
  expect_equal(calculatePercentDifference(10,100), 0.10)
  expect_equal(calculatePercentDifference(1,100), 0.010)
  expect_equal(calculatePercentDifference(5,100), 0.050)
})

test_that("get percentage value", {
  expect_equal(getPercent(10,100), 10)
  expect_equal(getPercent(12,100), 12)
})


test_that("get percentage incrase", {
  expect_equal(getPercentageIncrase(100,110), 0.10)
  expect_equal(getPercentageIncrase(30,60), 1)
})


test_that("get percentage incrase", {
  expect_equal(getPercentageDecrase(100,90), 0.10)
  expect_equal(getPercentageDecrase(60,30), 0.5)
})