tests/testthat/test_norms_prep.R

context("norms prep")

test_that("norms_students_wide_to_long correctly processess 2011 norms data", {
  
  norms_long <- norms_students_wide_to_long(student_growth_norms_2011)
  
  expect_equal(nrow(norms_long), 39645)
  expect_equal(round(sum(norms_long$typical_growth), 1), round(187402.6,1))
})

test_that("norms_students_wide_to_long correctly processess 2051 norms data", {
  
  norms_long <- norms_students_wide_to_long(student_growth_norms_2015)
  
  expect_equal(nrow(norms_long), 35742)
  expect_equal(round(sum(norms_long$typical_growth, na.rm=TRUE), 1), 
               round(172874.7,1))
})
almartin82/mapvizieR documentation built on May 10, 2018, 11:59 p.m.