test_that(".rba_stg works", {

  expect_error(
    object = .rba_stg("qwerty"),
    regexp = NULL
  )

  expect_type(
    object = .rba_stg("reactome", "pth", "analysis"),
    type = "character"
  )

  expect_type(
    object = .rba_stg("reactome", "err_prs")[[2]],
    type = "closure"
  )

})