tests/testthat/test-install_mdrb.R

In metabodecon: Deconvolution and Alignment of 1d NMR Spectra

library(testthat)

test_that("install_mdrb works", {

    # Remove all site libs to make sure mdrb is not pre-installed.
    # Load packages required for the test before doing this.
    requireNamespace("waldo", quietly = TRUE)   # required by `expect_false(<bool>)`
    requireNamespace("diffobj", quietly = TRUE) # required by `expect_false(<try-error>)`
    requireNamespace("glue", quietly = TRUE)    # required by testthat for test failure messages

    tmp_lib <- norm_path(tmpfile("tmp-library/"))
    dir.create(tmp_lib, recursive = TRUE)
    old_libs <- .libPaths()
    n_libs <- length(old_libs)
    defer(.libPaths(old_libs))
    .libPaths(tmp_lib, include.site = FALSE)
    unloadNamespace("mdrb")

    mdrb_available <- check_mdrb()
    if ((Sys.getenv("UNIVERSE_NAME") != "") && (!mdrb_available)) {
        skip("Skipping test as mdrb is installed in Sys Library and cannot be uninstalled.")
    }
    expect_false(mdrb_available)


    # Skip on Linux, to prevent source install, which takes up to 2 minutes.
    if (Sys.info()[["sysname"]] == "Linux") {
        skip_if_slow_tests_disabled()
    }

    obj <- evalwith(
        output = "captured",
        message = "captured",
        expr = {
            x <- try(install_mdrb(ask = FALSE, keep_outputs = TRUE))
            unlink("mdrb.out") # If executed by testthat
            unlink("tests/testthat/mdrb.out") # If executed interactively
        }
    )
    mdrb_available <- check_mdrb()
    if (getRversion() <  numeric_version("4.2")) {
        expect_true(inherits(x, "try-error"))
        expect_equal(obj$message, "Error : installation of mdrb requires R version 4.2 or greater")
        expect_false(mdrb_available)
    } else {
        if (inherits(x, "try-error")) {
            message("\nCaptured messages:")
            message(paste("|", obj$message, collapse = "\n"))
            message("Captured output:")
            message(paste("|", obj$output, collapse = "\n"))
        }
        expect_true(is.null(x))
        expect_true(mdrb_available)
    }
})