inst/tinytest/tests.R

In gimms: Download and Process GIMMS NDVI3g Data

library(gimms)


### serverPath() ----

expect_identical(
  gimms:::serverPath("poles")
  , "ftp://"
)

expect_identical(
  gimms:::serverPath("poles", ip = "210.72.14.198")
  , "ftp://210.72.14.198"
)


### . checkVersion() ----

## ecocast
for (version in c(0, 1)) {
  expect_identical(
    gimms:::checkVersion(
      "ecocast"
      , version
    )
    , version
  )
}

expect_error(
  gimms:::checkVersion(
    "ecocast"
    , 2
  )
)

## nasanex
expect_identical(
  gimms:::checkVersion(
    "nasanex"
    , 0
  )
  , 0
)

expect_error(
  gimms:::checkVersion(
    "nasanex"
    , 1
  )
)

## poles
expect_identical(
  gimms:::checkVersion(
    "poles"
    , 1
  )
  , 1
)

expect_error(
  gimms:::checkVersion(
    "poles"
    , 0
  )
)

## 'character' input
expect_identical(
  gimms:::checkVersion(
    "poles"
    , "1"
  )
  , 1
)

expect_error(
  gimms:::checkVersion(
    "poles"
    , "v1"
  )
)


### . dates_*v1.rds ----

## ecocast
dts_ecv1 = readRDS(
  system.file("extdata", "dates_ecv1.rds", package = "gimms")
  # "inst/extdata/dates_ecv1.rds"
)

## poles
dts_plv1 = readRDS(
  system.file("extdata", "dates_plv1.rds", package = "gimms")
  # "inst/extdata/dates_plv1.rds"
)

expect_equivalent(
  dts_ecv1
  , dts_plv1
)