diff options
Diffstat (limited to 'testsuite/tests')
8 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/eyeball/inline2.hs b/testsuite/tests/eyeball/inline2.hs index ec9b65644a..e77e815414 100644 --- a/testsuite/tests/eyeball/inline2.hs +++ b/testsuite/tests/eyeball/inline2.hs @@ -35,6 +35,6 @@ The reason was this: i = I# x Being an unboxed value, we were treating the argument context of x -as intersting, and hence inlining x in the arg of I#. But then we just +as interesting, and hence inlining x in the arg of I#. But then we just float it out again, giving an infinite loop. -} diff --git a/testsuite/tests/indexed-types/should_compile/CoTest3.hs b/testsuite/tests/indexed-types/should_compile/CoTest3.hs index d57e58c822..b9a825d251 100644 --- a/testsuite/tests/indexed-types/should_compile/CoTest3.hs +++ b/testsuite/tests/indexed-types/should_compile/CoTest3.hs @@ -4,7 +4,7 @@ {-# LANGUAGE GADTs #-} -- This test uses the PushC rule of the System FC operational semantics --- Writen by Tom Schrijvers +-- Written by Tom Schrijvers module CoTest3 where diff --git a/testsuite/tests/programs/andy_cherry/Interp.hs b/testsuite/tests/programs/andy_cherry/Interp.hs index 7d33e896cf..e323dc34f7 100644 --- a/testsuite/tests/programs/andy_cherry/Interp.hs +++ b/testsuite/tests/programs/andy_cherry/Interp.hs @@ -94,7 +94,7 @@ getCurrColour `thenP` \ col -> let invert Black r = r -- because the move has *already* happend - invert _ "0.00" = "0.00" -- dont negate 0 + invert _ "0.00" = "0.00" -- don't negate 0 invert _ ('-':r) = r invert _ r = '-':r in diff --git a/testsuite/tests/programs/andy_cherry/andy_cherry.stdout b/testsuite/tests/programs/andy_cherry/andy_cherry.stdout index 8cb61fe7b3..da1bf8c8bd 100644 --- a/testsuite/tests/programs/andy_cherry/andy_cherry.stdout +++ b/testsuite/tests/programs/andy_cherry/andy_cherry.stdout @@ -7076,7 +7076,7 @@ white scored a decisive victory. \end{tabular}}| \end{center} |13.~h3, Bh5; 14.~Nbd2, Rfd8; 15.~Nb3, Qd6; 16.~Qe2, Rab8; 17.~Red1| -Fritz is deperate to put h3, but I dont see why. +Fritz is desperate to put h3, but I don't see why. \begin{center}| {\bf\begin{tabular}{rp{50pt}p{50pt}} 13 & \ldots & Nh5\\ diff --git a/testsuite/tests/programs/andy_cherry/mygames.pgn b/testsuite/tests/programs/andy_cherry/mygames.pgn index 742e03bbc9..697b4d66f0 100644 --- a/testsuite/tests/programs/andy_cherry/mygames.pgn +++ b/testsuite/tests/programs/andy_cherry/mygames.pgn @@ -1299,7 +1299,7 @@ like Game 7 of the Short-Kasparov WC, where Kasparov as white scored a decisive victory.}) 8... Bg4 9. d3 h6 10. Be3 O-O (10... Bxe3 11. Rxe3 O-O 12. a4 b4 13. h3 Bh5 14. Nbd2 Rb8 {=}) 11. Bxc5 dxc5 12. Bc2 Qd7 13. Nbd2 (13. h3 Bh5 14. Nbd2 Rfd8 15. Nb3 Qd6 16. Qe2 Rab8 17. Red1 { -Fritz is deperate to put h3, but I dont see why.}) 13... Nh5 {} (13... +Fritz is desperate to put h3, but I don't see why.}) 13... Nh5 {} (13... Rad8 {is an idea.}) 14. Nb3 (14. h3 {<saw>,0.33 I now agree with this, because the knight block the h5 retreat square.}) 14... Nf4 {?} (14... Qd6 15. h3 Be6 16. Ng5 Bxb3 17. axb3 Nf4 18. Nf3 {<sab>}) 15. Nxc5 Qc8 ( diff --git a/testsuite/tests/programs/galois_raytrace/Geometry.hs b/testsuite/tests/programs/galois_raytrace/Geometry.hs index 8bca3a3e89..3c00f7b233 100644 --- a/testsuite/tests/programs/galois_raytrace/Geometry.hs +++ b/testsuite/tests/programs/galois_raytrace/Geometry.hs @@ -293,7 +293,7 @@ offsetToPoint (r,v) i = r `addPV` (i `multSV` v) -- -epsilon, inf :: Double -- aproximate zero and infinity +epsilon, inf :: Double -- approximate zero and infinity epsilon = 1.0e-10 inf = 1.0e20 diff --git a/testsuite/tests/simplCore/should_compile/T14137.hs b/testsuite/tests/simplCore/should_compile/T14137.hs index ef8c307076..f8cbbc251a 100644 --- a/testsuite/tests/simplCore/should_compile/T14137.hs +++ b/testsuite/tests/simplCore/should_compile/T14137.hs @@ -1,7 +1,7 @@ module T14137 where -- The point of this test is that we should inline 'thunk' --- into j's RHS, and we can do so quite agressively, even +-- into j's RHS, and we can do so quite aggressively, even -- when we aren't optimising. See the ticket. -- -- It's not a big deal, because in the end FloatIn diff --git a/testsuite/tests/simplCore/should_run/simplrun002.hs b/testsuite/tests/simplCore/should_run/simplrun002.hs index ec4ea7c7ac..5b9e01cc25 100644 --- a/testsuite/tests/simplCore/should_run/simplrun002.hs +++ b/testsuite/tests/simplCore/should_run/simplrun002.hs @@ -12,11 +12,11 @@ import System.IO import System.IO.Unsafe ( unsafePerformIO ) {-# NOINLINE [0] sndSnd #-} --- Dont inline till last, to give the rule a chance +-- Don't inline till last, to give the rule a chance sndSnd (a,(b,c)) = (a,c) {-# NOINLINE [2] myFst #-} --- Dont inline till last, to give the rule a chance +-- Don't inline till last, to give the rule a chance myFst (a,b) = a trace x y = unsafePerformIO (hPutStr stderr x >> hPutStr stderr "\n" >> return y) |