tests/testthat/test-utils.R

In blit: Bioinformatics Library for Integrated Tools

testthat::test_that("`utils-file` works well", {
    # remove extension
    testthat::expect_identical(path_ext_remove("a.b"), "a")
    testthat::expect_identical(path_ext_remove("a.b.c"), "a.b")
    testthat::expect_identical(path_ext_remove("a."), "a")

    # set extension
    testthat::expect_identical(path_ext_set("a", "b"), "a.b")
    testthat::expect_identical(path_ext_set("a.b", "c"), "a.c")
    testthat::expect_identical(path_ext_set("a.", "b"), "a.b")

    # extract extension
    testthat::expect_identical(path_ext("a.b"), "b")
    testthat::expect_identical(path_ext("a.b.c"), "c")
    testthat::expect_identical(path_ext("a."), "")
})

testthat::test_that("`read_lines2()` workds as expected", {
    # prepare file
    testthat::skip_if(.Platform$OS.type == "windows")
    tmpdir <- tempdir()
    file <- tempfile(tmpdir = tmpdir)
    write_lines(letters, path = file)
    on.exit(file.remove(file))
    # gzip compressed file
    gzip_file <- paste(file, "gz", sep = ".")
    exec("gzip", "-c", file, ">", gzip_file) |> cmd_run()
    testthat::expect_identical(read_lines2(gzip_file), letters)
    file.remove(gzip_file)

    # bzip2 compressed file
    bzip2_file <- paste(file, "bz", sep = ".")
    exec("gzip", "-c", file, ">", bzip2_file) |> cmd_run()
    testthat::expect_identical(read_lines2(bzip2_file), letters)
    file.remove(bzip2_file)

    # xz compressed file
    xz_file <- paste(file, "xz", sep = ".")
    exec("gzip", "-c", file, ">", xz_file) |> cmd_run()
    testthat::expect_identical(read_lines2(xz_file), letters)
    file.remove(xz_file)
})