fix test for non-UTF-8

R/strrep.R

@@ -0,0 +1,8 @@
+if (getRversion() < "3.3.0") {
+  strrep <- function(x, times) {
+    map_chr(
+      times,
+      function(n) paste(rep(x, n), collapse = "")
+    )
+  }
+}

tests/testthat/test-rules.R

@@ -166,6 +166,9 @@ test_that("get_line_char", {
 test_that("print.rule", {
   mockery::stub(rule, "console_width", 20)
   r <- rule("foo")
-  expect_output(print(r), rebox("── foo ─────────────"),
-                fixed = TRUE)
+  expect_output(
+    print(r),
+    paste(strrep(symbol$line, 2), "foo", strrep(symbol$line, 13)),
+    fixed = TRUE
+  )
 })