From 3aa161409e1f7a5560fa799d953d9705ccd65ef1 Mon Sep 17 00:00:00 2001
From: MartinSchobben <schobbenmartin@gmail.com>
Date: Thu, 16 Nov 2023 07:38:42 +0100
Subject: [PATCH] hide date snapshots

---
 inst/httptest2/redact.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/inst/httptest2/redact.R b/inst/httptest2/redact.R
index 21a9869c..01fc2eb3 100644
--- a/inst/httptest2/redact.R
+++ b/inst/httptest2/redact.R
@@ -3,6 +3,9 @@ function (response) {
   # mask host in headers
   response$url <- gsub(rirods:::find_irods_file("host"), "", response$url, fixed = TRUE)
 
+  # mask dates in headers
+  response$headers$Date <- ""
+
   # change body upon PUT when type is raw (`iput()` and `isaverds()`)
   type_body <- try(response$body$type, silent = TRUE)
   if (!inherits(type_body, "try-error") && !is.null(type_body) && type_body == "raw" && response$method == "PUT") {