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