[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

+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]

ghc/tests/concurrent/should_run/conc013.stdout

+[LT,EQ,GT]