tests/testthat/test-query.R

In juyeongkim/ImmPortR: An R wrapper Around the ImmPort API

context("query")

test_that("`query_dataset` works", {
  res <- query_dataset("SDY269", "elisa")

  expect_is(res, "data.frame")
  expect_length(res, 42)

  expect_error(query_dataset("SDY269", "invalidDataset"))
})

test_that("`query_filePath` works", {
  res <- query_filePath("SDY269")

  expect_is(res, "data.frame")
  expect_length(res, 37)
})