tests/testthat/test.pubtator_tables.R

In pubtatordb: Create and Query a Local 'PubTator' Database

context("pubtator_tables")

test_that(
  "invalid inputs produce an error",
  {
    # When there is an argument.
    expect_error({
      pubtator_tables(10)
    })
  }
)

test_that(
  "valid inputs produce valid output",
  {
    # When there is no argument.
    expect_type(pubtator_tables(), "character")
  }
)