Clarify test rationale

billdenney · Sep 13, 2021 · ce4efef · ce4efef
1 parent 1f3f033
commit ce4efef
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-standardize_ids.R b/tests/testthat/test-standardize_ids.R
@@ -59,6 +59,7 @@ test_that("standardize_sdtm_id alternate paths", {
     standardize_sdtm_id(data=data.frame(STUDYID="A", SUBJID="B", USUBJID=NA_character_), allow_missing_id=TRUE),
     data.frame(STUDYID="A", USUBJID=NA_character_, SUBJID=c("B"))
   )
+  # Do not create "[STUDYID]-NA" values for USUBJID
   expect_equal(
     standardize_sdtm_id(data=data.frame(STUDYID="A", SUBJID=c("B", NA_character_)), allow_missing_id=TRUE),
     data.frame(STUDYID="A", USUBJID=c("A-B", NA_character_), SUBJID=c("B", NA_character_))