autotest.r

In giupo/GrafoDB: simple ETL for timeseries in R

#!/usr/bin/env Rscript

suppressMessages(library(testthat))

Sys.setenv(GRAFODB_ENV="test")
futile.logger::flog.info("GRAFODB_ENV: %s", Sys.getenv("GRAFODB_ENV"))


to_warn_level <- c(
  "GrafoDB.sqlhelper",
  "GrafoDB.db",
  "GrafoDB.persistencesave_graph_impl",
  "GrafoDB.patch"
)

for (logger in to_warn_level) {
  invisible(futile.logger::flog.threshold(
    futile.logger::WARN, name = logger))
}

auto_test_package()