[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 (file)
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)
+