tests/testthat/test.get_initial_locations.R

In jhoffjann/nmmso.R: R Implementation of the NMMSO algorithm

# context("get initial locations")
# # test_that("get_initial_locations",{
# # 	mn = 1
# # 	mx = 1
# # 	test = runif(1)
# # 	result = get_initial_locations(list(), mn, mx)
# # 	expect_true(length(result$swarms[[1]]$new_location) == length(test))
# # 	expect_true(!(is.na(result$swarms[[1]]$new_location)))
# # 	expect_true(result$swarms_changed[1] == 1)
# # })