tests/testthat/test.elementari.r

In giupo/GrafoDB: simple ETL for timeseries in R

foreach::registerDoSEQ()

setup <- function() {
  g <- GrafoDB("test")
  g["A"] <- stats::ts(c(1, 2, 3), start = c(1990, 1), frequency = 4)
  g["B"] <- function() {
    B <- stats::ts(c(1, 2, 3), start = c(1990, 1), frequency = 4) # nolint
  }
  g
}

test_that("posso avere serie con funzione senza padri", {
  g <- setup()
  expect_true("B" %in% names(g))
  expect_equal(length(upgrf(g, "B")), 0)
  expect_true(all(g[["A"]] == g[["B"]]))
  expect_true(isElementary(g, "B"))
  expect_true(!isElementary(g, "A"))
  delete_graph(g)
})


test_that("posso creare una serie elementare, che esista o meno nel DB", {
  g <- setup()
  g@data[["C"]] <- stats::ts(c(1, 2, 3), start = c(1990, 1), frequency = 4)
  g["C"] <- function() { # nolint
    C[3] <- 4 # nolint
  }

  expect_equal(g[["C"]][3], 4)
  expect_equal({
      g["NONESISTO"] <- function() {
          NONESISTO <- stats::ts(c(1, 2, 3)) # nolint
      }
      g[["NONESISTO"]][1]
  }, 1)
  delete_graph(g)
})