Make sure wait_for_value()'s ignore type is integer (#242)

Author: cpsievert

inst/apps/316-bslib-popovers/tests/testthat/test-316-bslib-popovers.R

@@ -254,24 +254,24 @@ test_that("Can put input controls in the popover", {
   key_press("Tab")
   expect_focus(app, 'input#num')
   key_press("ArrowUp")
-  expect_equal(app$wait_for_value(input = "num", ignore = 1), 2)
+  expect_equal(app$wait_for_value(input = "num", ignore = 1L), 2)
   key_press("ArrowUp")
-  expect_equal(app$wait_for_value(input = "num", ignore = 2), 3)
+  expect_equal(app$wait_for_value(input = "num", ignore = 2L), 3)
   app$click("inc")
-  expect_equal(app$wait_for_value(input = "num", ignore = 3), 4)
+  expect_equal(app$wait_for_value(input = "num", ignore = 3L), 4)
   app$click("inc")
-  expect_equal(app$wait_for_value(input = "num", ignore = 4), 5)
+  expect_equal(app$wait_for_value(input = "num", ignore = 4L), 5)
   key_press("ArrowDown")
-  expect_equal(app$wait_for_value(input = "num", ignore = 5), 4)
+  expect_equal(app$wait_for_value(input = "num", ignore = 5L), 4)
   key_press("Escape")
   expect_focus(app, "#btn4")
   expect_no_tip(app)
 
   # The UI is hidden, but we can still update the numeric input
   app$click("inc")
-  expect_equal(app$wait_for_value(input = "num", ignore = 4), 5)
+  expect_equal(app$wait_for_value(input = "num", ignore = 4L), 5)
   app$click("inc")
-  expect_equal(app$wait_for_value(input = "num", ignore = 5), 6)
+  expect_equal(app$wait_for_value(input = "num", ignore = 5L), 6)
 
   app$click(selector = "#btn4")
   expect_visible_tip(app, "#btn4", expect_tabbable = TRUE)