local_tate/deprecated/test-goesaodc_downloadaod.R

In MazamaScience/MazamaSatelliteUtils: Utilities for Working with Model and Satellite Data as Rasters

context("test-goesaodc_downloadaod")

# ----- TEST PARAMS ------------------------------------------------------------

satID <- "G16"
datetime <- "2019-09-06 09"
endtime <- "2019-09-06 10"
timezone <- "America/Los_Angeles"
jdate <- "2019249090000"
jdate_end <- "2019249100000"

# ----- FAIL AS EXPECTED -------------------------------------------------------

test_that("fails when passed incorrect parameters", {
  
  # Invalid date format: YYMMDDHH
  expect_error(
    goesaodc_downloadAOD(datetime = "19033112", satID = satID),
    regexp = "No datetimes could be parsed."
  )
  
  # No startdate passed
  expect_error(
    goesaodc_downloadAOD(satID = satID),
    regexp = "argument 'datetime' must not be NULL."
  )
  
  # No satID given
  expect_error(
    goesaodc_downloadAOD(datetime = datetime),
    regexp = "argument 'satID' must not be NULL."
  )
  
})

# ----- TESTS THAT SHOULD PASS -------------------------------------------------

test_that("basic file download works", {
  
  expect_error( 
    goesaodc_downloadAOD(
      satID = satID,
      datetime = datetime,
      endtime = endtime,
      timezone = timezone
    ),
    NA
  )
  
})

test_that("file download using Julian date format", {
  
  expect_error( 
    goesaodc_downloadAOD(
      satID = satID,
      datetime = jdate,
      endtime = jdate_end,
      timezone = timezone,
      isJulian = TRUE
    ),
    NA
  )
  
})