tests/testthat/test_ajoute_evolution_valorisation.R

context("Tester les fonctions qui permettent d'ajouter l'évolution de valorisation")

test_that("Fonction test mois suivant", {
  serie_mois_test <- c(1,2,4,6:12)
  mois_suivant_manque <- analyseVVS::mois_suivant_manquant(serie_mois_test)
  
  expect_true(mois_suivant_manque[2])
  expect_true(mois_suivant_manque[3])
  expect_false(mois_suivant_manque[1])
})
jomuller/vvs documentation built on May 21, 2019, 2:05 p.m.