tests/testthat/test_020_config.R

In pkrog/biodb: biodb, a library and a development framework for connecting to chemical and biological databases

# vi: fdm=marker

# Test listKeys {{{1
################################################################

test.listKeys <- function(biodb) {
	keys <- biodb$getConfig()$listKeys()
	expect_is(keys, 'data.frame')
	expect_true(nrow(keys) > 10)
	expect_true(all(vapply(keys, class, FUN.VALUE = '') == 'character'))
	expect_true(all(c('title') %in% names(keys)))
	expect_false(any(is.na(keys$Description)))
}

# Main {{{1
################################################################

# Instantiate Biodb
biodb <- biodb::createBiodbTestInstance()

# Set context
biodb::testContext("Test config.")

# Run tests
biodb::testThat("Keys are listed correctly.", test.listKeys, biodb = biodb)

# Terminate Biodb
biodb$terminate()