summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/driver/perf_notes.py2
-rw-r--r--testsuite/driver/testglobals.py2
-rw-r--r--testsuite/tests/codeGen/should_run/cgrun069_cmm.cmm2
-rw-r--r--testsuite/tests/dynlibs/all.T2
-rw-r--r--testsuite/tests/gadt/SynDataRec.hs2
-rw-r--r--testsuite/tests/hiefile/should_compile/Scopes.hs4
-rw-r--r--testsuite/tests/indexed-types/should_compile/T18809.hs2
-rw-r--r--testsuite/tests/linear/should_compile/CSETest.hs2
-rw-r--r--testsuite/tests/pmcheck/should_compile/T17340.hs2
-rw-r--r--testsuite/tests/pmcheck/should_compile/T18478.hs6
-rw-r--r--testsuite/tests/stranal/should_run/T13380d.hs2
-rw-r--r--testsuite/tests/stranal/should_run/T13380e.hs2
-rw-r--r--testsuite/tests/stranal/sigs/T18086.hs2
-rw-r--r--testsuite/tests/typecheck/should_fail/T17173.hs2
-rw-r--r--testsuite/tests/typecheck/should_fail/TcCoercibleFail.hs2
15 files changed, 18 insertions, 18 deletions
diff --git a/testsuite/driver/perf_notes.py b/testsuite/driver/perf_notes.py
index eb31f463da..a320f22336 100644
--- a/testsuite/driver/perf_notes.py
+++ b/testsuite/driver/perf_notes.py
@@ -487,7 +487,7 @@ def get_commit_metric_value_str_or_none(gitNoteRef,
return str(result.value)
# gets the average commit metric from git notes.
-# gitNoteRef: git notes ref sapce e.g. "perf" or "ci/perf"
+# gitNoteRef: git notes ref space e.g. "perf" or "ci/perf"
# ref: git commit
# test_env: test environment
# name: test name
diff --git a/testsuite/driver/testglobals.py b/testsuite/driver/testglobals.py
index 5826a976e1..2b3dd48b68 100644
--- a/testsuite/driver/testglobals.py
+++ b/testsuite/driver/testglobals.py
@@ -169,7 +169,7 @@ class TestConfig:
# run.
self.broken_tests = set() # type: Set[TestName]
- # Baseline commit for performane metric comparisons.
+ # Baseline commit for performance metric comparisons.
self.baseline_commit = None # type: Optional[GitRef]
# Additional package dbs to inspect for test dependencies.
diff --git a/testsuite/tests/codeGen/should_run/cgrun069_cmm.cmm b/testsuite/tests/codeGen/should_run/cgrun069_cmm.cmm
index 006595e319..989251d646 100644
--- a/testsuite/tests/codeGen/should_run/cgrun069_cmm.cmm
+++ b/testsuite/tests/codeGen/should_run/cgrun069_cmm.cmm
@@ -139,7 +139,7 @@ loop_end: \
foreign "C" free(dst); \
return (0);
-// This is not exactly beutiful but we need the separate functions to
+// This is not exactly beautiful but we need the separate functions to
// avoid collisions between labels.
//
// The specific tests are selected with knowledge of the implementation
diff --git a/testsuite/tests/dynlibs/all.T b/testsuite/tests/dynlibs/all.T
index 092c983389..79d4ee9c5a 100644
--- a/testsuite/tests/dynlibs/all.T
+++ b/testsuite/tests/dynlibs/all.T
@@ -20,5 +20,5 @@ test('T18072', [req_shared_libs, unless(opsys('linux'), skip)], makefile_test, [
# test that -shared and -flink-rts respects alternative RTS flavours
test('T18072debug', [extra_files(['T18072.hs']), req_shared_libs, unless(opsys('linux'), skip)], makefile_test, [])
-# check that -staticlib and -fno-link-rts results in an archive without the RTR libary
+# check that -staticlib and -fno-link-rts results in an archive without the RTR library
test('T18072static', [extra_files(['T18072.hs']), unless(opsys('linux'), skip)], makefile_test, [])
diff --git a/testsuite/tests/gadt/SynDataRec.hs b/testsuite/tests/gadt/SynDataRec.hs
index 021ed0ba17..fe290a8cae 100644
--- a/testsuite/tests/gadt/SynDataRec.hs
+++ b/testsuite/tests/gadt/SynDataRec.hs
@@ -2,7 +2,7 @@
module SynDataRec where
--- This mutual recursion betwen a data type and
+-- This mutual recursion between a data type and
-- a type synonym is a little delicate. See
-- Note [GADT return types] in GHC.Tc.TyCl
diff --git a/testsuite/tests/hiefile/should_compile/Scopes.hs b/testsuite/tests/hiefile/should_compile/Scopes.hs
index 21766c6446..a6714a9a68 100644
--- a/testsuite/tests/hiefile/should_compile/Scopes.hs
+++ b/testsuite/tests/hiefile/should_compile/Scopes.hs
@@ -6,7 +6,7 @@
module Scopes where
--- Verify that evidence bound by patern
+-- Verify that evidence bound by pattern
-- synonyms has correct scope
pattern LL :: Num a => a -> a
pattern LL x <- (subtract 1 -> x)
@@ -19,7 +19,7 @@ data T = C { x :: Int, y :: Char }
-- have correct scope
foo = C { x = 1 , y = 'a' }
--- Verify that implicit paramters have correct scope
+-- Verify that implicit parameters have correct scope
bar :: (?x :: Int) => Int
bar = ?x + 1
diff --git a/testsuite/tests/indexed-types/should_compile/T18809.hs b/testsuite/tests/indexed-types/should_compile/T18809.hs
index 1e56d980f6..0135c4e370 100644
--- a/testsuite/tests/indexed-types/should_compile/T18809.hs
+++ b/testsuite/tests/indexed-types/should_compile/T18809.hs
@@ -16,7 +16,7 @@ data F1 s where
bar1 :: F1 s -> Int -> F1 s
bar1 z y = z { foo1 = y }
--- Orinary data family
+-- Ordinary data family
data family F3 a
data instance F3 (s,t) where
MkF2b :: { foo3 :: Int } -> F3 (s,t)
diff --git a/testsuite/tests/linear/should_compile/CSETest.hs b/testsuite/tests/linear/should_compile/CSETest.hs
index 3321dbd43d..71f807dc26 100644
--- a/testsuite/tests/linear/should_compile/CSETest.hs
+++ b/testsuite/tests/linear/should_compile/CSETest.hs
@@ -2,7 +2,7 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE UnicodeSyntax #-}
{- This test makes sure that if two expressions with conflicting types are
- CSEd then appropiate things happen. -}
+ CSEd then appropriate things happen. -}
module CSETest where
minimal :: a ⊸ a
diff --git a/testsuite/tests/pmcheck/should_compile/T17340.hs b/testsuite/tests/pmcheck/should_compile/T17340.hs
index fa2ef60812..b3d69b4da2 100644
--- a/testsuite/tests/pmcheck/should_compile/T17340.hs
+++ b/testsuite/tests/pmcheck/should_compile/T17340.hs
@@ -51,4 +51,4 @@ w _ _ = ()
z :: T2 a -> Bool -> ()
z _ True = ()
z t2 !x | T2 _ <- t2, x = () -- redundant
- | !_ <- t2, x = () -- inaccessable
+ | !_ <- t2, x = () -- inaccessible
diff --git a/testsuite/tests/pmcheck/should_compile/T18478.hs b/testsuite/tests/pmcheck/should_compile/T18478.hs
index 372ac2d171..6739388d99 100644
--- a/testsuite/tests/pmcheck/should_compile/T18478.hs
+++ b/testsuite/tests/pmcheck/should_compile/T18478.hs
@@ -530,7 +530,7 @@ forbiddenOpEvi = Sub $
OpAbsent -> Dict
OpPresent -> error "impossible"
--- | Reify 'HasNoOp' contraint from 'ForbidOp'.
+-- | Reify 'HasNoOp' constraint from 'ForbidOp'.
--
-- Left for backward compatibility.
forbiddenOp
@@ -566,7 +566,7 @@ forbiddenNestedBigMaps
-> a
forbiddenNestedBigMaps = withDict $ forbiddenNestedBigMapsEvi @t
--- | Reify 'HasNoContract' contraint from 'ForbidContract'.
+-- | Reify 'HasNoContract' constraint from 'ForbidContract'.
forbiddenContractTypeEvi
:: forall t. (SingI t, ForbidContract t) :- HasNoContract t
forbiddenContractTypeEvi = Sub $
@@ -574,7 +574,7 @@ forbiddenContractTypeEvi = Sub $
ContractAbsent -> Dict
ContractPresent -> error "impossible"
--- | Reify 'HasNoContract' contraint from 'ForbidContract'.
+-- | Reify 'HasNoContract' constraint from 'ForbidContract'.
forbiddenContractType
:: forall t a.
(SingI t, ForbidContract t)
diff --git a/testsuite/tests/stranal/should_run/T13380d.hs b/testsuite/tests/stranal/should_run/T13380d.hs
index 440c4ced1e..3430c958c0 100644
--- a/testsuite/tests/stranal/should_run/T13380d.hs
+++ b/testsuite/tests/stranal/should_run/T13380d.hs
@@ -5,7 +5,7 @@ import Control.Exception
import GHC.Exts
import GHC.IO
--- | An "unboxed" IO action that throws a precise excpetion that isn't inlined.
+-- | An "unboxed" IO action that throws a precise exception that isn't inlined.
throws :: State# RealWorld -> State# RealWorld
throws s = case raiseIO# (toException (userError "What")) s of (# s', _ #) -> s'
{-# NOINLINE throws #-}
diff --git a/testsuite/tests/stranal/should_run/T13380e.hs b/testsuite/tests/stranal/should_run/T13380e.hs
index d807db091b..b69dfd51e9 100644
--- a/testsuite/tests/stranal/should_run/T13380e.hs
+++ b/testsuite/tests/stranal/should_run/T13380e.hs
@@ -3,7 +3,7 @@ import Control.Exception
-- This is just like T13380d, but doesn't look through the IO abstraction.
-- With Nested CPR, it will result in very similar code, however!
--- | An IO action that throws a precise excpetion that isn't inlined.
+-- | An IO action that throws a precise exception that isn't inlined.
throws :: IO ()
throws = throwIO (userError "What")
{-# NOINLINE throws #-}
diff --git a/testsuite/tests/stranal/sigs/T18086.hs b/testsuite/tests/stranal/sigs/T18086.hs
index 639409adce..9a6f67c6d1 100644
--- a/testsuite/tests/stranal/sigs/T18086.hs
+++ b/testsuite/tests/stranal/sigs/T18086.hs
@@ -13,7 +13,7 @@ m = do
putStrLn "foo"
error "bar"
--- Dito, just in a more complex scenario (the original reproducer of #18086)
+-- Ditto, just in a more complex scenario (the original reproducer of #18086)
panic :: String -> a
panic x = unsafeDupablePerformIO $ do
stack <- ccsToStrings =<< getCurrentCCS x
diff --git a/testsuite/tests/typecheck/should_fail/T17173.hs b/testsuite/tests/typecheck/should_fail/T17173.hs
index d26c5dd619..e1c3dbfc0c 100644
--- a/testsuite/tests/typecheck/should_fail/T17173.hs
+++ b/testsuite/tests/typecheck/should_fail/T17173.hs
@@ -2,5 +2,5 @@
module T17173 where
--- This now fails with eager instantation
+-- This now fails with eager instantiation
foo = (let myId :: forall a. a -> a; myId x = x in myId) @Bool True
diff --git a/testsuite/tests/typecheck/should_fail/TcCoercibleFail.hs b/testsuite/tests/typecheck/should_fail/TcCoercibleFail.hs
index 01afc9cb42..fc3e7b583e 100644
--- a/testsuite/tests/typecheck/should_fail/TcCoercibleFail.hs
+++ b/testsuite/tests/typecheck/should_fail/TcCoercibleFail.hs
@@ -22,7 +22,7 @@ foo5 = coerce :: Void -> ()
------------------------------------
--- This next one generates an exponentally big type as it
+-- This next one generates an exponentially big type as it
-- tries to unwrap. See comment:15 in #11518
-- Adding assertions that force the types can make us
-- run out of space.
View Lorry Controller Status