Skip keypress tests on CRAN

They are a little flaky.
r-lib · Jun 20, 2024 · 0dfbf1b · 0dfbf1b
1 parent 1a7b807
commit 0dfbf1b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-keypress.R b/tests/testthat/test-keypress.R
@@ -1,5 +1,6 @@
 
 test_that("control characaters", {
+  skip_on_cran()
   p <- r_pty()
 
   expect_snapshot(
@@ -14,6 +15,7 @@ test_that("control characaters", {
 })
 
 test_that("write ahead", {
+  skip_on_cran()
   p <- r_pty()
   expect_snapshot({
     p$write_input("{ Sys.sleep(0.5); cli::keypress() }\nX")
@@ -23,6 +25,7 @@ test_that("write ahead", {
 })
 
 test_that("arrows, etc", {
+  skip_on_cran()
   p <- r_pty()
   keys <- paste0("\033", c(
     "[A", "[C", "[D", "[F", "[H", "-",
@@ -47,6 +50,7 @@ test_that("arrows, etc", {
 })
 
 test_that("nonblocking", {
+  skip_on_cran()
   p <- r_pty()
   expect_snapshot({
     p$write_input("cli::keypress(block = FALSE)\n")