From e43f119404dda0395af82e87bab7c46f2e8b4236 Mon Sep 17 00:00:00 2001
From: felixlotter <felixlotter@gmail.com>
Date: Wed, 18 Dec 2024 21:19:09 +0100
Subject: [PATCH] added test

---
 M2/Macaulay2/packages/gfanInterface.m2 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/M2/Macaulay2/packages/gfanInterface.m2 b/M2/Macaulay2/packages/gfanInterface.m2
index 52b209eb28..5ee09515fe 100644
--- a/M2/Macaulay2/packages/gfanInterface.m2
+++ b/M2/Macaulay2/packages/gfanInterface.m2
@@ -4445,6 +4445,13 @@ doc///
 	assert gfanConvertToNewRing(R)
 	///
 
+-- TEST gfanConvertToNewRing (cf. #3601)
+  TEST ///
+	R = QQ[x1];
+	gfanConvertToNewRing(R);
+	assert (ring x1 === R);
+	///
+
 	-- TEST gfanBuchberger
 	TEST ///
 	 equalMPL = (A,B) -> set transpose A === set transpose B