tests/testthat/test-arg.check.ggautoimage.R

In jpfrench81/autoimage: Multiple Heat Maps for Projected Coordinates

context("arg.check.ggautoimage tests")

test_that("arg.check.ggautoimage sanity check", {
  # check x, y, z all vectors
  expect_error(arg.check.ggautoimage(factor(1:2), 1:2, 1:2, factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be vectors")
  expect_error(arg.check.ggautoimage(1:2, factor(1:2), 1:2, factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be vectors")
  expect_error(arg.check.ggautoimage(1:2, 1:2, factor(1:2), factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be vectors")
  # x, y, z length
  expect_error(arg.check.ggautoimage(1:3, 1:2, 1:2, factor(1:2), "none", 
    NULL, NULL, list()), "x, y, and z must have the same length")
  expect_error(arg.check.ggautoimage(1:2, 1:3, 1:2, factor(1:2), "none", 
    NULL, NULL, list()), "x, y, and z must have the same length")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:3, factor(1:2), "none", 
    NULL, NULL, list()), "x, y, and z must have the same length")
  # x, y, z numeric
  expect_error(arg.check.ggautoimage(c("jim", "jim"), 1:2, 1:2, factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be numeric")
  expect_error(arg.check.ggautoimage(1:2, c("jim", "jim"), 1:2, factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be numeric")
  expect_error(arg.check.ggautoimage(1:2, 1:2, c("jim", "jim"), factor(1:2), 
    "none", NULL, NULL, list()), "x, y, and z must be numeric")
  # check factor
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, 1:3, "none", NULL, 
    NULL, list()), "f must have the same length as x, y, and z")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, 1:2, "none", NULL, 
    NULL, list()), "f must be a factor")
  # proj
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), c("none", 
    "none"), NULL, NULL, list()), "proj must be a single character string")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), 1, NULL, 
    NULL, list()), "proj must be a single character string")
  # lines
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    1, NULL, list()), "lines must be a list")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    list(), NULL, list()), "lines must have components x and y")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    list(x = 1:2), NULL, list()), "lines must have components x and y")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    list(y = 1:2), NULL, list()), "lines must have components x and y")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    list(x = 1:3, y = 1:2), NULL, list()))
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    list(x = factor(1:2), y = 1:2), NULL, list()))
  # points
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, 1, list()), "points must be a list")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, list(), list()), "points must have components x and y")
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, list(x = 1:2, y = 1:3), list()))
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, list(x = factor(1:2), y = 1:2), list()))
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, list(x = 1:2, y = 1:3), list()))
  expect_error(arg.check.ggautoimage(1:2, 1:2, 1:2, factor(1:2), "none", 
    NULL, NULL, 1), "interp.args must be a list")
})