longtests/testthat/test-EggNOG.R

In acidgenomics/EggNOG: EggNOG

## Test previous releases.
releases <- eval(formals("EggNOG")[["release"]])
releases <- releases[2L:length(releases)]
for (release in eval(formals("EggNOG")[["release"]])) {
    test_that(paste("EggNOG", release), {
        object <- EggNOG(release = release)
        expect_s4_class(object, "EggNOG")
        expect_length(object, 2L)
        expect_output(
            object = show(object),
            regexp = "EggNOG"
        )
    })
}