tests/testthat/test_catalog.R

In EhrmannS/rasterTools: Obtain and process earth observation data

library(checkmate)
context("catalog")


test_that("function detects files and reads their names", {
  abbr <- function(x){
    toupper(x)
  }

  path <- system.file("test_datasets", package="rasterTools")
  output <- catalog(path, abbreviateBy = abbr, silent = TRUE)
  expect_data_frame(output, types = "character", ncols = 2, any.missing = FALSE, min.rows = 1)
})

test_that("names of output are correct", {
  path <- system.file("test_datasets", package="rasterTools")
  abbr <- function(x){
    toupper(x)
  }

  output <- catalog(path, abbreviateBy = abbr, silent = TRUE)
  expect_names(names(output), identical.to = c("original", "abbr"))
})

test_that("Error if arguments have wrong value", {
  path <- system.file("csv", package="rasterTools")
  abbr <- function(x){
    toupper(x)
  }
  
  expect_error(catalog(path, abbreviateBy = abbr, type = "txt", silent = TRUE))
})