Add test with expanded without middle name

epiverse-connect · Dec 12, 2024 · f304b5c · f304b5c
1 parent 35af260
commit f304b5c
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-expand_names.R b/tests/testthat/test-expand_names.R
@@ -1,4 +1,15 @@
 test_that("expand_names() transforms matching names", {
+
+  # Expanded without middle name
+  expect_identical(
+    expand_names(
+      c("W Mozart", "Wolfgang Mozart"),
+      "Wolfgang Mozart"
+    ),
+    rep_len("Wolfgang Mozart", 2)
+  )
+
+  # Expanded ith middle name
   expect_identical(
     expand_names(
       c("W A Mozart", "Wolfgang Mozart", "Wolfgang A Mozart"),