tests/testthat/test-validate_args.R

In gtexr: Query the GTEx Portal API

test_that("validate_args() raises error for invalid arguments", {
  # invalid arg length
  expect_error(validate_args(list(page = c(1, 0)),
                             call = rlang::caller_env()),
               class = "gtexr_arg_class_or_length")

  # invalid class
  expect_error(validate_args(list(page = "invalid class"),
                             call = rlang::caller_env()),
               class = "gtexr_arg_class_or_length")

  # invalid class
  expect_error(validate_args(list(geneIds = 1:2),
                             call = rlang::caller_env()),
               class = "gtexr_arg_class_or_length")
})

test_that("validate_args() accepts integerish arguments", {
  expect_no_error(validate_args(list(page = 1.0),
                                call = rlang::caller_env()),
                  class = "gtexr_arg_class_or_length")
})

test_that("validate_args() removes 's$' from pluralised args", {
  expect_equal(validate_args(list(geneIds = "CRP"),
                             call = rlang::caller_env()),
               list(geneId = "CRP"))
})


test_that("validate_args() raises an error for arguments that are not listed by `gtexr_arguments()`", {
  expect_error(validate_args(list(unrecognised_arg = "x"), rlang::caller_env()),
               "Unrecognised argument: `unrecognised_arg`")
})

test_that("`validate_args()` raises error if any query parameters are empty",
          {
            expect_error(
              get_neighbor_gene(),
              "Identified 3 missing arguments with no default values provided:"
            )
          })