tests/testthat/test-multiple_objs.R

In oolong: Create Validation Tests for Automated Content Analysis

##context("check_correctness")

genius_word <- function(obj1) {
    obj1$.__enclos_env__$private$test_content$wi$answer <- obj1$.__enclos_env__$private$test_content$wi$intruder
    return(obj1)
}

genius_topic <- function(obj1) {
    obj1$.__enclos_env__$private$test_content$ti$answer <- obj1$.__enclos_env__$private$test_content$ti$intruder
    return(obj1)
}

test_that("defensive programming", {
    obj1 <- create_oolong(abstracts_keyatm)
    obj2 <- clone_oolong(obj1)
    ### Not lock
    expect_error(summarize_oolong(obj1))
    obj1 <- genius_word(obj1)
    obj1$lock()
    ### Obj2 is not lock
    expect_error(summarize_oolong(obj1, obj2))
    ### Testing checking hash.
    set.seed(1212112)
    obj1 <- create_oolong(abstracts_keyatm)
    obj2 <- clone_oolong(obj1)
    set.seed(12121999)
    obj3 <- create_oolong(abstracts_keyatm)
    obj1 <- genius_word(obj1)
    obj2 <- genius_word(obj2)
    obj3 <- genius_word(obj3)
    obj1$lock()
    obj2$lock()
    obj3$lock()
    ## obj1/obj2 are different from obj3
    expect_error(summarise_oolong(obj1, obj2, obj3))
    ## obj2 is a clone of obj1
    expect_error(summarise_oolong(obj1, obj2), NA)
    ## Warning about premature locking
    obj1 <- create_oolong(abstracts_keyatm)
    obj1$lock(force = TRUE)
    expect_warning(summarize_oolong(obj1))
})