test(Topic): Add failing test for #3646: Inconsistent message ordering across subscribers on concurrent publishers

core/shared/src/test/scala/fs2/concurrent/TopicSuite.scala

@@ -186,6 +186,36 @@ class TopicSuite extends Fs2Suite {
     TestControl.executeEmbed(program) // will fail if program is deadlocked
   }
 
+  // https://github.com/typelevel/fs2/issues/3646
+  test(
+    "all subscribers should receive messages in the same order, even on concurrent publishers".flaky
+  ) {
+    val nSubscribers = 100
+    val check =
+      Topic[IO, String]
+        .flatMap { t =>
+          t.subscribeAwaitUnbounded.replicateA(nSubscribers).use { subs =>
+            IO.both(t.publish1("foo"), t.publish1("bar")) // racing two publishers
+              .flatMap {
+                case (Right(()), Right(())) =>
+                  subs
+                    .traverse(s => s.take(2).compile.toList)
+                    .map {
+                      case xs :: xss =>
+                        // all subscriptions must have received the events in the same order
+                        xss.foreach(ys => assertEquals(ys, xs))
+                      case Nil =>
+                        fail(s"Impossible, there are $nSubscribers subscribers")
+                    }
+                case _ =>
+                  fail("There's no reason for either publish1 to reject the publication")
+              }
+          }
+        }
+
+    check.replicateA(10000)
+  }
+
   // https://github.com/typelevel/fs2/issues/3644
   test(
     "when publish1 returns success, subscribers must receive the event, even if the publish1 races with close".fail