From 87a2066d5216a1637ba003b0b815d5ce4d13e0fa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 10 Apr 2024 14:22:24 +0200
Subject: [PATCH] Avoid fancy quotes in test snapshots

---
 tests/testthat/_snaps/rc.md | 4 ++--
 tests/testthat/test-rc.R    | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/_snaps/rc.md b/tests/testthat/_snaps/rc.md
index df8fcb2..c3b1a76 100644
--- a/tests/testthat/_snaps/rc.md
+++ b/tests/testthat/_snaps/rc.md
@@ -144,11 +144,11 @@
     Output
       -- R CMD build -----------------------------------------------------------------
       * checking for file '<path> ... OK
-      * preparing ‘pkg’:
+      * preparing 'pkg':
       * checking DESCRIPTION meta-information ... OK
       * checking for LF line-endings in source and make files and shell scripts
       * checking for empty or unneeded directories
-      * building ‘pkg_0.0.0.9000.tar.gz’
+      * building 'pkg_0.0.0.9000.tar.gz'
       
       -- Confirmation ----------------------------------------------------------------
     Message
diff --git a/tests/testthat/test-rc.R b/tests/testthat/test-rc.R
index 25ab185..2938566 100644
--- a/tests/testthat/test-rc.R
+++ b/tests/testthat/test-rc.R
@@ -108,6 +108,8 @@ test_that("rc_submit", {
     )
     x <- gsub("\x91", "'", x, fixed = TRUE, useBytes = TRUE)
     x <- gsub("\x92", "'", x, fixed = TRUE, useBytes = TRUE)
+    x <- gsub("\xe2\x80\x98", "'", x, fixed = TRUE, useBytes = TRUE)
+    x <- gsub("\xe2\x80\x99", "'", x, fixed = TRUE, useBytes = TRUE)
     x
   })