tests/testthat/test-clue_api.R

In clemenshug/clueR: Query the Clue Database of Perturbations Using R

test_that("Can submit example query", {
  skip_on_cran()
  up_gmt <- file.path("..", "data", "example_up.gmt")
  down_gmt <- file.path("..", "data", "example_down.gmt")
  # up_gmt <- file.path("tests", "data", "example_up.gmt")
  # down_gmt <- file.path("tests", "data", "example_down.gmt")
  response <- clue_query_submit(
    up_gmt, down_gmt,
    name = paste(sample(letters, 10, replace = TRUE), collapse = "")
  )
  expect_equal(response$status, "pending")
})