ex_case1 <- consec_angles(vec = sort(rnorm(10), decreasing = TRUE),
                          range = c(1:10), drop_tol = 0.7, range_tol = 8)

testthat::test_that("Correct output object.", {
  testthat::expect_equal(is.numeric(ex_case1), TRUE)
  testthat::expect_equal(length(ex_case1), 1)
})
testthat::test_that("Incorrect input argument values.", {
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE),
                             range = c(1:9), drop_tol = 0.7, range_tol = 8),
               "The 2 parameters must be vectors of the same length.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(9), decreasing = TRUE),
                             range = c(1:10), drop_tol = 0.7, range_tol = 8),
               "The 2 parameters must be vectors of the same length.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(3), decreasing = TRUE),
                             range = c(1:3), drop_tol = 0.7, range_tol = 8),
               "Input arguments should be vectors of length at least equal to 4.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE),
                             range = rep('hi', 10), drop_tol = 0.7, range_tol = 8),
               "Input arguments should be vectors of class 'numeric'.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = rep('hi', 10),
                             range = c(1:10), drop_tol = 0.7, range_tol = 8),
               "Input arguments should be vectors of class 'numeric'.", fixed = TRUE)
  testthat::expect_error(elbow_angle(vec = sort(rnorm(10), decreasing = FALSE), range = c(1:10)),
               "Vector of values should consist of decreasing values.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = rnorm(10), range = c(1:10),
                             drop_tol = 0.7, range_tol = 8),
               "Vector of values should consist of decreasing values.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE), range = c(1:9, 9),
                             drop_tol = 0.7, range_tol = 8),
               "Range vector should consist of strictly increasing unique values.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE), range = c(1:9, 0),
                             drop_tol = 0.7, range_tol = 8),
               "Range vector should consist of strictly increasing unique values.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE), range = c(1:9, 8),
                             drop_tol = 0.7, range_tol = 8),
               "Range vector should consist of strictly increasing unique values.", fixed = TRUE)
  testthat::expect_error(consec_angles(vec = sort(rnorm(10), decreasing = TRUE), range = c(1:9, -9),
                             drop_tol = 0.7, range_tol = 8),
               "Range vector should consist of strictly increasing unique values.", fixed = TRUE)
})