tests/testthat/test-compMetaLandsat.R

context("Landsat metadata")

test_that("compFilePathLandsat works as expected for Landsat 7", {
  path <- system.file("testdata/LE7", 
                      package = "satellite")
  files <- list.files(path, 
                      pattern = glob2rx("LE7*.TIF"), 
                      full.names = TRUE)
  meta <- compFilePathLandsat(files)
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[6]), "6_VCID_1")
  expect_equal(as.character(meta$BID[9]), "8")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[6]), "B0061")
  expect_equal(as.character(meta$BCDE[9]), "B008n")
  
  expect_equal(basename(as.character(meta$FILE[2])), 
               "LE71950252001211EDC00_B2.TIF")
  expect_equal(basename(as.character(meta$FILE[6])), 
               "LE71950252001211EDC00_B6_VCID_1.TIF")
  expect_equal(basename(as.character(meta$FILE[9])), 
               "LE71950252001211EDC00_B8.TIF")
})

test_that("compFilePathLandsat works as expected for Landsat 8", {
  path <- system.file("testdata/LC8", 
                      package = "satellite")
  files <- list.files(path, 
                      pattern = glob2rx("LC8*.TIF"), 
                      full.names = TRUE)
  files <- sortFilesLandsat(files)
  meta <- compFilePathLandsat(files)
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[8]), "8")
  expect_equal(as.character(meta$BID[12]), "QA")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[8]), "B008n")
  expect_equal(as.character(meta$BCDE[12]), "B0QAn")
  
  expect_equal(basename(as.character(meta$FILE[2])), 
               "LC81950252013188LGN00_B2.TIF")
  expect_equal(basename(as.character(meta$FILE[8])), 
               "LC81950252013188LGN00_B8.TIF")
  expect_equal(basename(as.character(meta$FILE[12])), 
               "LC81950252013188LGN00_BQA.TIF")
})


test_that("compMetaLandsat works as expected for Landsat 7", {
  path <- system.file("testdata/LE7", 
                      package = "satellite")
  files <- list.files(path, 
                      pattern = glob2rx("LE7*.TIF"), 
                      full.names = TRUE)
  meta <- compMetaLandsat(files)  
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[6]), "6_VCID_1")
  expect_equal(as.character(meta$BID[9]), "8")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[6]), "B0061")
  expect_equal(as.character(meta$BCDE[9]), "B008n")
  
  expect_equal(basename(as.character(meta$FILE[2])), 
               "LE71950252001211EDC00_B2.TIF")
  expect_equal(basename(as.character(meta$FILE[6])), 
               "LE71950252001211EDC00_B6_VCID_1.TIF")
  expect_equal(basename(as.character(meta$FILE[9])), 
               "LE71950252001211EDC00_B8.TIF")
})

test_that("compMetaLandsat works as expected for Landsat 8", {
  path <- system.file("testdata/LC8", 
                      package = "satellite")
  files <- list.files(path, 
                      pattern = glob2rx("LC8*.TIF"), 
                      full.names = TRUE)
  meta <- compMetaLandsat(files)  
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[10]), "10")
  expect_equal(as.character(meta$BID[12]), "QA")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[10]), "B010n")
  expect_equal(as.character(meta$BCDE[12]), "B0QAn")
  
  expect_equal(basename(as.character(meta$FILE[2])), 
               "LC81950252013188LGN00_B2.TIF")
  expect_equal(basename(as.character(meta$FILE[10])), 
               "LC81950252013188LGN00_B10.TIF")
  expect_equal(basename(as.character(meta$FILE[12])), 
               "LC81950252013188LGN00_BQA.TIF")
})

test_that("compMetaLandsat works as expected for Landsat 8 (LC8) metafile", {
  path <- system.file("testdata/LC8", package = "satellite")
  file <- list.files(path, pattern = glob2rx("LC8*_MTL.txt"), full.names = TRUE)
  meta <- compMetaLandsat(file)
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[10]), "10")
  expect_equal(as.character(meta$BID[12]), "QA")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[10]), "B010n")
  expect_equal(as.character(meta$BCDE[12]), "B0QAn")
})

test_that("compMetaLandsat works as expected for Landsat 8 (LC08) metafile", {
  path <- system.file("extdata", package = "satellite")
  file <- list.files(path, pattern = glob2rx("LC08*_MTL.txt"), full.names = TRUE)
  meta <- compMetaLandsat(file)
  
  expect_equal(as.character(meta$BID[2]), "2")
  expect_equal(as.character(meta$BID[10]), "10")
  expect_equal(as.character(meta$BID[12]), "QA")
  
  expect_equal(as.character(meta$BCDE[2]), "B002n")
  expect_equal(as.character(meta$BCDE[10]), "B010n")
  expect_equal(as.character(meta$BCDE[12]), "B0QAn")
})

Try the satellite package in your browser

Any scripts or data that you put into this service are public.

satellite documentation built on Oct. 12, 2021, 5:07 p.m.