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