context("utils functions")

test_that("Helper function to split indices work properly",
{
	indices <- 1:400

	# bigger nb_per_set than length(indices)
	expect_equal(epclust:::.splitIndices(indices,500), list(indices))

	# nb_per_set == length(indices)
	expect_equal(epclust:::.splitIndices(indices,400), list(indices))

	# length(indices) %% nb_per_set == 0
	expect_equal(epclust:::.splitIndices(indices,200),
		c( list(indices[1:200]), list(indices[201:400]) ))
	expect_equal(epclust:::.splitIndices(indices,100),
		c( list(indices[1:100]), list(indices[101:200]),
			list(indices[201:300]), list(indices[301:400]) ))

	# length(indices) / nb_per_set == 1, length(indices) %% nb_per_set == 100
	expect_equal(epclust:::.splitIndices(indices,300), list(indices))
	# length(indices) / nb_per_set == 2, length(indices) %% nb_per_set == 42
	repartition <- epclust:::.splitIndices(indices,179)
	expect_equal(length(repartition), 2)
	expect_equal(length(repartition[[1]]), 179 + 21)
	expect_equal(length(repartition[[1]]), 179 + 21)
})

test_that("curvesToContribs output correct results",
{
#	curvesToContribs(...)
})