You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
787 B
21 lines
787 B
context("uncompressed files (validation and streaming)")
|
|
test_that("validation and streaming works in uncompressed files (validation and streaming)", {
|
|
|
|
f <- system.file("extdata", "test.json", package="ndjson")
|
|
expect_that(validate(f), equals(TRUE))
|
|
expect_that(nrow(stream_in(f)), equals(100))
|
|
expect_that(stream_in(f), is_a("tbl_dt"))
|
|
expect_that(stream_in(f, "tbl"), is_a("tbl_df"))
|
|
|
|
})
|
|
|
|
context("compressed files (validation and streaming)")
|
|
test_that("validation and streaming works in compressed files", {
|
|
|
|
gzf <- system.file("extdata", "testgz.json.gz", package="ndjson")
|
|
expect_that(validate(gzf), equals(TRUE))
|
|
expect_that(nrow(stream_in(gzf)), equals(100))
|
|
expect_that(stream_in(gzf), is_a("tbl_dt"))
|
|
expect_that(stream_in(gzf, "tbl"), is_a("tbl_df"))
|
|
|
|
})
|
|
|