tests/testthat/test-get_perfiles.R

In INTA-Suelos/SISINTAR: Lee y Manipula Datos de Suelo de SISINTA

perfiles_id <- sort(c(3238, 1831))

test_that("descarga perfiles", {

  expect_s3_class(p <<- get_perfiles(perfiles_id), "data.frame")
  expect_true(nrow(p) > 0)
  expect_equal(sort(unique(p$perfil_id)), as.character(perfiles_id))
})


test_that("se puede cambiar el directorio de descarga", {
  dir <- file.path(tempdir(), "new_dir")
  expect_s3_class(p2 <- get_perfiles(perfiles_id, dir = dir), "data.frame")
  expect_identical(p, p2)
  expect_true(length(list.files(dir)) == 2)
})

nulo <- perfiles_datos[0, ]

test_that("hay warnigns para perfiles privados", {
  expect_warning(expect_equal(get_perfiles(4609), nulo),  "No se pudieron descargar")
  expect_error(get_perfiles(4609, parar_en_error = TRUE))
})


test_that("funcionan las credenciales", {
  pass <- Sys.getenv("SISINTA.PASS")

  if (identical(pass, "")) {
    skip("No authentication")
  }

  credenciales <- list(usuario = "paobcorrales@gmail.com",
                       pass = pass)

  if (check_sisinta()) {
    expect_warning(p <- get_perfiles(4609, credenciales = credenciales), NA)
    expect_s3_class(p, "data.frame")
    expect_true(nrow(p) > 0)
    expect_equal(unique(p$perfil_id), "4609")
  } else {
    expect_warning(p <- get_perfiles(4609, credenciales = credenciales), "No se pudieron descargar los")
  }
})


test_that("maneja malos inputs", {
  expect_error(get_perfiles(data.frame(x = 1)), "perfil_ids es un data.frame pero no tiene una columna llamada `perfil_id`")
})