1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
test_that("unzip_process", {
z <- make_a_zip()
tmp2 <- test_temp_dir()
p1 <- unzip_process()$new(z$zip, tmp2)
p1$wait(2000)
p1$kill()
expect_equal(p1$get_exit_status(), 0)
expect_true(file.exists(file.path(tmp2, basename(z$ex), "file1")))
expect_true(file.exists(file.path(tmp2, basename(z$ex), "dir")))
expect_true(file.exists(file.path(tmp2, basename(z$ex), "dir", "file2")))
expect_equal(readLines(file.path(tmp2, basename(z$ex), "file1")), "file1")
expect_equal(
readLines(file.path(tmp2, basename(z$ex), "dir", "file2")),
"file2"
)
})
|
