tests/testthat/test.download.run.input.R

In PecanProject/rpecanapi: R Library that interacts with the PEcAn API

context("Download & save an input file for a desired PEcAn run")

test_that("Invalid credentials results in 401 error", {
  server_incorrect <- set.server(username="random", password="random")
  expect_error(download.run.input(server_incorrect, run_id = 99000000282, filename="sipnet.in", save_as = "temp.file"), "Invalid credentials")
})

test_that("No credentials results in 401 error", {
  server_incorrect <- set.server(username=NULL, password=NULL)
  expect_error(download.run.input(server_incorrect, run_id = 99000000282, filename="sipnet.in", save_as = "temp.file"), "Invalid credentials")
})

test_that("Desired input file is downloaded on passing correct input_id", {
  download.run.input(server, run_id = 99000000282, filename="sipnet.in", save_as = "temp.file")
  expect_equal(file.exists("temp.file"), TRUE)
  file.remove("temp.file")
})

test_that("Invalid input_id results in 404 Error", {
  expect_error(download.run.input(server, run_id = 0, filename="sipnet.in", save_as = "temp.file"), "Input file not found")
})