inst/explorer/tests/shinytest/corpus_info_test.R

In kgjerde/corporaexplorer: A 'Shiny' App for Exploration of Text Collections

library(corporaexplorer)
library(shinytest)

context("Explorer: Corpus info")

test_that("Corpus info works", {
    app <- shinytest::ShinyDriver$new("../..")
    app$snapshotInit("corpus_info_test")
    app$snapshot()
    app$setInputs(search_text_1 = "document")
    app$setInputs(case_sensitivity = TRUE)
    app$setInputs(search_button = "click")
    app$setInputs(corpus_box = "Corpus info")

    # Check that corpus_info text is OK
    output <- app$getValue(name = "corpus_info")
    expect_true(stringr::str_detect(output, "The corpus contains 10 document"))

    # Check that parts of TABLE is OK
    output <- app$getValue(name = "TABLE")
    expect_true(stringr::str_detect(output, "2\\.00"))

})

test_that("Corpus info custom column search works", {
    app <- shinytest::ShinyDriver$new("../..")
    app$snapshotInit("corpus_info_test_custom")
    app$snapshot()
    app$setInputs(search_text_1 = "2--Title")
    app$setInputs(search_button = "click")
    app$setInputs(corpus_box = "Corpus info")

    # Check that parts of TABLE is OK
    output <- app$getValue(name = "TABLE")
    expect_true(stringr::str_detect(output, "Title"))
    expect_true(stringr::str_detect(output, "0\\.10"))
})