tests/testthat/test-knapsack_dynamic.R

In shaiq681/KnapSacked: An R Package to implement 'greedy search', 'brute-force search' and 'dynamic programming' on knapsack proble-set

context('Test Knapsack dynamic')

set.seed(42)
n <- 2000
knapsack_objects <- data.frame(
  w=sample(1:4000, size = n, replace = TRUE),
  v=runif(n = n, 0, 10000)
)

test_that('knapsack dynamic',{
  expect_equal(knapsack_dynamic(knapsack_objects[1:8,],3500)$value, 16770)
  expect_equal(knapsack_dynamic(knapsack_objects[1:8,],3500)$elements, c(5,8))
  expect_equal(knapsack_dynamic(knapsack_objects[1:12,],3500)$value, 16770)
  expect_equal(knapsack_dynamic(knapsack_objects[1:12,],3500)$elements, c(5,8))
  expect_equal(knapsack_dynamic(knapsack_objects[1:8,],2000)$value, 15428)
  expect_equal(knapsack_dynamic(knapsack_objects[1:8,],2000)$elements, c(3,8))
  expect_equal(knapsack_dynamic(knapsack_objects[1:12,],2000)$value, 15428)
  expect_equal(knapsack_dynamic(knapsack_objects[1:12,],2000)$elements, c(3,8))
})

test_that('knapsack dynamic',{
  expect_error(knapsack_dynamic(knapsack_objects,TRUE))
  expect_error(knapsack_dynamic(knapsack_objects,FALSE))
})

test_that('knapsack dynamic',{
  expect_error(knapsack_dynamic(c(1:00),10))
  expect_error(knapsack_dynamic(knapsack_objects,"x"))
  expect_error(knapsack_dynamic(c(1:00),10))
})

colnames(knapsack_objects) <- c("a","b")

test_that('knapsack dynamic',{
  expect_error(knapsack_dynamic(knapsack_objects,2000))
})

colnames(knapsack_objects) <- c("w","v")
knapsack_objects$w <- -100

test_that('knapsack dynamic',{
  expect_error(knapsack_dynamic(knapsack_objects,3500))
})