tests/testthat/test-get_gene_regulators.R

In regutools: regutools: an R package for data extraction from RegulonDB

context("get_gene_regulators")
test_that("function get_gene_regulators works as expected", {
    ## Connect to the RegulonDB database if necessary
    if (!exists("regulondb_conn")) {
          regulondb_conn <- connect_database()
      }

    ## Build a regulondb object
    regdb <-
        regulondb(
            database_conn = regulondb_conn,
            organism = "prueba",
            genome_version = "prueba",
            database_version = "prueba"
        )

    expect_s4_class(
        get_gene_regulators(regdb, genes = "araC"),
        "regulondb_result"
    )
    expect_s4_class(
        get_gene_regulators(regdb, genes = "araC", output.type = "GENE"),
        "regulondb_result"
    )
    expect_s4_class(
        get_gene_regulators(regdb, genes = "araC", format = "table"),
        "regulondb_result"
    )
    expect_s4_class(
        get_gene_regulators(regdb, genes = "araC", format = "onerow"),
        "regulondb_result"
    )

    expect_error(get_gene_regulators(regdb, genes = "araC", format = ""), "")
    expect_error(get_gene_regulators(regdb, genes = c(1, 2)))
    expect_error(get_gene_regulators(regdb, genes = "araC", output.type = "matrix"))

    expect_s4_class(get_gene_regulators(regdb, genes = c("araC", "ECK120000050", "b0064")), "regulondb_result")
})