tests/testthat/test-stackMeta.R

context("stackMeta")

mtlFile  <- system.file("external/landsat/LT52240631988227CUB02_MTL.txt", package="RStoolbox")
test_that("stackMeta with exampleData", {
  expect_s4_class(st <- stackMeta(mtlFile), "SpatRaster")
  expect_s4_class(stackMeta(readMeta(mtlFile)), "SpatRaster")
  expect_true(all(grepl("B[1-7]_dn", names(st))))
})
bleutner/RStoolbox documentation built on April 28, 2024, 8:27 a.m.