diff --git a/tests/testthat/test-txt_wrap.R b/tests/testthat/test-txt_wrap.R
index 2ebfd6355..b557264a8 100644
--- a/tests/testthat/test-txt_wrap.R
+++ b/tests/testthat/test-txt_wrap.R
@@ -282,6 +282,7 @@ test_that("toString wrapping avoid trimming whitespaces", {
 })
 
 test_that("toString and wrapping cooperates well with separator divisors", {
+  # Fixes #221
   testdf <- iris[seq_len(5), seq_len(2)]
   rownames(testdf) <- paste("State ", LETTERS[seq_len(nrow(testdf))])
   bmf <- basic_matrix_form(testdf)