From: sof <unknown>
Date: Tue, 21 Sep 1999 09:00:46 +0000 (+0000)
Subject: [project @ 1999-09-21 09:00:46 by sof]
X-Git-Tag: Approximately_9120_patches~5754
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=014177667af8e6e893b7cfe192df0d87d586807d;p=ghc-hetmet.git

[project @ 1999-09-21 09:00:46 by sof]
Testing the sanity of Show on Addr
---

diff --git a/ghc/tests/lib/should_run/addr001.hs b/ghc/tests/lib/should_run/addr001.hs
new file mode 100644
index 0000000..89e49c4
--- /dev/null
+++ b/ghc/tests/lib/should_run/addr001.hs
@@ -0,0 +1,10 @@
+-- !!! Testing that Show for Addr is OK..
+module Main(main) where
+
+import Addr
+
+main :: IO ()
+main = do
+  print (intToAddr maxBound)
+  print (intToAddr minBound)
+