tests/testthat/test-my_knn_cv.R

#within test-my_knn_cv.R
test_that("my_knn_cv outputs a list", {
  expect_is(my_knn_cv(train = iris[, -5], cl = iris$Species, 1, 5), "list")
})
test_that("non-list input throws error", {
  expect_error(my_knn_cv("a string"))
})
carldmyers/PROJECT3 documentation built on March 25, 2020, 12:11 a.m.