test_that("rsc unchanged when weights = NULL", {
	set.seed(1)
	p <- 10
	X <- matrix(rnorm(p * p), p)
	cv <- rsc_cv(X, ncores = 1)
	R1 <- rsc(cv)
	R2 <- rsc(cv, weights = NULL)
	expect_equal(R1, R2)
})

test_that("if given weights of all 1 of the right dimensions, rsc should be unchanged", {
	set.seed(1)
	p <- 10
	X <- matrix(rnorm(p * p), p)
	cv <- rsc_cv(X, ncores = 1)
	R1 <- rsc(cv)
	R2 <- rsc(cv, weights = matrix(data = 1, ncol = p, nrow = p))
	expect_equal(R1, R2)
})