tests/testthat/test-lagos_get.R

In cont-limno/LAGOS: Interface to the Lake Multi-Scaled Geospatial and Temporal Database

context("lagos_get")

test_that("lagosne_get pasta urls are SSL connect-able (#114)", {

  skip_on_cran()

  pasta_baseurl <- "http://pasta.lternet.edu/package/data/eml/edi/"
  locus_base_pasta <- paste0(pasta_baseurl, "100/4")
  id_readlines <- readLines(locus_base_pasta)
  expect_equal(id_readlines, "ce274065dfb5b453c5696f715fe4e269")

  pasta_baseurl <- "https://pasta.lternet.edu/package/data/eml/edi/"
  locus_base_pasta <- paste0(pasta_baseurl, "100/4")
  id_get <- httr::content(httr::GET(locus_base_pasta), encoding = "UTF-8")
  id_get <- strsplit(id_get, "\n")[[1]]
  expect_equal(id_readlines, id_get)
})

test_that("lagosne_get urls are active", {

  skip_on_cran()

  # LAGOSNE_lakeslocus101.csv
  expect_true(
    LAGOSNE:::url_exists(paste0("https://portal.edirepository.org/nis/",
      "dataviewer?packageid=edi.100.4&entityid=ce274065dfb5b453c5696f715fe4e269"))
  )
})

test_that("external download urls are active", {
  skip_on_cran()

  # collins et al. 2017
  expect_true(
    LAGOSNE:::url_exists(paste0("http://pasta.lternet.edu/package/data/eml/",
      "knb-lter-ntl/332/5/d9e3a388e566a2428a93b982a000e2c4"))
  )

  # oliver et al. 2015
  expect_true(
    LAGOSNE:::url_exists(paste0("http://pasta.lternet.edu/package/data/eml/",
      "knb-lter-ntl/320/4/4a283c25f3548c0f78d8a01658e4a353"))
  )
})