1test_that("union all on vectors concatenates", { 2 expect_equal(union_all(1:3, 4:6), 1:6) 3}) 4 5test_that("union all on data frames calls bind rows", { 6 df1 <- tibble(x = 1:2) 7 df2 <- tibble(y = 1:2) 8 9 expect_equal(union_all(df1, df2), bind_rows(df1, df2)) 10}) 11