[project @ 1999-05-07 14:52:49 by simonm]

[ghc-hetmet.git] / ghc / tests / lib / should_run / enum01.stdout

diff --git a/ghc/tests/lib/should_run/enum01.stdout b/ghc/tests/lib/should_run/enum01.stdout
index 79f5f2a..6b4538e 100644 (file)
--- a/ghc/tests/lib/should_run/enum01.stdout
+++ b/ghc/tests/lib/should_run/enum01.stdout
@@ -19,10 +19,10 @@ Testing Enum Int:
     (take 7 [x, (x+1) ..]) = [2147483642,2147483643,2147483644,2147483645,2147483646,2147483647]
     (take 7 ([(1::Int) .. 5])) = [1,2,3,4,5]
     (take 4 ([(1::Int) .. 1])) = [1]
-    (take 7 ([(1::Int) .. 0])) = [1,0]
-    (take 7 ([(5::Int) .. 0])) = [5,4,3,2,1,0]
+    (take 7 ([(1::Int) .. 0])) = []
+    (take 7 ([(5::Int) .. 0])) = []
     (take 7 ([(maxBound-(5::Int)) .. maxBound])) = [2147483642,2147483643,2147483644,2147483645,2147483646,2147483647]
-    (take 7 ([(minBound+(5::Int)) .. minBound])) = [-2147483643,-2147483644,-2147483645,-2147483646,-2147483647,-2147483648]
+    (take 7 ([(minBound+(5::Int)) .. minBound])) = []
     (take 7 [(5::Int),4..1]) = [5,4,3,2,1]
     (take 7 [(5::Int),3..1]) = [5,3,1]
     (take 7 [(5::Int),3..2]) = [5,3]
@@ -48,8 +48,8 @@ Testing Enum Integer:
     (take 7 [(5::Integer),2..]) = [5,2,-1,-4,-7,-10,-13]
     (take 7 ([(1::Integer) .. 5])) = [1,2,3,4,5]
     (take 4 ([(1::Integer) .. 1])) = [1]
-    (take 7 ([(1::Integer) .. 0])) = [1,0]
-    (take 7 ([(5::Integer) .. 0])) = [5,4,3,2,1,0]
+    (take 7 ([(1::Integer) .. 0])) = []
+    (take 7 ([(5::Integer) .. 0])) = []
     (take 7 [(5::Integer),4..1]) = [5,4,3,2,1]
     (take 7 [(5::Integer),3..1]) = [5,3,1]
     (take 7 [(5::Integer),3..2]) = [5,3]
@@ -79,10 +79,10 @@ Testing Enum Char:
     (take 7 ['\250', '\251' ..]) = "\250\251\252\253\254\255"
     (take 7 (['a' .. 'e'])) = "abcde"
     (take 4 (['a' .. 'a'])) = "a"
-    (take 7 (['b' .. 'a'])) = "ba"
-    (take 7 (['e' .. 'a'])) = "edcba"
+    (take 7 (['b' .. 'a'])) = ""
+    (take 7 (['e' .. 'a'])) = ""
     (take 7 (['\250' .. '\255'])) = "\250\251\252\253\254\255"
-    (take 7 (['\5' .. '\0'])) = "\ENQ\EOT\ETX\STX\SOH\NUL"
+    (take 7 (['\5' .. '\0'])) = ""
     (take 7 ['f','e' .. 'b']) = "fedcb"
     (take 7 ['g','e' .. 'b']) = "gec"
     (take 7 ['g','d' .. 'c']) = "gd"
@@ -131,8 +131,8 @@ Testing Enum Ordering (derived):
     ([LT .. GT]) = [LT,EQ,GT]
     ([LT .. EQ]) = [LT,EQ]
     ([LT .. LT]) = [LT]
-    ([GT .. LT]) = [GT,EQ,LT]
-    ([GT .. EQ]) = [GT,EQ]
+    ([GT .. LT]) = []
+    ([GT .. EQ]) = []
     ([GT .. GT]) = [GT]
     ([LT,EQ .. GT]) = [LT,EQ,GT]
     ([GT,EQ .. LT]) = [GT,EQ,LT]
@@ -161,7 +161,7 @@ Testing Enum Bool:
     (take 7 ([False,False ..])) = [False,False,False,False,False,False,False]
     (take 7 ([True,True ..])) = [True,True,True,True,True,True,True]
     ([False .. True]) = [False,True]
-    ([True .. False]) = [True,False]
+    ([True .. False]) = []
     take 7 ([False,False .. False]) = [False,False,False,False,False,False,False]
     take 7 ([False,False .. True]) = [False,False,False,False,False,False,False]
     take 7 ([False,True .. False]) = [False]
@@ -186,8 +186,8 @@ Testing Enum Rational:
     (take 7 [(5::Rational),2..]) = [5 % 1,2 % 1,-1 % 1,-4 % 1,-7 % 1,-10 % 1,-13 % 1]
     (take 7 ([(1::Rational) .. 5])) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1]
     (take 4 ([(1::Rational) .. 1])) = [1 % 1]
-    (take 7 ([(1::Rational) .. 0])) = [1 % 1,0 % 1]
-    (take 7 ([(5::Rational) .. 0])) = [5 % 1,4 % 1,3 % 1,2 % 1,1 % 1,0 % 1]
+    (take 7 ([(1::Rational) .. 0])) = []
+    (take 7 ([(5::Rational) .. 0])) = []
     (take 7 [(5::Rational),4..1]) = [5 % 1,4 % 1,3 % 1,2 % 1,1 % 1]
     (take 7 [(5::Rational),3..1]) = [5 % 1,3 % 1,1 % 1]
     (take 7 [(5::Rational),3..2]) = [5 % 1,3 % 1]
@@ -215,10 +215,10 @@ Testing Enum (Ratio Int):
     (take 7 [x, (x+1) ..]) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1]
     (take 7 ([(1::Ratio Int) .. 5])) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1]
     (take 4 ([(1::Ratio Int) .. 1])) = [1 % 1]
-    (take 7 ([(1::Ratio Int) .. 0])) = [1 % 1,0 % 1]
-    (take 7 ([(5::Ratio Int) .. 0])) = [5 % 1,4 % 1,3 % 1,2 % 1,1 % 1,0 % 1]
+    (take 7 ([(1::Ratio Int) .. 0])) = []
+    (take 7 ([(5::Ratio Int) .. 0])) = []
     (take 7 ([x..y])) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1]
-    (take 7 ([x..y])) = [-2147483643 % 1,-2147483644 % 1,-2147483645 % 1,-2147483646 % 1,-2147483647 % 1,-2147483648 % 1]
+    (take 7 ([x..y])) = []
     (take 7 [(5::Ratio Int),4..1]) = [5 % 1,4 % 1,3 % 1,2 % 1,1 % 1]
     (take 7 [(5::Ratio Int),3..1]) = [5 % 1,3 % 1,1 % 1]
     (take 7 [(5::Ratio Int),3..2]) = [5 % 1,3 % 1]