longtests/testthat/test_long_500_orthology.R

In pkrog/biodbKegg: biodbKegg, a library for connecting to the KEGG Database

# Set test context
biodb::testContext("KEGG Orthology long tests")

# Instantiate Biodb
biodb <- biodb::createBiodbTestInstance(ack=TRUE)

# Load package definitions
defFile <- system.file("definitions.yml", package='biodbKegg')
biodb$loadDefinitions(defFile)

# Create connector
conn <- biodb$getFactory()$createConn('kegg.orthology')

# Run generic tests
testRefFolder <- system.file("testref", package='biodbKegg')
biodb::runGenericTests(conn, pkgName='biodbKegg', short=FALSE, long=TRUE,
    testRefFolder=testRefFolder, opt=list(max.results=10))

# Terminate Biodb
biodb$terminate()