tests/testthat/test-crossmerge.R

In basetable: Fast and Memory-Efficient Base R Table Manipulation

test_that("crossmerge returns the Cartesian product", {
  x <- data.frame(id = c(1, 2))
  y <- data.frame(label = c("a", "b", "c"))

  out <- crossmerge(x, y)

  expect_s3_class(out, "basetable")
  expect_equal(nrow(out), 6L)
})