From a9e5a19aee43737cda60e63d33fb84556a80fc34 Mon Sep 17 00:00:00 2001
From: YuviPanda <yuvipanda@gmail.com>
Date: Tue, 18 Feb 2025 13:42:01 -0800
Subject: [PATCH] Add a test for runtime.txt with full R version specified

Catching possible errors as reported in https://discourse.jupyter.org/t/error-in-mybinder-org-there-is-no-package-called-irkernel/32478/13.

The other tests only specify x.y, not x.y.z
---
 tests/r/r4.3.2-rspm/install.R   |  1 +
 tests/r/r4.3.2-rspm/runtime.txt |  1 +
 tests/r/r4.3.2-rspm/verify      | 13 +++++++++++++
 3 files changed, 15 insertions(+)
 create mode 100644 tests/r/r4.3.2-rspm/install.R
 create mode 100644 tests/r/r4.3.2-rspm/runtime.txt
 create mode 100755 tests/r/r4.3.2-rspm/verify

diff --git a/tests/r/r4.3.2-rspm/install.R b/tests/r/r4.3.2-rspm/install.R
new file mode 100644
index 00000000..f609959e
--- /dev/null
+++ b/tests/r/r4.3.2-rspm/install.R
@@ -0,0 +1 @@
+install.packages("digest")
diff --git a/tests/r/r4.3.2-rspm/runtime.txt b/tests/r/r4.3.2-rspm/runtime.txt
new file mode 100644
index 00000000..cdd616ea
--- /dev/null
+++ b/tests/r/r4.3.2-rspm/runtime.txt
@@ -0,0 +1 @@
+r-4.3.2-2024-01-10
diff --git a/tests/r/r4.3.2-rspm/verify b/tests/r/r4.3.2-rspm/verify
new file mode 100755
index 00000000..c5cb0ee8
--- /dev/null
+++ b/tests/r/r4.3.2-rspm/verify
@@ -0,0 +1,13 @@
+#!/usr/bin/env Rscript
+library('digest')
+
+# Fail if version is not 4.3
+print(version)
+if (!(version$major == "4" && version$minor == "3")) {
+  quit("yes", 1)
+}
+
+# The date we have chosen should give us an rspm mirror
+if (!(startsWith(options()$repos["CRAN"], "https://packagemanager.posit.co"))) {
+  quit("yes", 1)
+}