fix toString.LogEvent test

Author: s-fleck

tests/testthat/test_print_LogEvent.R

@@ -67,10 +67,14 @@ test_that("toString.LogEvent works as expected", {
     letters = letters
   )
 
-  toString(x)
+  expect_length(toString(x), 1L)
+  # just a rudimentary check because exact representation depends on console width
+  expect_match(toString(x), "level.*letters")
 })
 
 
+
+
 test_that("toString.LogEvent without custom fields does not end in whitespace", {
   event_without_field <- LogEvent$new(
     logger = lgr::lgr,