tests/testthat/test_spl.R

In boshek/limnotools: A set of tools and commands to utilize high resolution water profile data

context("Testing the split_interval() function.")

test_that("split_interval divides wide intervals.", {
  expect_equal(split_interval(c(1,5,10,20),2),c(1,5,7,10,20))
  expect_equal(split_interval(c(1,2,6,10),2),c(1,2,4,6,10))
})

test_that("split_interval divides the first and last intervals.", {
  expect_equal(split_interval(c(1,5,10),1),c(1,3,5,10))
  expect_equal(split_interval(c(1,5,10),2),c(1,5,7,10))
})

test_that("split_interval divides even,even intervals.", {
  expect_equal(split_interval(c(1,2,6,10),2),c(1,2,4,6,10))
})

test_that("split_interval divides even,odd intervals.", {
  expect_equal(split_interval(c(1,2,5,10),2),c(1,2,4,5,10))
})

test_that("split_interval divides odd,even intervals.", {
  expect_equal(split_interval(c(1,3,6,10),2),c(1,3,5,6,10))
})

test_that("split_interval divides odd,odd intervals.", {
  expect_equal(split_interval(c(1,3,7,10),2),c(1,3,5,7,10))
})

test_that("interval number is less than length(ni)", {
  expect_error(split_interval(c(1,3,6,10),5))
})


# The following test does not work though an error is thrown.
#test_that("Should fail on too-narrow intervals.", {
#  expect_error(split_interval(c(1,3,4,10),2))
#})