tests/testthat/test-folg_plays.R

In vgherard/folgeR: Client for the Folger Shakespeare Library API

test_that("folg_plays() returns a character vector", {
        expect_vector(folg_plays(), character())
})

test_that("validate_plays() throws the expected exceptions", {

        # Throw domain errors
        domain_errors <- list(1, # Not character
                              c("AWW", "Ant"), # Length two
                              NA_character_ # NA
                              )
        for (play in domain_errors)
                expect_error(validate_play(play),
                             class = "folg_domain_error"
                             )

        # Throw 'unknown play' error
        expect_error(validate_play("ppp"), class = "folg_unk_play_error")

        # No error on valid play
        expect_error(validate_play("AWW"), NA)

})