tests/testthat/test-anidar_horizontes.R

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

data(perfiles)
test_that("anida", {
  expect_error(anidado <<- anidar_horizontes(perfiles), NA)
  expect_equal(nrow(anidado), 3)
  expect_true(!is.null(anidado$horizontes))
  expect_s3_class(anidado$horizontes[[1]], "data.frame")
})

test_that("desanidar recupera el original", {

  desanidado <- desanidar_horizontes(anidado)
  expect_identical(perfiles[colnames(desanidado)], desanidado)
})