tests/testthat/test-get.R

In rscorecard: A Method to Download Department of Education College Scorecard Data

context('sc_get')

test_that('Errors for non-init()', {
    expect_error(sc_get(),
                 'Chain not properly initialized. Be sure to start with sc_init().')
})

test_that('Errors for missing sc_select()', {
    expect_error(sc_init() %>% sc_filter(unitid == 999999) %>% sc_get(),
                 'No variables selected. Use sc_select() to choose variables.',
                 fixed = TRUE)
})

## not on CRAN -----------------------------------

test_that('Request doesn\'t match expected', {
    check_api()

    df1 <- dplyr::tibble('unitid' = 196051L, 'year' = 2013)

    df2 <- sc_init() %>%
        sc_filter(region == 2, ccbasic == 23, locale == 41:43) %>%
        sc_select(unitid) %>%
        sc_year(2013) %>%
        sc_get()

    expect_equal(df1, df2)

})

test_that('Debug doesn\'t return string', {
    check_api()

    out <- sc_init() %>%
        sc_filter(region == 2, ccbasic == 21, locale == 41) %>%
        sc_select(unitid) %>%
        sc_year(2013) %>%
        sc_get(debug = TRUE)

    call <- 'https://api.data.gov/ed/collegescorecard/v1/' %+%
        'schools.json?school.region_id=2&school.carnegie_basic' %+%
        '=21&school.locale=41&_fields=id&_page=0&_per_page=100&' %+%
        'api_key=<...HIDDEN...>'

    expect_equal(out, call)
})


test_that('Doesn\'t return correct string using latest', {
    check_api()

    out1 <- sc_init() %>%
        sc_filter(region == 2, ccbasic == 21, locale == 41) %>%
        sc_select(unitid, ugds_white, ugds_black, ugds_asian) %>%
        sc_get(debug = TRUE)

    out2 <- sc_init() %>%
        sc_filter(region == 2, ccbasic == 21, locale == 41) %>%
        sc_select(unitid, ugds_white, ugds_black, ugds_asian) %>%
        sc_year('latest') %>%
        sc_get(debug = TRUE)

    call <- 'https://api.data.gov/ed/collegescorecard/v1/' %+%
        'schools.json?school.region_id=2&school.carnegie_basic=21' %+%
        '&school.locale=41&_fields=id,latest.student.demographics.' %+%
        'race_ethnicity.white,latest.student.demographics.race_ethnicity.' %+%
        'black,latest.student.demographics.race_ethnicity.asian&_page=0' %+%
        '&_per_page=100&api_key=<...HIDDEN...>'

    expect_equal(out1, out2)
    expect_equal(out1, call)
    expect_equal(out2, call)
})