tests/testthat/test-NPS_evolution_repartition.R

In nicolas95870/SatisfiRe: SatisfiRe Help You to Analyse Data From Consumers Surver

test_that("NPS_evolution_repartition.R", {
  expect_equal(any(class(NPS_evolution_repartition(my_dataset$reco,my_dataset$date,"mois")) == "plotly"), TRUE)
  expect_equal(any(class(NPS_evolution_repartition(my_dataset$reco,my_dataset$date,"jours")) == "plotly"), TRUE)
  expect_equal(any(class(NPS_evolution_repartition(my_dataset$reco,my_dataset$date,"annee")) == "plotly"), TRUE)
})