tests/testthat/test-moving_average.R

In C-Juliette/Geostatistic: Geostatistic maps

######################### REGULAR TESTS #######################
test_that("Regular test - unchanged grid when r = 0", {
  # arrange
  Z <- matrix(rnorm(5*5, 2, 4), nrow = 5)
  # act
  actual <- moving_average(Z,0)
  # assert
  expected <- Z
  expect_equal(actual, expected)
})


test_that("Regular test - full of zeros grid", {
  # arrange
  Z <- matrix(rep(0, 5*5), nrow = 5)
  # act
  actual <- moving_average(Z,2)
  # assert
  expected <- matrix(c(0))
  expect_identical(actual, expected)
})


test_that("Regular test - full of ones grid (and 5*5 window)", {
  # arrange
  Z <- matrix(rep(1, 5*5), nrow = 5)
  # act
  actual <- moving_average(Z,2)
  # assert
  expected <- matrix(c(1))
  expect_identical(actual, expected)
})

test_that("Regular test - full of ones grid (and 3*3 window)", {
  # arrange
  Z <- matrix(rep(1, 5*5), nrow = 5)
  # act
  actual <- moving_average(Z,1)
  # assert
  expected <- matrix(rep(1,9), nrow = 3)
  expect_identical(actual, expected)
})


test_that("Regular test - Bernoulli grid", {
  # arrange
  set.seed(1)
  Z <- matrix(rbinom(5*5, 1, 0.5), nrow = 5)
  # act
  actual <- moving_average(Z,2)
  # assert
  expected <- matrix(c(13/25))
  expect_identical(actual, expected)
})

test_that("Regular test - Z is a number", {
  # arrange
  Z <- 2
  # act
  actual <- moving_average(Z,0)
  # assert
  expected <- matrix(2)
  expect_equal(actual, expected)
})

test_that("Regular test - Z is a vector", {
  # arrange
  Z <- c(1, 2, 3, 4)
  # act
  actual <- moving_average(Z,0)
  # assert
  expected <- matrix(Z)
  expect_identical(actual, expected)
})



######################## ANOMALY TESTS #####################

############## Z ANOMALIES ####################

test_that("Anomaly test - error when Z parametre isn't a matrix/dataframe - test 1", {
  # arrange
  Z <- "matrix(rbinom(5*5, 1, 0.5), nrow = 5)"
  # act & assert
  expect_error(moving_average(Z, 1), "^Z must be a matrix/dataframe of numbers$")
})

test_that("Anomaly test - error when Z parametre isn't a matrix/dataframe - test 2", {
  # arrange
  f <- function(){return("I am a function")}
  # act & assert
  expect_error(moving_average(f, 2), "^Z must be a matrix/dataframe of numbers$")
})


############## r ANOMALIES ####################


test_that("Anomaly test - error when r parametre isn't a number - test 1", {
  # arrange
  Z <- matrix(rbinom(5*5, 1, 0.5), nrow = 5)
  # act & assert
  expect_error(moving_average(Z, "a"), "^r must be an integer$")
})

test_that("Anomaly test - error when r isn't a number - test 2", {
  # arrange
  f <- function(){return("I am a function")}
  Z <- matrix(rbinom(3*10, 1, 0.5), nrow = 3)
  # act & assert
  expect_error(moving_average(Z, f), "^r must be an integer$")
})

test_that("Anomaly test - error when r parametre is a floating number", {
  # arrange
  Z <- matrix(rbinom(5*5, 1, 0.5), nrow = 5)
  # act & assert
  expect_error(moving_average(Z, 0.2), "^r must be an integer$")
})

test_that("Anomaly test - error when r parametre is less than zero", {
  # arrange
  Z <- matrix(rbinom(5*5, 1, 0.5), nrow = 5)
  # act & assert
  expect_error(moving_average(Z, -2), "^r must be >= 0$")
})

test_that("Anomaly test - error when the window is smaller than the grid", {
  # arrange
  Z <- matrix(rbinom(5*5, 1, 0.5), nrow = 5)
  # act & assert
  expect_error(moving_average(Z, 4), "^The grid must be larger than the window. Decrease r or increase the grid size$")
})

test_that("Anomaly test - error when the window lenght is smaller than the grid lenght", {
  # arrange
  Z <- matrix(rbinom(5*2, 1, 0.5), nrow = 5)
  # act & assert
  expect_error(moving_average(Z, 1), "^The grid must be larger than the window. Decrease r or increase the grid size$")
})


test_that("Anomaly test - error when the window width is smaller than the grid width", {
  # arrange
  Z <- matrix(rbinom(3*10, 1, 0.5), nrow = 3)
  # act & assert
  expect_error(moving_average(Z, 2), "^The grid must be larger than the window. Decrease r or increase the grid size$")
})