Improve layout of log file

Author: lionel-

R/utils.R

@@ -97,13 +97,14 @@ svg_files_lines <- function(case, pkg_path = NULL) {
 
   chr_lines(
     glue(
-      ">>> Failed doppelganger: { case$name } <<<
-       >>> Original SVG:"
+      ">> Failed doppelganger: { case$name }
+       > Original SVG:"
     ),
     readLines(original_path),
-    ">>> Testcase SVG:",
+    "",
+    "> Testcase SVG:",
     readLines(case$testcase),
-    "<<<"
+    ""
   )
 }
 from_test_dir <- function(pkg_path, path) {

tests/testthat/test-expectations.R

@@ -24,8 +24,3 @@ test_that("Doppelgangers pass", {
   expect_is(ggplot_result, "expectation_success")
   expect_is(base_result, "expectation_success")
 })
-
-test_that("Verbose outputs svg files", {
-  output <- mock_cases_outputs$output
-  expect_true(grepl(">>> Failed doppelganger: myplot", output))
-})

tests/testthat/test-mismatch.R

@@ -7,7 +7,12 @@ test_that("failures are pushed to log file", {
 
   log <- readLines(file.path(mock_pkg_dir, "tests", "vdiffr.fail"))
 
-  n_logged <- length(grep(">>> Failed doppelganger:", log))
+  n_logged <- length(grep(">> Failed doppelganger:", log))
   n_failures <- length(keep(mock_cases, inherits, "mismatch_case"))
   expect_identical(n_logged, n_failures)
 })
+
+test_that("Verbose outputs svg files", {
+  output <- mock_cases_outputs$output
+  expect_true(grepl(">> Failed doppelganger: myplot", output))
+})