Testing without UI
Check that other is automatically selected when we start typing in the other box.
test_that("returns other value when primary is other", {
testServer(server, {
session$setInputs(fruit = "apple", other = "orange")
expect_equal(output$value, "orange")
})
})
#> ── Failure (<text>:2:3): returns other value when primary is other ─────────────
#> output$value (`actual`) not equal to "orange" (`expected`).
#>
#> `actual`: "apple"
#> `expected`: "orange"
#> Backtrace:
#> 1. shiny::testServer(...)
#> 22. testthat::expect_equal(output$value, "orange")
#> Error in `reporter$stop_if_needed()`:
#> ! Test failed