test_that("test result on 'oneAgeTest' plotted correctly", {
  # Load data into environment + prepare data
  data("srilanka")
  res <- calculateAges(srilanka, nloops = 10, seed = 40522)
  res.test <- tests(res, nbmin = 1)
  p <- plot(res.test)
  
  # Test
  expect_true(is_ggplot(p))
})

test_that("test result on 'ageTests' plotted correctly", {
  # Load data into environment + prepare data
  data("srilanka")
  res <- calculateAges(srilanka, nloops = 10, seed = 40522)
  res.test <- tests(res, nbmin = 1, nbmax = 3)
  p <- plot(res.test)
  
  # Test
  expect_true(is_ggplot(p))
})