add test

r-lib · Sep 29, 2014 · 6557e6a · 6557e6a
1 parent a612936
commit 6557e6a
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/tests/testthat/test-wrapFieldIfNecessary.R b/tests/testthat/test-wrapFieldIfNecessary.R
@@ -55,5 +55,11 @@ test_that("DESCRIPTION fields DO NOT get wrapped if no line exceeds the wrapping
   }
 )
 
-
-
+test_that("Infinity threshold turns off wrapping", {
+  poem <- paste(sample(letters, 1000, TRUE), collapse = "")
+  expect_equal(
+    wrap_field_if_necessary("LongPoem", poem, wrap.threshold = Inf),
+    paste("LongPoem:", poem)
+  )
+}
+)