added test

Macaulay2 · Dec 18, 2024 · e43f119 · e43f119
1 parent 01d1d33
commit e43f119
Showing 1 changed file with 7 additions and 0 deletions.
diff --git 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