test_that("rbind.ddf_col() and rbind.tbl_ddf() work", {
  tbl_ddf1 <- dibble(x = 1:12,
                     y = 13:24,
                     .dim_names = list(axis1 = 1:4,
                                       axis2 = 1:3))
  tbl_ddf2 <- dibble(x = 1:12,
                     y = 13:24,
                     .dim_names = list(axis1 = 5:8,
                                       axis2 = 4:6))
  expect_error(rbind(tbl_ddf1, tbl_ddf1))

  tbl_ddf3 <- broadcast(rbind(tbl_ddf1, tbl_ddf2),
                        dim_names = c("axis1", "axis2"))
  expect_equal(dimnames(tbl_ddf3)[["axis1"]],
               vec_c(dimnames(tbl_ddf1)[["axis1"]],
                     dimnames(tbl_ddf2)[["axis1"]]))
  expect_equal(tbl_ddf3 |>
                 filter(axis1 %in% dimnames(tbl_ddf2)[["axis1"]],
                        axis2 %in% dimnames(tbl_ddf2)[["axis2"]]),
               tbl_ddf2)

  ddf_col1 <- tbl_ddf1[[1]]
  ddf_col2 <- tbl_ddf2[[1]]

  expect_error(rbind(ddf_col1, ddf_col1))

  ddf_col3 <- broadcast(rbind(ddf_col1, ddf_col2),
                        dim_names = c("axis1", "axis2"))
  expect_equal(dimnames(ddf_col3)[["axis1"]],
               vec_c(dimnames(ddf_col1)[["axis1"]],
                     dimnames(ddf_col2)[["axis1"]]))
  expect_equal(ddf_col3 |>
                 filter(axis1 %in% dimnames(ddf_col2)[["axis1"]],
                        axis2 %in% dimnames(ddf_col2)[["axis2"]]),
               ddf_col2)
})