From d75c0079ad1ef2e52a835503063fb0cbae799cc3 Mon Sep 17 00:00:00 2001
From: YuviPanda <yuvipanda@gmail.com>
Date: Tue, 4 Jan 2022 19:17:06 +0530
Subject: [PATCH] Test that older r snapshots get MRAN

---
 tests/r/r4.0/verify | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/r/r4.0/verify b/tests/r/r4.0/verify
index cef74b93..37009309 100755
--- a/tests/r/r4.0/verify
+++ b/tests/r/r4.0/verify
@@ -6,3 +6,8 @@ print(version)
 if (!(version$major == "4" && as.double(version$minor) >= 0 && as.double(version$minor) < 1)) {
   quit("yes", 1)
 }
+
+# The date we have chosen should give us an MRAN mirror
+if (!grepl("https://mran.microsoft.com", options()$CRAN, fixed=TRUE)) {
+  quit("yes", 1)
+}