tests/testthat/test-gather_trenches.R

In lsteinmann/idaifieldR: Importing Data from Field Desktop / iDAI.field into R

source(file = "../load_testdata.R")

uidlist <- get_uid_list(test_docs)

test_that("returns same amount of elements", {
  expect_equal(length(gather_trenches(uidlist)), nrow(uidlist))
})

test_that("returns character vector", {
  expect_true(is.character(gather_trenches(uidlist)))
})