tests/testthat/test_GenerateAnalysisData.R

context("GenerateAnalysisResults")

test_that("Basic weekly", {
  library(data.table)

  d <- GenerateAnalysisResults(granularity = "weekly")
  expect_equal(TRUE,ValidateAnalysisResults(d, granularity = "weekly"))
})

test_that("Basic weekly with municip", {
  library(data.table)

  d <- GenerateAnalysisResults(granularity = "weekly",loc="municip0301")
  expect_equal(TRUE,ValidateAnalysisResults(d, granularity = "weekly"))
})


test_that("Basic daily", {
  library(data.table)

  d <- GenerateAnalysisResults(granularity = "daily")
  expect_equal(TRUE,ValidateAnalysisResults(d, granularity = "daily"))
})
raubreywhite/dashboards_sykdomspuls documentation built on Oct. 18, 2018, 7:02 a.m.