tests/testthat/test_benchmarks.R

library(testthat)
library(rmoea)

context("Benchmarks tests")

test_that("Quadratic benchmark test", {
  expect_equal(quadratic_benchmark_function(c(0, 0)), 0)
  expect_equal(quadratic_benchmark_function(c(5, -2)), 29)
})
jiripetrlik/r-multiobjective-evolutionary-algorithms documentation built on April 27, 2020, 12:12 p.m.