tests/testthat/test-unit-utils.R

In birdnetR: Deep Learning for Automated (Bird) Sound Identification

test_that("is_valid_species_list correctly validates species lists", {
  # Valid cases:
  # Character vector of species names
  expect_true(is_valid_species_list(c("species1", "species2")))
  # A list of character strings
  expect_true(is_valid_species_list(list("species1", "species2")))

  # Invalid cases:
  # Numeric vector
  expect_false(is_valid_species_list(c(1, 2, 3)))
  # Named list of non-character elements
  expect_false(is_valid_species_list(list(a = 1, b = 2)))
  # Empty vector
  expect_false(is_valid_species_list(character(0)))
  # Empty list
  expect_false(is_valid_species_list(list()))
  # List of character vectors with length > 1
  expect_false(is_valid_species_list(list(c("species1", "species2"))))
  # NULL
  expect_false(is_valid_species_list(NULL))
})