From c998b9a2b07cdd4c5db04a38d709fc02ce522160 Mon Sep 17 00:00:00 2001
From: Neal Richardson <neal.p.richardson@gmail.com>
Date: Fri, 5 Apr 2024 10:10:32 -0400
Subject: [PATCH] Truncate mock paths to fit within R CMD check limits

---
 .../__api__/v1/content-cb9071.json               |  0
 .../v1/content/f2f37341.json}                    |  0
 .../v1/content/f2f37341}/permissions.json        |  0
 .../v1/content/f2f37341}/permissions/94.json     |  0
 .../__api__/v1/users-990342.json                 |  0
 .../__api__/v1/users-a48327.json                 |  0
 .../__api__/v1/users-b1ca4b.json                 |  0
 .../v1/users/20a79ce3.json}                      |  0
 tests/testthat/setup.R                           | 16 ++++++++++++++++
 9 files changed, 16 insertions(+)
 rename tests/testthat/{connect.example => }/__api__/v1/content-cb9071.json (100%)
 rename tests/testthat/{connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066.json => __api__/v1/content/f2f37341.json} (100%)
 rename tests/testthat/{connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066 => __api__/v1/content/f2f37341}/permissions.json (100%)
 rename tests/testthat/{connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066 => __api__/v1/content/f2f37341}/permissions/94.json (100%)
 rename tests/testthat/{connect.example => }/__api__/v1/users-990342.json (100%)
 rename tests/testthat/{connect.example => }/__api__/v1/users-a48327.json (100%)
 rename tests/testthat/{connect.example => }/__api__/v1/users-b1ca4b.json (100%)
 rename tests/testthat/{connect.example/__api__/v1/users/20a79ce3-6e87-4522-9faf-be24228800a4.json => __api__/v1/users/20a79ce3.json} (100%)

diff --git a/tests/testthat/connect.example/__api__/v1/content-cb9071.json b/tests/testthat/__api__/v1/content-cb9071.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/content-cb9071.json
rename to tests/testthat/__api__/v1/content-cb9071.json
diff --git a/tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066.json b/tests/testthat/__api__/v1/content/f2f37341.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066.json
rename to tests/testthat/__api__/v1/content/f2f37341.json
diff --git a/tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066/permissions.json b/tests/testthat/__api__/v1/content/f2f37341/permissions.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066/permissions.json
rename to tests/testthat/__api__/v1/content/f2f37341/permissions.json
diff --git a/tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066/permissions/94.json b/tests/testthat/__api__/v1/content/f2f37341/permissions/94.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066/permissions/94.json
rename to tests/testthat/__api__/v1/content/f2f37341/permissions/94.json
diff --git a/tests/testthat/connect.example/__api__/v1/users-990342.json b/tests/testthat/__api__/v1/users-990342.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/users-990342.json
rename to tests/testthat/__api__/v1/users-990342.json
diff --git a/tests/testthat/connect.example/__api__/v1/users-a48327.json b/tests/testthat/__api__/v1/users-a48327.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/users-a48327.json
rename to tests/testthat/__api__/v1/users-a48327.json
diff --git a/tests/testthat/connect.example/__api__/v1/users-b1ca4b.json b/tests/testthat/__api__/v1/users-b1ca4b.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/users-b1ca4b.json
rename to tests/testthat/__api__/v1/users-b1ca4b.json
diff --git a/tests/testthat/connect.example/__api__/v1/users/20a79ce3-6e87-4522-9faf-be24228800a4.json b/tests/testthat/__api__/v1/users/20a79ce3.json
similarity index 100%
rename from tests/testthat/connect.example/__api__/v1/users/20a79ce3-6e87-4522-9faf-be24228800a4.json
rename to tests/testthat/__api__/v1/users/20a79ce3.json
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
index 07b642cb..a15eea34 100644
--- a/tests/testthat/setup.R
+++ b/tests/testthat/setup.R
@@ -1 +1,17 @@
 library(httptest)
+
+set_requester(
+  function(r) {
+    gsub_request(
+      gsub_request(
+        r,
+        # Prune the fake domain
+        "https\\://connect.example/",
+        ""
+      ),
+      # Truncate GUIDs to 8 characters
+      "([0-9a-f]{8})\\-[0-9a-f\\-]{27}",
+      "\\1"
+    )
+  }
+)