From 8384a1d905c1674f49b15fa4cd9b2149b0dfaf75 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Florian=20G=C3=A4rber?= <florian.gaerber@uni-hamburg.de>
Date: Mon, 24 Jul 2023 12:54:40 +0200
Subject: [PATCH] test: Add extra test case for index.mean

---
 tests/testthat/test-meanAdjAgree_index.mean.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/testthat/test-meanAdjAgree_index.mean.R b/tests/testthat/test-meanAdjAgree_index.mean.R
index 21e9f93..b3e6dcb 100644
--- a/tests/testthat/test-meanAdjAgree_index.mean.R
+++ b/tests/testthat/test-meanAdjAgree_index.mean.R
@@ -4,6 +4,7 @@ test_that("mean.index always returns a numeric vector of length(index.variables)
       list(`1` = c(0.0, 0.5, 0.5, 0.5)),
       list(`1` = c(0.0, 0.6, 0.7, 0.8)),
       list(`5` = c(0.4, 0.0, 0.4, 0.4)),
+      list(`99` = c(0.1, 0.2, 0.1, 0.2)),
       list(`100` = c(0.9, 0.3, 0.0, 0.9)),
       list(`10000` = c(0.7, 0.8, 0.9, 0.0)),
       list(`5` = c(0.3, 0.0, 0.5, 0.6), `100` = c(0.7, 0.6, 0.0, 0.9))
-- 
GitLab