tests/testthat/test-mop.R

In paulnorthrop/donut: Nearest Neighbour Search with Variables on a Torus

#context("Mop up")

# Check that RANN is available
got_RANN <- requireNamespace("RANN", quietly = TRUE)

if (got_RANN) {
  set.seed(29092019)
  x1 <- runif(100, 0, 2 * pi)
  x2 <- runif(100, 0, 3)
  x3 <- runif(100, -1, 1)

  # Call nnt() with torus but missing ranges
  x <- cbind(x1, x2, x3)
  test_that("nnt: no ranges", {
    the_error <- "ranges must be supplied"
    testthat::expect_error(nnt(x, x, torus = 1, method = 1), the_error)
  })

  # Call nnt() with non-numeric torus
  test_that("nnt: non-numeric torus", {
    the_error <- "'torus' must be a non-empty numeric vector"
    testthat::expect_error(nnt(x, x, torus = "1", ranges = c(0, 1),
                               method = 1), the_error)
  })

  # Call nnt() with a torus that is not in {1, ..., ncol(data)}
  test_that("nnt: torus value inappropriate", {
    testthat::expect_error(nnt(x, x, torus = c(1:2, 5), ranges = c(0, 1),
                               method = 1))
  })

  # Call nnt() with a ranges that is not consistent with torus
  test_that("nnt: ranges inconsistent with torus", {
    testthat::expect_error(nnt(x, x, torus = 1:2, ranges = c(0, 2 * pi),
                               method = 1))
  })

  # Call nnt() with an inappropriate value of method
  test_that("nnt: method inappropriate", {
    the_error <- "method must be equal to 1 or 2"
    testthat::expect_error(nnt(x, x, torus = 1, ranges = c(0, 2 * pi),
                               method = 3), the_error)
  })

  # Call plot.nnt() with an inappropriate object
  test_that("plot.nnt: inappropriate object", {
    the_error <- "use only with \"donut\" objects"
    testthat::expect_error(plot.nnt(x), the_error)
  })

  # Call nnt() with data that are outside a range in ranges
  test_that("nnt: data out of range", {
    testthat::expect_error(nnt(x, x, torus = 1, ranges = c(0, 1)))
  })

  # Call nnt() with data that are outside a range in ranges
  query <- 7
  test_that("nnt: data out of range", {
    testthat::expect_error(nnt(x, query, torus = 1, ranges = c(0, 2 * pi)))
  })
}