tests/testthat/test_fuzz_test.R

context("very meta tests of the fuzz_test function")

test_that("fuzz test a vanilla ggplot", {
  results <- fuzz_test_plot(
    plot_name = 'silly_plot', 
    n = 5,
    mapvizieR_obj = mapviz
  )
  expect_true(all(unlist(results)))
})


test_that("fuzz test a broken ggplot", {    
  results <- fuzz_test_plot('error_ridden_plot', n = 3, mapvizieR_obj = mapviz)
  expect_false(any(unlist(results)))
})


test_that("fuzz test treats a known error as TRUE result", {    
  
  roster <- mapviz[['roster']]
  mapviz[['roster']] <- roster[with(roster, grade == 11 & map_year_academic == 2013), ]
  
  results <- fuzz_test_plot(
    'goalbar', n = 10,
    additional_args = list('measurementscale' = 'Mathematics', 'start_fws' = 'Fall',
      'start_academic_year' = 2013, 'end_fws' = 'Spring', 'end_academic_year' = 2013),
    mapvizieR_obj = mapviz
  )
  
  expect_true(all(unlist(results)))
})
almartin82/mapvizieR documentation built on July 12, 2019, 11:16 p.m.