diff --git a/inst/apps/122-async-outputs/tests/testthat/test-mytest.R b/inst/apps/122-async-outputs/tests/testthat/test-mytest.R
index 8ca7834e22..a8d7576ca2 100644
--- a/inst/apps/122-async-outputs/tests/testthat/test-mytest.R
+++ b/inst/apps/122-async-outputs/tests/testthat/test-mytest.R
@@ -1,7 +1,14 @@
 library(shinytest2)
 
 test_that("Migrated shinytest test: mytest.R", {
-  app <- AppDriver$new(load_timeout = 15000, seed = 100, shiny_args = list(display.mode = "normal"))
+  app <- AppDriver$new(
+    load_timeout = 15000, seed = 100, 
+    shiny_args = list(display.mode = "normal"),
+    # Use legacy datatable implementation just for the 
+    # info$datatable$colnames test below. We could, of course, 
+    # update that test, but it's also good to test the legacy.
+    options = list(shiny.legacy.datatable = TRUE)
+  )
 
   # Wait until an async value is available
   app$wait_for_value(output = "printa", timeout = 10 * 1000)
diff --git a/inst/apps/126-async-ticks/app.R b/inst/apps/126-async-ticks/app.R
index 7513c9abc4..11e3e30844 100644
--- a/inst/apps/126-async-ticks/app.R
+++ b/inst/apps/126-async-ticks/app.R
@@ -3,6 +3,9 @@ library(promises)
 library(future)
 plan(multisession)
 
+opts <- options(shiny.legacy.datatable = TRUE)
+onStop(function() options(opts))
+
 testForMissingRenderFunctions <- function() {
   # If we add any render functions, they should be added to this test app. This test
   # will make it obvious if we forget.
diff --git a/inst/apps/126-async-ticks/tests/testthat/_snaps/mac-4.3/mytest/002.new.png b/inst/apps/126-async-ticks/tests/testthat/_snaps/mac-4.3/mytest/002.new.png
new file mode 100644
index 0000000000..d224ddbc6b
Binary files /dev/null and b/inst/apps/126-async-ticks/tests/testthat/_snaps/mac-4.3/mytest/002.new.png differ