tests/testthat/test_utils.R

In jolars/motley: A Motley of R Functions

context("Utility functions")

test_that("sample_disk returns errors with incorrect input", {
  expect_error(sample_disk("2"))
  expect_error(sample_disk(f = 19))
  expect_error(sample_disk(r = 0))
  expect_error(sample_disk(n = 1.5))
  expect_error(sample_disk(n = 0))
  expect_error(sample_disk(n = -1))
  expect_error(sample_disk(r = -1))
  expect_error(sample_disk(n = TRUE))
  expect_error(sample_disk(n = list("f")))
})

test_that("correct input returns no errors", {
  expect_error(sample_disk(), NA)
  expect_error(sample_disk(x = -1000, y = 984, r = 0.2, n = 1), NA)
})

test_that("combine_binaries returns errors with incorrect input", {
  expect_error(combine_binaries("asdf"))
  expect_error(combine_binaries(0))
  expect_error(combine_binaries(1.1))
  expect_error(combine(binaries(TRUE)))
})