R version 4.6.0 alpha (2026-04-09 r89835 ucrt) Copyright (C) 2026 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(qs2) qs2 0.1.8 > > cat("Running smoke tests...\n") Running smoke tests... > > x <- generate_test_data(2048L, seed = 42L) > stopifnot(identical(names(x), c("string", "numeric", "int"))) > stopifnot(nrow(x) == 2048L) > > nthreads_to_test <- 1L > if (isTRUE(qs2:::check_TBB())) { + nthreads_to_test <- c(nthreads_to_test, 4L) + } > > for (nthreads in nthreads_to_test) { + cat("Smoke test nthreads =", nthreads, "\n") + + tmp_qs <- tempfile(fileext = ".qs2") + tmp_qd <- tempfile(fileext = ".qdata") + + qs_save(x, tmp_qs, compress_level = 1L, nthreads = nthreads) + stopifnot(identical(qs_read(tmp_qs, validate_checksum = TRUE, nthreads = nthreads), x)) + stopifnot(identical(qs_deserialize(qs_serialize(x, compress_level = 1L, nthreads = nthreads), + validate_checksum = TRUE, + nthreads = nthreads), x)) + + qd_save(x, tmp_qd, compress_level = 1L, nthreads = nthreads) + stopifnot(identical(qd_read(tmp_qd, validate_checksum = TRUE, nthreads = nthreads), x)) + stopifnot(identical(qd_deserialize(qd_serialize(x, compress_level = 1L, nthreads = nthreads), + validate_checksum = TRUE, + nthreads = nthreads), x)) + } Smoke test nthreads = 1 Smoke test nthreads = 4 > > cat("Smoke tests completed.\n") Smoke tests completed. > > proc.time() user system elapsed 0.34 0.15 0.48