tests/testthat/test_bench_columns.R

In fstpackage/syntheticbench: Synthetic dataset creation and serialization benchmarks

require(testthat)
require(fst)
require(arrow)
require(dplyr)


context("bench columns")


# defines several table definitions
source("table_definitions.R")


test_that("column mode", {

  x <- synthetic_bench(progress = FALSE)

  x %>%
    bench_columns("all")
})