tests/testthat/test_summary_mapvizier.R

context("mapvizier_summary tests")

ex <- summary(mapviz$growth_df)

test_that("summary works as expected on growth df", {
  expect_equal(ex$end_pct_75th_pctl %>% sum(na.rm = TRUE), 37.49)
  expect_equal(nrow(ex), 149)
  expect_equal(sum(ex$cgp, na.rm = TRUE), 7344.26)
  
  ex2 <- summary(mapviz$growth_df, digits = 3)
  expect_equal(ex2$end_pct_75th_pctl %>% sum(na.rm = TRUE), 37.462)
})


test_that("cohort/grade status percentile works", {
  expect_equal(sum(ex$start_cohort_status_npr, na.rm = TRUE), 9093)
})


ex2 <- summary(mapviz)

test_that("new summary method works as expected", {
  
  expect_is(ex2, 'mapvizieR_summary')
  expect_is(ex2$growth_summary, 'mapvizieR_growth_summary')
  expect_is(ex2$cdf_summary, 'mapvizieR_cdf_summary')
  
  expect_equal(sum(ex2$cdf_summary$mean_testritscore), 31195.44, tolerance = .01)
})


ex3 <- summary(mapviz$cdf)

test_that("summary method on cdf works as expected", {
  expect_equal(
    names(ex3), c("measurementscale", "map_year_academic", "fallwinterspring", 
                  "termname", "schoolname", "grade", "grade_level_season", 
                  "mean_testritscore", "mean_percentile", "n_students", 
                  "cohort_status_npr")
  )
  
  expect_is(ex3, 'mapvizieR_cdf_summary')
})


test_that("growth summary method with custom group_by", {
  
  ex_growth <- roster_to_growth_df(
    target_df = mapviz$growth_df, 
    mapvizieR_obj = mapviz, 
    roster_cols = 'studentgender'
  )
  
  ex_growth <- ex_growth %>%
    dplyr::group_by(studentgender)
    
  custom_group_sum <- summary(ex_growth)

  expect_is(custom_group_sum, 'mapvizieR_growth_summary')  
  
})


test_that("cdf summary method with custom group_by", {
  
  ex_cdf <- mapviz$cdf %>%
    dplyr::group_by(map_year_academic, fallwinterspring)
  
  custom_cdf_sum <- summary(ex_cdf)
  
  expect_is(custom_cdf_sum, 'mapvizieR_cdf_summary')  
  
})
almartin82/mapvizieR documentation built on June 3, 2023, 10:53 a.m.