From 983f86ef4185b3cfe0f4fe336a5d8351a72a77dc Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 25 Aug 1999 10:30:36 +0000
Subject: [PATCH] [project @ 1999-08-25 10:30:36 by simonmar] Little test for
 Eq and Ord instances of ThreadId.

---
 ghc/tests/concurrent/should_run/conc013.hs     | 10 ++++++++++
 ghc/tests/concurrent/should_run/conc013.stdout |  1 +
 2 files changed, 11 insertions(+)
 create mode 100644 ghc/tests/concurrent/should_run/conc013.hs
 create mode 100644 ghc/tests/concurrent/should_run/conc013.stdout

diff --git a/ghc/tests/concurrent/should_run/conc013.hs b/ghc/tests/concurrent/should_run/conc013.hs
new file mode 100644
index 000000000000..78c07a9884b6
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc013.hs
@@ -0,0 +1,10 @@
+module Main where
+
+-- !!! test Eq and Ord instances over thread Ids.
+
+import Concurrent
+
+main = do
+  tso1 <- forkIO (return ())
+  tso2 <- forkIO (return ())
+  print [compare tso1 tso2, compare tso1 tso1, compare tso2 tso1]
diff --git a/ghc/tests/concurrent/should_run/conc013.stdout b/ghc/tests/concurrent/should_run/conc013.stdout
new file mode 100644
index 000000000000..98ab9c11f290
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc013.stdout
@@ -0,0 +1 @@
+[LT,EQ,GT]
-- 
GitLab