tests/testthat/test-my_knn_cv.R

In chen1649/mypackage: What the Package Does (One Line, Title Case)

test_that("output is a list", {
  data <- mypackage::my_penguins %>% drop_na()
  train <- data[3:6]
  cl <- data$species
  expect_type(my_knn_cv(train, cl, 1, 5), "list")
})

test_that("input is not dataframe", {
  expect_error(my_knn_cv("train", "cl", 1, 5))
})