tests/testthat/test_zdt.R

In danielhorn/moobench: Multi Objective Optimization Benchmark Functions

context("zdt")

test_that("zdt1", {
  f = generateZDT(1, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(1, 10 * (1 - sqrt(0.1))))
})

test_that("zdt2", {
  f = generateZDT(2, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(1, 10 * (1 - 0.01)))
})

test_that("zdt3", {
  f = generateZDT(3, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(1, 10 * (1 - sqrt(0.1) - 0.1 * sin(10 * pi))))
})

test_that("zdt4", {
  f = generateZDT(4, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(1, 2 * (1 - sqrt(0.5))))
})

test_that("zdt5", {
  f = generateZDT(5, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(2, 1.5))
})

test_that("zdt6", {
  f = generateZDT(6, in.dim = 2L)
  value = f(c(1, 1))
  expect_equal(value, c(1, 10 * (1 - (0.1)^2)))
})