tests/testthat/test-majored-in.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

context("majored_in specifications")
source("helpers.R")
library(magrittr)

test_that("majored_in meets specifications on standard input", {
    test <- majored_in(540, 651, 084)
    test %>% uses_table("d_bio_degrees_mv")
    test %>% id_of_type("entity_id")
    test %>% id_field_is("entity_id")

    test %>%
        has_filters(institution_code = c("004833", "0A4833"),
                    major_code1 = c("540", "651", "084"),
                    degree_level_code = c("U", "G"))

    test %>% has_clause_count(3)

    majored_in(astronomy, 084, physics) %>%
        has_filters(institution_code = c("004833", "0A4833"),
                    major_code1 = c("099", "084", "666"),
                    degree_level_code = c("U", "G"))

})

test_that("majored_in meets specifications on no input", {
    majored_in() %>%
        has_clause_count(2)
    majored_in() %>% uses_table("d_bio_degrees_mv")
    majored_in() %>% has_filters(institution_code = c("004833", "0A4833"),
                                 degree_level_code = c("U", "G"))
})