From 16d7f91ad0725527148822710ae0d53b17909522 Mon Sep 17 00:00:00 2001
From: Greg Lin <glin@rstudio.com>
Date: Mon, 9 Jan 2023 18:27:47 -0600
Subject: [PATCH] Add quick test for the custom HTTP user agent

---
 test/test.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/test.R b/test/test.R
index 360c9b1..8be20c1 100644
--- a/test/test.R
+++ b/test/test.R
@@ -101,3 +101,8 @@ if (getRversion() >= "3.5.0" && getRversion() < "4.0.0") {
 } else if (getRversion() >= "4.0.0") {
   stopifnot(has_pcre2 && !has_pcre1)
 }
+
+# Check that the custom HTTP user agent was configured
+if (!grepl(sprintf("^R/%s", getRversion()), getOption("HTTPUserAgent"))) {
+  stop("unexpected HTTPUserAgent")
+}