diff --git a/tests/testthat/test-merge_expression_srv.R b/tests/testthat/test-merge_expression_srv.R
index bc6b43f8..2e922dde 100644
--- a/tests/testthat/test-merge_expression_srv.R
+++ b/tests/testthat/test-merge_expression_srv.R
@@ -30,7 +30,7 @@ adlb_data_extract_srv_output <-
     dataname = "ADLB",
     filters = NULL,
     select = c("AVAL", "CHG"),
-    keys = join_keys[["ADLB", "ADLB"]],
+    keys = join_keys[["ADLB"]][["ADLB"]],
     reshape = FALSE,
     internal_id = "adlb_extract"
   )