Also ignore test on SQL server

tidyverse · Dec 19, 2023 · 5ca45de · 5ca45de
1 parent 1e2ffe0
commit 5ca45de
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/tests/testthat/test-verb-set-ops.R b/tests/testthat/test-verb-set-ops.R
@@ -110,9 +110,12 @@ test_that("SQLite warns if set op attempted when tbl has LIMIT", {
 test_that("other backends can combine with a limit", {
   df <- tibble(x = 1:2)
 
-  # sqlite only allows limit at top level
-  tbls_full <- test_load(df, ignore = "sqlite")
-  tbls_head <- lapply(test_load(df, ignore = "sqlite"), head, n = 1)
+  ignore <- c(
+    "sqlite", # only allows limit at top level
+    "mssql"   # unusual execution order gives unintuitive result
+  )
+  tbls_full <- test_load(df, ignore = ignore)
+  tbls_head <- lapply(test_load(df, ignore = ignore), head, n = 1)
 
   tbls_full %>%
     purrr::map2(tbls_head, union) %>%