1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
test_that("large zip files", {
skip_on_cran()
dir.create(tmp <- tempfile("zip-test-large-"))
tmpzip <- tempfile("zip-test-large-", fileext = ".zip")
on.exit(unlink(c(tmp, tmpzip), recursive = TRUE), add = TRUE)
oc <- file(file.path(tmp, "file1"), open = "wb")
for (i in 1:6) {
data <- runif(1e7)
writeBin(data, oc)
}
close(oc)
writeLines("hi there", file.path(tmp, "file2"))
zip::zip(tmpzip, tmp, compression_level = 0, mode = "cherry-pick")
zip::zip_list(tmpzip)
unlink(tmp, recursive = TRUE)
zip::unzip(tmpzip, exdir = dirname(tmp))
expect_true(file.exists(tmp))
expect_true(file.exists(file.path(tmp, "file1")))
expect_true(file.exists(file.path(tmp, "file2")))
expect_true(file.size(file.path(tmp, "file1")) > 450000000)
expect_true(file.size(tmpzip) > 450000000)
})
test_that("can compress / uncompress large files", {
skip_on_cran()
if (
!nzchar(Sys.getenv("ZIP_LONG_TESTS")) &&
!nzchar(Sys.getenv("CI"))
) {
skip("takes long")
}
## Note: it will be also skipped if we cannot find a reasonable quick
## way to create a 5GB file.
on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
dir.create(tmp <- tempfile())
file1 <- file.path(tmp, "file1")
make_big_file(file1, 5000)
size <- file.info(file1)$size
zipfile <- tempfile(fileext = ".zip")
on.exit(unlink(zipfile), add = TRUE)
zipr(zipfile, file1, compression_level = 1)
expect_true(file.exists(zipfile))
list <- zip_list(zipfile)
expect_equal(list$filename, "file1")
expect_equal(list$uncompressed_size, size)
on.exit(unlink(tmp2, recursive = TRUE), add = TRUE)
dir.create(tmp2 <- tempfile())
unlink(file1)
zip::unzip(zipfile, exdir = tmp2)
expect_equal(file.info(file.path(tmp2, "file1"))$size, size)
})
test_that("can compress / uncompress many files", {
skip_on_cran()
if (
!nzchar(Sys.getenv("ZIP_LONG_TESTS")) &&
!nzchar(Sys.getenv("CI"))
) {
skip("takes long")
}
tmp <- test_temp_dir()
for (i in 1:70000) cat("file", i, file = file.path(tmp, i))
zip <- test_temp_file(".zip")
zipr(zip, tmp)
l <- zip_list(zip)
expect_equal(nrow(l), 70001)
tmp2 <- test_temp_dir()
zip::unzip(zip, exdir = tmp2)
expect_equal(
length(dir(file.path(tmp2, basename(tmp)))),
70000
)
})
|
