Commit ce8120ff authored by simonmar's avatar simonmar
Browse files

[project @ 2002-07-24 08:45:37 by simonmar]

Update expected output after recent changes to Read:

  - spaces around '=' in record fields
  - (-a) % b is now printed correctly

MERGE TO STABLE
parent f36fd587
Options {s=SpecialOptions {test=42}}
Options {s=SpecialOptions {test=42}}
Options {s = SpecialOptions {test = 42}}
Options {s = SpecialOptions {test = 42}}
"Hash {(#)=3}"
Hash {(#)=3}
"Hash {(#) = 3}"
Hash {(#) = 3}
Permissions {readable=True, writable=True, executable=False, searchable=True}
Permissions {readable=True, writable=True, executable=False, searchable=False}
Permissions {readable=True, writable=True, executable=True, searchable=False}
Permissions {readable = True, writable = True, executable = False, searchable = True}
Permissions {readable = True, writable = True, executable = False, searchable = False}
Permissions {readable = True, writable = True, executable = True, searchable = False}
......@@ -174,16 +174,16 @@ Testing Enum Rational:
(succ (0::Rational)) = 1 % 1
(succ ((-1)::Rational)) = 0 % 1
pred (1::Rational) = 0 % 1
pred (0::Rational) = -1 % 1
(map (toEnum::Int->Rational) [1,minBound,maxBound]) = [1 % 1,-2147483648 % 1,2147483647 % 1]
pred (0::Rational) = (-1) % 1
(map (toEnum::Int->Rational) [1,minBound,maxBound]) = [1 % 1,(-2147483648) % 1,2147483647 % 1]
(map fromEnum [(1::Rational),42,45]) = [1,42,45]
(take 7 [(1::Rational)..]) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1,6 % 1,7 % 1]
(take 7 [(-5::Rational)..]) = [-5 % 1,-4 % 1,-3 % 1,-2 % 1,-1 % 1,0 % 1,1 % 1]
(take 7 [(-5::Rational)..]) = [(-5) % 1,(-4) % 1,(-3) % 1,(-2) % 1,(-1) % 1,0 % 1,1 % 1]
(take 7 [(1::Rational),2..]) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1,6 % 1,7 % 1]
(take 7 [(1::Rational),7..]) = [1 % 1,7 % 1,13 % 1,19 % 1,25 % 1,31 % 1,37 % 1]
(take 7 [(1::Rational),1..]) = [1 % 1,1 % 1,1 % 1,1 % 1,1 % 1,1 % 1,1 % 1]
(take 7 [(1::Rational),0..]) = [1 % 1,0 % 1,-1 % 1,-2 % 1,-3 % 1,-4 % 1,-5 % 1]
(take 7 [(5::Rational),2..]) = [5 % 1,2 % 1,-1 % 1,-4 % 1,-7 % 1,-10 % 1,-13 % 1]
(take 7 [(1::Rational),0..]) = [1 % 1,0 % 1,(-1) % 1,(-2) % 1,(-3) % 1,(-4) % 1,(-5) % 1]
(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])) = []
......@@ -199,20 +199,20 @@ Testing Enum (Ratio Int):
(succ (0::Ratio Int)) = 1 % 1
(succ ((-1)::Ratio Int)) = 0 % 1
pred (1::Ratio Int) = 0 % 1
pred (0::Ratio Int) = -1 % 1
(map (toEnum::Int->Ratio Int) [1,minBound,maxBound]) = [1 % 1,-2147483648 % 1,2147483647 % 1]
pred (0::Ratio Int) = (-1) % 1
(map (toEnum::Int->Ratio Int) [1,minBound,maxBound]) = [1 % 1,(-2147483648) % 1,2147483647 % 1]
(map fromEnum [(1::Ratio Int),42,45]) = [1,42,45]
(take 7 [(1::Ratio Int)..]) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1,6 % 1,7 % 1]
(take 7 [(-5::Ratio Int)..]) = [-5 % 1,-4 % 1,-3 % 1,-2 % 1,-1 % 1,0 % 1,1 % 1]
(take 7 [((toEnum ((maxBound::Int)-5))::Ratio Int)..]) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1,-2147483648 % 1]
(take 7 [(-5::Ratio Int)..]) = [(-5) % 1,(-4) % 1,(-3) % 1,(-2) % 1,(-1) % 1,0 % 1,1 % 1]
(take 7 [((toEnum ((maxBound::Int)-5))::Ratio Int)..]) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1,(-2147483648) % 1]
(take 7 [(1::Ratio Int),2..]) = [1 % 1,2 % 1,3 % 1,4 % 1,5 % 1,6 % 1,7 % 1]
(take 7 [(1::Ratio Int),7..]) = [1 % 1,7 % 1,13 % 1,19 % 1,25 % 1,31 % 1,37 % 1]
(take 7 [(1::Ratio Int),1..]) = [1 % 1,1 % 1,1 % 1,1 % 1,1 % 1,1 % 1,1 % 1]
(take 7 [(1::Ratio Int),0..]) = [1 % 1,0 % 1,-1 % 1,-2 % 1,-3 % 1,-4 % 1,-5 % 1]
(take 7 [(5::Ratio Int),2..]) = [5 % 1,2 % 1,-1 % 1,-4 % 1,-7 % 1,-10 % 1,-13 % 1]
(take 7 [x, x-1 ..]) = [-2147483647 % 1,-2147483648 % 1,2147483647 % 1,2147483646 % 1,2147483645 % 1,2147483644 % 1,2147483643 % 1]
(take 7 [x, x-1 ..]) = [-2147483643 % 1,-2147483644 % 1,-2147483645 % 1,-2147483646 % 1,-2147483647 % 1,-2147483648 % 1,2147483647 % 1]
(take 7 [x, (x+1) ..]) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1,-2147483648 % 1]
(take 7 [(1::Ratio Int),0..]) = [1 % 1,0 % 1,(-1) % 1,(-2) % 1,(-3) % 1,(-4) % 1,(-5) % 1]
(take 7 [(5::Ratio Int),2..]) = [5 % 1,2 % 1,(-1) % 1,(-4) % 1,(-7) % 1,(-10) % 1,(-13) % 1]
(take 7 [x, x-1 ..]) = [(-2147483647) % 1,(-2147483648) % 1,2147483647 % 1,2147483646 % 1,2147483645 % 1,2147483644 % 1,2147483643 % 1]
(take 7 [x, x-1 ..]) = [(-2147483643) % 1,(-2147483644) % 1,(-2147483645) % 1,(-2147483646) % 1,(-2147483647) % 1,(-2147483648) % 1,2147483647 % 1]
(take 7 [x, (x+1) ..]) = [2147483642 % 1,2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1,(-2147483648) % 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])) = []
......@@ -227,4 +227,4 @@ Testing Enum (Ratio Int):
(take 7 [(2::Ratio Int),1..1]) = [2 % 1,1 % 1]
(take 7 [(2::Ratio Int),3..1]) = []
(take 7 [x,(x+1)..y]) = [2147483643 % 1,2147483644 % 1,2147483645 % 1,2147483646 % 1,2147483647 % 1]
(take 7 [x,(x-1)..y]) = [-2147483643 % 1,-2147483644 % 1,-2147483645 % 1,-2147483646 % 1,-2147483647 % 1,-2147483648 % 1]
(take 7 [x,(x-1)..y]) = [(-2147483643) % 1,(-2147483644) % 1,(-2147483645) % 1,(-2147483646) % 1,(-2147483647) % 1,(-2147483648) % 1]
[0 % 1,0 % 1,0 % 1,2 % 1,2 % 1,-2 % 1,-2 % 1,22 % 7,1 % 5000]
[0 % 1,0 % 1,0 % 1,2 % 1,2 % 1,(-2) % 1,(-2) % 1,22 % 7,1 % 5000]
[0,0,0,2,2,-2,-2,22,1,1,1,1,1,1,1,1,7,5000]
[0 % 1,0 % 1,0 % 1,2 % 1,2 % 1,-2 % 1,-2 % 1,22 % 7,1 % 5000]
[0 % 1,0 % 1,0 % 1,2 % 1,2 % 1,(-2) % 1,(-2) % 1,22 % 7,1 % 5000]
[0,0,0,2,2,-2,-2,22,1,1,1,1,1,1,1,1,7,5000]
......@@ -594,9 +594,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......@@ -2047,9 +2047,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......@@ -3500,9 +3500,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......@@ -4953,9 +4953,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......@@ -6406,9 +6406,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......@@ -13668,9 +13668,9 @@ negate 2 = -2
negate 3 = -3
#
testReal
toRational -3 = -3 % 1
toRational -2 = -2 % 1
toRational -1 = -1 % 1
toRational -3 = (-3) % 1
toRational -2 = (-2) % 1
toRational -1 = (-1) % 1
toRational 0 = 0 % 1
toRational 1 = 1 % 1
toRational 2 = 2 % 1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment