add R test

h2oai · May 3, 2024 · c3757fc · c3757fc
1 parent 5b35996
commit c3757fc
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/h2o-r/tests/testdir_parser/runit_parse_zstd.R b/h2o-r/tests/testdir_parser/runit_parse_zstd.R
@@ -0,0 +1,14 @@
+setwd(normalizePath(dirname(R.utils::commandArgs(asValues=TRUE)$"f")))
+source("../../scripts/h2o-r-test-setup.R")
+
+test.parseExportZSTD<- function() {
+  f1 <- h2o.importFile(locate("smalldata/glm_test/gaussian_20cols_10000Rows.csv"))
+
+  target <- file.path(sandbox(), "gaussian_20cols_10000Rows.csv.zst")
+  h2o.exportFile(f1, target)
+
+  f2 <- h2o.importFile(target)
+  compareFrames(f1, f2, prob=1)
+}
+
+doTest("Test ZSTD parser and export", test.parseExportZSTD)