`sv` not equal to `sv2`.
Component "pair_copulas": Component 1: Component 2: Component 3: Mean relative difference: 0.6469093
Component "pair_copulas": Component 1: Component 4: Component 3: Mean relative difference: 0.6469093
Component "pair_copulas": Component 1: Component 6: Component 3: Mean relative difference: 0.6469093
Component "pair_copulas": Component 2: Component 1: Component 3: Mean relative difference: 0.01876874
Component "pair_copulas": Component 2: Component 3: Component 3: Mean relative difference: 0.01876874
Component "pair_copulas": Component 2: Component 5: Component 3: Mean relative difference: 0.01876874
Component "pair_copulas": Component 4: Component 1: Component 3: Mean relative difference: 0.2659101
Component "pair_copulas": Component 4: Component 3: Component 3: Mean relative difference: 0.2659101
Component "pair_copulas": Component 5: Component 2: Component 3: Mean relative difference: 0.6945855
...

expect_equal(unname(dim(svinecop_sim(10, 1, sv))), c(10, 1))
expect_equal(unname(dim(svinecop_sim(10, 1, sv, u))), c(10, 1))
expect_equal(unname(dim(svinecop_sim(10, 3, sv, u))), c(10, 1, 3))
expect_equal(unname(dim(svinecop_sim(10, 1, sv))), c(10, 2))
expect_equal(unname(dim(svinecop_sim(10, 1, sv, u))), c(10, 2))
expect_equal(unname(dim(svinecop_sim(10, 3, sv, u))), c(10, 2, 3))
expect_silent(svinecop(u, p = 1, type = "D"))
expect_silent(svinecop(u, p = 2, type = "M"))
expect_error(svinecop(u, p = 1, type = "R"))
# just check whether sim works with only one sample