incorporate another test scenario from @BlairCooper

ref #504

@BlairCooper wrote https://github.com/OuhscBbmc/REDCapR/pull/502/files

NEWS.md

@@ -89,7 +89,7 @@ This will help extract forms from longitudinal & repeating projects.
   * `validate_repeat_instance()`
   * `validate_no_logical()`
 * `redcap_read()` checks the `event` parameter and throws an error if a value is not recognized, or the project is not longitudinal (#493)
-* The regex in `regex_named_captures()` is forgiving if there's an unnecessary leading space (@BlairCooper, #495)
+* The regex in `regex_named_captures()` is forgiving if there's an unnecessary leading space (@BlairCooper, #495, #501)
 
 Version 1.1.0 (released 2022-08-10)
 ==========================================================

tests/testthat/test-metadata-utilities.R

@@ -110,6 +110,37 @@ test_that("checkbox choices -commas in labels", {
     expect_equal(ds_expected, label = "no trailing spaces:")
 })
 
+test_that("checkbox choices -digits only", {
+  ds_expected <- # datapasta::tribble_paste(ds_expected)
+    tibble::tribble(
+      ~id   , ~label,
+      "1"   , "1",
+      "2"   , "2",
+      "3"   , "3",
+      "4"   , "4"
+    )
+
+  # well-behaved
+  "1, 1 | 2, 2 | 3, 3 | 4, 4" |>
+    checkbox_choices() |>
+    expect_equal(ds_expected, label = "well-behaved:")
+
+  # missing leading space
+  "1, 1 | 2,2 | 3, 3 | 4, 4" |>
+    checkbox_choices() |>
+    expect_equal(ds_expected, label = "missing leading space:")
+
+  # missing trailing spaces
+  "1, 1 | 2, 2| 3, 3| 4, 4" |>
+    checkbox_choices() |>
+    expect_equal(ds_expected, label = "no leading spaces:")
+
+  # extra lines
+  "|1, 1 | 2, 2 | 3, 3 || 4, 4| |" |>
+    checkbox_choices() |>
+    expect_equal(ds_expected, label = "well-behaved:")
+})
+
 test_that("checkbox choices with special characters", {
   ds_expected <- # datapasta::tribble_paste(ds_expected)
     tibble::tribble(