as.character(a1) (`actual`) not equal to "yourGivenName yourFamilyName <yourEmail@email.com> [cre] (yourOrcidId)" (`expected`).

actual vs expected
- "yourGivenName yourFamilyName <yourEmail@email.com> [cre] (ORCID: yourOrcidId)"
+ "yourGivenName yourFamilyName <yourEmail@email.com> [cre] (yourOrcidId)"

testthat::expect_equal(as.character(a1), "yourGivenName yourFamilyName <yourEmail@email.com> [cre] (yourOrcidId)")
a2 <- construct_authors(authors = "Test 1, Test1")

"yourGivenName yourFamilyName <yourEmail@email.com> [cre] (yourOrcidId)"