tests/testthat/test_mod_mappingSelect.R

In safetyGraphics: Interactive Graphics for Monitoring Clinical Trial Safety

context("Tests for the mappingSelect R module")
library(safetyGraphics)
library(shinytest)
library(testthat)

skip_on_cran()
app <- ShinyDriver$new("./module_examples/mappingSelect")

test_that("Inputs have expected values",{
  skip_on_cran()
  expect_equal(app$getValue("NoDefault-colSelect"),"") 
  expect_equal(app$getValue("WithDefault-colSelect"),"USUBJID") 
  expect_equal(app$getValue("NoDefaultField-colSelect"),"") 
  expect_equal(app$getValue("WithDefaultField-colSelect"), "CARDIAC DISORDERS") 
  expect_equal(app$getValue("WithInvalidDefault-colSelect"), "") 
})

test_that("Module server outputs the expected values",{
  skip_on_cran()
  empty<-""
  expect_match(app$getValue("ex1"),empty) 
  expect_match(app$getValue("ex2"),"USUBJID") 
  expect_match(app$getValue("ex3"),empty) 
  expect_match(app$getValue("ex4"), "CARDIAC DISORDERS") 
  expect_match(app$getValue("ex5"),empty)
})

test_that("Changing input updates the server output",{
  skip_on_cran()
  app$setValue('NoDefault-colSelect',"AESEQ")
  expect_equal(app$getValue("NoDefault-colSelect"),"AESEQ") 
  Sys.sleep(.5) #TODO inplement app$waitForValue() instead of sleeping
  expect_match(app$getValue("ex1"), "AESEQ") 
})

app$stop()