tests/testthat/test_strand_list.R

context("strand list plot tests")

test_that("strands_list_plot errors when handed an improper mapviz object", {
  expect_error(
    strands_list_plot(cdf, studentids_normal_use, "Reading", season = "Fall", 2013),
    "You need to use a proper mapvizieR object."
  )
})


test_that("student_npr_two_term_plot produces proper plot with a grade level of kids", {
  p <- strands_list_plot(
    mapvizier_obj = mapviz,   
    studentids = studentids_normal_use, 
    measurement_scale = "Reading", 
    season = "Spring", 
    year = 2013
  )
  
  p_build <- ggplot_build(p)
  expect_true(is.ggplot(p))
  expect_equal(nrow(p_build$data[[1]]), 279)
  expect_equal(ncol(p_build$data[[2]]), 14)
  expect_equal(sum(p_build$data[[2]][, 2]), 59584, tolerance = .001)
})
almartin82/mapvizieR documentation built on May 10, 2018, 11:59 p.m.