From 4ea15ca1b524f51a3541ac97e70a96110cedc4eb Mon Sep 17 00:00:00 2001
From: Doug Torrance <dtorrance@piedmont.edu>
Date: Fri, 24 May 2024 08:54:55 -0400
Subject: [PATCH] Add unit test for variable deduplication w/ 3 duplicates

---
 M2/Macaulay2/tests/normal/monoids.m2 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/M2/Macaulay2/tests/normal/monoids.m2 b/M2/Macaulay2/tests/normal/monoids.m2
index 103f465e01e..29ff62a141b 100644
--- a/M2/Macaulay2/tests/normal/monoids.m2
+++ b/M2/Macaulay2/tests/normal/monoids.m2
@@ -230,6 +230,7 @@ assert(gens(B = A ** A) == {x_0,y_0,x_1,y_1}) -- TODO: eliminate the warning
 assert(gens(C = B ** B) == {x_(0,0),y_(0,0),x_(0,1),y_(0,1),x_(1,0),y_(1,0),x_(1,1),y_(1,1)})
 assert(toString gens(A ** B) == "{x, y, x_0, y_0, x_1, y_1}") -- TODO: not yet working without toString
 assert(toString gens(monoid[x,y,x,z]) == "{x_0, y, x_1, z}") -- TODO: not yet working without toString
+assert(toString gens(monoid[x,x,x]) == "{x_0, x_1, x_2}") -- issue #3261
 
 -- test ^** and runLengthEncode
 -- TODO: what should happen for odd powers?