tests/testthat/test-classes.R

In ajschumacher/rjstat: Handle 'JSON-stat' Format in R

context("Classes")

test_that("dataset responses work", {
    fromJSONstat("dataset.json") %>%
        expect_s3_class("data.frame") %>%
        expect_named(c("A dimension", "value")) %>%
        getElement("value") %>%
        expect_equal(1)
})

test_that("collection responses work", {
    fromJSONstat("collection.json") %>%
        expect_type("list") %>%
        getElement(1) %>%
        expect_s3_class("data.frame") %>%
        expect_named(c("A dimension", "value")) %>%
        getElement("value") %>%
        expect_equal(1)
})