tests/testthat/test-analysis.R

In kaybrodersen/FitbitAnalysis: Exploratory Analysis of Fitbit Sensor Data

test_that("Moving7dAvg works on standard input", {
  # Use `devtools::load_all()` when adding tests for non-exported functions.
  expect_equal(Moving7dAvg(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)),
               c(NA, NA, NA, NA, NA, NA, 4, 5, 6, 7))
})

test_that("Moving7dAvg works on input that is shorter than a week", {
  expect_equal(Moving7dAvg(NULL), NULL)
  expect_equal(Moving7dAvg(1), NA)
  expect_equal(Moving7dAvg(c(1, 2, 3)), c(NA, NA, NA))
})

test_that("IsWeekend works on standard input", {
  expect_equal(IsWeekend(as.Date("2021-01-02")), TRUE)
  expect_equal(IsWeekend(as.Date("2021-01-03")), TRUE)
  expect_equal(IsWeekend(as.Date("2021-01-04")), FALSE)
})

test_that("DateToWeekday works on standard input", {
  weekdays <- c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
  expect_equal(DateToWeekday(as.Date("2021-01-01")),
               factor("Fri", levels = weekdays))
})

test_that("se rejects bad input", {
  expect_error(se(c(1, 2, 3), na.rm = "foo"), "not a flag")
  expect_error(se(c(1, 2, 3), na.rm = c(TRUE, TRUE)), "not a flag")
})

test_that("se works with `na.rm = FALSE` (default)", {
  expect_equal(se(c(1, 2, NA_real_)), NA_real_)
  expect_equal(se(NA_real_), NA_real_)
  expect_equal(se(c(1, 2, 3)), sqrt(((1-2)^2 + (3-2)^2)) / sqrt(2) / sqrt(3))
})

test_that("se works with `na.rm = TRUE`", {
  expect_equal(se(c(1, 2, 3), na.rm = TRUE),
               sqrt(((1-2)^2 + (3-2)^2)) / sqrt(2) / sqrt(3))
  expect_equal(se(c(1, 2, NA_real_, 3), na.rm = TRUE),
               sqrt(((1-2)^2 + (3-2)^2)) / sqrt(2) / sqrt(3))
})