test_that("type", {
  expect_true(is.matrix(qcov(c(1:10),c(0.25, 0.5, 0.75))$cov))
})


test_that("variance", {
  expect_true(
  all.equal(qcov(c(1:10), c(0.25, 0.25))$cov[1,1],
            qcov(c(1:10), c(0.25, 0.25))$cov[1,2],
            qcov(c(1:10), c(0.25, 0.25))$cov[2,1],
            qcov(c(1:10), c(0.25, 0.25))$cov[2,2],
            qcov(c(1:10), c(0.25))$cov[1,1]))
  expect_equal(as.numeric(qcov(rep(1,10),0.25)), 0)
})