context("Testing crossover function")

test_that("crossover generates correct number of offspring", {
    selected_parents <- c(1, 3)
    offspring <- genetic.algo.optimizeR::crossover(selected_parents, offspring_size = 2)
    expect_equal(length(offspring), 2)
})

# test_that("crossover generates offspring with correct values", {
#   selected_parents <- c(1, 3)
#   offspring <- genetic.algo.optimizeR::crossover(selected_parents, offspring_size = 2)
#   expect_equal(sum(offspring), sum(selected_parents)) # Sum of offspring should be the sum of selected parents
# })