tests/testthat/test.web.R

context("webtests")
test_that("login", {
  expect_s4_class(movebankLogin("asdf", "asdf"), "MovebankLogin")
  expect_silent(a <- movebankLogin("asdf", "asdf"))

  expect_error(movebankLogin("asdf", 234))
  expect_error(movebankLogin("asdf", factor("a")))
  expect_error(movebankLogin("asdf", login = 234))
  expect_s4_class(movebankLogin(), "MovebankLogin")
})
test_that("false login", {
  skip_on_os("solaris")
  skip_on_cran()
  l <- movebankLogin("asdf", "asdf")
  expect_error(getMovebankStudies(l), "There are no valid credentials")
  expect_error(getMovebankData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankStudy("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankAnimals("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankSensors("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")

  expect_error(getMovebankSensors(login = l), "There are no valid credentials")
  expect_error(getMovebankSensors(123413, login = l), "There are no valid credentials")
  expect_error(getMovebankData(123413, login = l), "There are no valid credentials")
  expect_error(getMovebankData(123413, animalName = c("Mancha", "Yara"), login = l), "There are no valid credentials")
  expect_error(getMovebankSensorsAttributes(123413, login = l), "There are no valid credentials")
  expect_error(getMovebankSensorsAttributes("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankLocationData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankNonLocationData("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
  expect_error(getMovebankReferenceTable("Ocelots on Barro Colorado Island, Panama", login = l), "There are no valid credentials")
})
test_that("without login", {
  skip_on_os("solaris")
  skip_on_cran()
  expect_error(getMovebank("tag_type"), "There are no credentials")
  expect_error(getMovebankSensors(), "There are no credentials")
  expect_error(getMovebankStudies(), "There are no credentials")
  expect_error(getMovebankData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankStudy("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankAnimals("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankSensorsAttributes("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankLocationData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankNonLocationData("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
  expect_error(getMovebankReferenceTable("Ocelots on Barro Colorado Island, Panama"), "There are no credentials")
})

Try the move package in your browser

Any scripts or data that you put into this service are public.

move documentation built on July 9, 2023, 6:09 p.m.