Skip tests when FreeType is too old

Rather than throwing errors in the middle of R CMD check

Author: lionel-

R/svg.R

@@ -15,13 +15,6 @@ get_aliases <- function() {
 }
 
 write_svg <- function(p, file, title, user_fonts) {
-  ver <- gdtools::version_freetype()
-  if (ver < "2.6") {
-    stop(call. = FALSE,
-      "vdiffr requires FreeType >= 2.6.0. Current version: ", ver
-    )
-  }
-
   user_fonts <- user_fonts %||% get_aliases()
   svglite::svglite(file, user_fonts = user_fonts)
   on.exit(grDevices::dev.off())

R/testthat-ui.R

@@ -38,6 +38,12 @@
 #' }
 expect_doppelganger <- function(title, fig, path = NULL, ...,
                                 user_fonts = NULL) {
+  ver <- gdtools::version_freetype()
+  if (ver < "2.6.0") {
+    msg <- paste("vdiffr requires FreeType >= 2.6.0. Current version:", ver)
+    testthat::skip(msg)
+  }
+
   fig_name <- str_standardise(title)
   testcase <- make_testcase_file(fig_name)
   write_svg(fig, testcase, title, user_fonts)