[add derived enum testing regression test
John Meacham <john@repetae.net>**20080324063054] addfile ./regress/tests/1_io/basic/enum.expected.stdout
hunk ./regress/tests/1_io/basic/enum.expected.stdout 1
+(False,True)
+(0,1)
+(False,True)
+Wednesday
+[10,9,8,7,6,5,4,3,2,1,0,-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12]
+[1,5,9,13]
+[100,93,86,79,72,65,58,51,44]
+(Sunday,Saturday)
+[Friday,Thursday,Wednesday,Tuesday,Monday,Sunday]
+[Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday]
+[Wednesday,Thursday,Friday,Saturday]
+[Wednesday,Thursday,Friday,Saturday]
+[Friday,Thursday,Wednesday,Tuesday,Monday,Sunday]
+[Monday,Tuesday,Wednesday,Thursday,Friday,Saturday]
+[Monday,Wednesday,Friday]
addfile ./regress/tests/1_io/basic/enum.hs
hunk ./regress/tests/1_io/basic/enum.hs 1
+
+import Data.Word
+
+data Day = Sunday | Monday | Tuesday | Wednesday | Thursday | Friday | Saturday
+    deriving(Eq,Ord,Enum,Show,Bounded)
+
+main = do
+    print (False,True)
+    print (fromEnum False, fromEnum True)
+    print (toEnum 0 :: Bool, toEnum 1 :: Bool)
+    print $ (toEnum 3 :: Day)
+    print [10 :: Int, 9 .. -12 ]
+    print [1, 5 :: Word8 .. 16 ]
+    print [100, 93 :: Word8 .. 43  ]
+    print (minBound :: Day,maxBound :: Day)
+    print [Friday, Thursday  .. ]
+    print [Sunday .. ]
+    print [Wednesday .. ]
+    print [Wednesday .. Saturday]
+    print [Friday, Thursday  .. ]
+    print [Monday, Tuesday  .. ]
+    print [Monday, Wednesday .. ]
+
+