tests/testthat/test-config.R

In sits: Satellite Image Time Series Analysis for Earth Observation Data Cubes

# save variable value
user_file <- Sys.getenv("SITS_CONFIG_USER_FILE")
test_that("User functions", {
    expect_true(
        Sys.setenv("SITS_CONFIG_USER_FILE" = "")
    )

    # load default + user config
    expect_true(
        Sys.setenv(
            "SITS_CONFIG_USER_FILE" =
                system.file("extdata/config_user_example.yml",
                    package = "sits"
                )
        )
    )
    default <- sits_config()

    expect_equal(
        unname(.colors_get(labels = c(
            "Rangeland", "Forest_Land", "Water"
        ), legend = NULL, palette = "Spectral", rev = TRUE)),
        c(
            "#F1C40F", "#27AE60", "#2980B9"
        )
    )
    # add a new source, collection
    .conf_set_options(
        sources = list(TEST = .conf_new_source(
            s3_class = c("bdc_cube", "stac_cube", "raster_cube"),
            collections = list(TEST = .conf_new_collection(
                bands = list(
                    B2 = .conf_new_band(
                        missing_value = 0,
                        minimum_value = 1,
                        maximum_value = 65455,
                        scale_factor  = 0.0000275,
                        offset_value  = -0.2,
                        resampling    = "bilinear",
                        band_name     = "SR_B2",
                        resolution    = 30
                    ),
                    CLOUD = .conf_new_cloud_band(
                        bit_mask = TRUE,
                        values = list(
                            "0" = "No Data",
                            "127" = "Clear Pixel",
                            "255" = "Cloud"
                        ),
                        interp_values = 1,
                        resampling = "near",
                        resolution = 30,
                        band_name = "QA_PIXEL"
                    )
                ),
                satellite = "SENTINEL-2",
                sensor = "MSI"
            ))
        ))
    )

    expect_error(
        object = .source_url(source = "TEST"),
        regexp = "key 'sources->TEST->url' not found in config"
    )

    expect_equal(
        .source_url(source = "BDC"),
        "https://data.inpe.br/bdc/stac/v1"
    )

    expect_error(
        .source_service(source = "TEST")
    )

    expect_equal(
        .source_service(source = "BDC"),
        "STAC"
    )

    expect_equal(
        .source_s3class(source = "TEST"),
        c("bdc_cube", "stac_cube", "raster_cube")
    )
    expect_equal(
        .source_s3class(source = "BDC"),
        c("bdc_cube", "stac_cube", "eo_cube", "raster_cube")
    )
    expect_equal(
        .source_collections(source = "TEST"),
        "TEST"
    )

    expect_error(
        .check_source_collection(source = "ZZZ", collection = "ZZZ"),
        ".check_source: invalid source parameter"
    )

    expect_error(
        .check_source_collection(source = "TEST", collection = "ZZZ"),
        ".check_source_collection: invalid collection parameter"
    )
})

# restore variable value
Sys.setenv("SITS_CONFIG_USER_FILE" = user_file)

test_that("User config", {
    conf_user_file <- system.file("extdata/config_test.yml",
                                  package = "sits"
    )
    suppressWarnings(sits_config_user_file(conf_user_file))
    conf_user_env <- Sys.getenv("SITS_CONFIG_USER_FILE")
    expect_true(grepl("config_test.yml", conf_user_env))
})
test_that("config show", {
    output <- capture.output(sits_config_show())
    expect_true(grepl("Data sources", output[[1]]))
    expect_true(grepl("MPC", output[[4]]))
})
test_that("config params",{
    # User configurable parameters for plotting
    config_plot <- sits_env[["config"]][["plot"]]
    params <- capture.output(.conf_list_params(config_plot))
    expect_true(grepl("max_size", params[[1]]))
    expect_true(grepl("scale", params[[12]]))

    rstac_limit <- .conf_rstac_limit()
    expect_true(rstac_limit > 50)

    raster_pkg <- .conf_raster_pkg()
    expect_true(raster_pkg == "terra")
})