Add known broken tests for import placement (#2425)

Co-authored-by: Javier Neira <atreyu.bbb@gmail.com>

ghcide/test/data/import-placement/MultiLinePragma.expected.hs

@@ -0,0 +1,13 @@
+{-# OPTIONS_GHC -Wall #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards, 
+   OverloadedStrings #-}
+{-# OPTIONS_GHC -Wall,
+  -Wno-unused-imports #-}
+import Data.Monoid
+
+
+-- some comment
+class Semigroup a => SomeData a
+
+instance SomeData All

ghcide/test/data/import-placement/MultiLinePragma.hs

@@ -0,0 +1,12 @@
+{-# OPTIONS_GHC -Wall #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards, 
+   OverloadedStrings #-}
+{-# OPTIONS_GHC -Wall,
+  -Wno-unused-imports #-}
+
+
+-- some comment
+class Semigroup a => SomeData a
+
+instance SomeData All

ghcide/test/data/import-placement/OptionsNotAtTopWithSpaces.expected.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# LANGUAGE TupleSections #-}
+import Data.Monoid
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/OptionsNotAtTopWithSpaces.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# LANGUAGE TupleSections #-}
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/OptionsPragmaNotAtTop.expected.hs

@@ -0,0 +1,8 @@
+import Data.Monoid
+class Semigroup a => SomeData a
+instance SomeData All
+
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/OptionsPragmaNotAtTop.hs

@@ -0,0 +1,7 @@
+class Semigroup a => SomeData a
+instance SomeData All
+
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopMultipleComments.expected.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-# OPTIONS_GHC -Wall,
+   OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+-- another comment
+-- oh
+{- multi line 
+comment
+-}
+
+{-# LANGUAGE TupleSections #-}
+import Data.Monoid
+{- some comment -}
+
+-- again
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopMultipleComments.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-# OPTIONS_GHC -Wall,
+   OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+-- another comment
+-- oh
+{- multi line 
+comment
+-}
+
+{-# LANGUAGE TupleSections #-}
+{- some comment -}
+
+-- again
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithCommentsAtTop.expected.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-# OPTIONS_GHC -Wall #-}
+-- another comment
+
+{-# LANGUAGE TupleSections #-}
+import Data.Monoid
+{- some comment -}
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithCommentsAtTop.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-# OPTIONS_GHC -Wall #-}
+-- another comment
+
+{-# LANGUAGE TupleSections #-}
+{- some comment -}
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithImports.expected.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -Wall #-}
+
+{-# LANGUAGE TupleSections #-}
+module Test
+( SomeData(..)
+) where
+import Data.Text
+import Data.Monoid
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithImports.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -Wall #-}
+
+{-# LANGUAGE TupleSections #-}
+module Test
+( SomeData(..)
+) where
+import Data.Text
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithModuleDecl.expected.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# OPTIONS_GHC -Wall #-}
+
+{-# LANGUAGE TupleSections #-}
+module Test
+( SomeData(..)
+) where
+import Data.Monoid
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/PragmaNotAtTopWithModuleDecl.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# OPTIONS_GHC -Wall #-}
+
+{-# LANGUAGE TupleSections #-}
+module Test
+( SomeData(..)
+) where
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/ShebangNotAtTop.expected.hs

@@ -0,0 +1,10 @@
+{-# LANGUAGE OverloadedStrings #-}
+import Data.Monoid
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+
+f :: Int -> Int 
+f x = x * x

ghcide/test/data/import-placement/ShebangNotAtTop.hs

@@ -0,0 +1,9 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+
+f :: Int -> Int 
+f x = x * x

ghcide/test/data/import-placement/ShebangNotAtTopNoSpace.expected.hs

@@ -0,0 +1,8 @@
+import Data.Monoid
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+
+f :: Int -> Int 
+f x = x * x

ghcide/test/data/import-placement/ShebangNotAtTopNoSpace.hs

@@ -0,0 +1,7 @@
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+
+f :: Int -> Int 
+f x = x * x

ghcide/test/data/import-placement/ShebangNotAtTopWithSpaces.expected.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# OPTIONS_GHC -Wall #-}
+
+
+
+{-# LANGUAGE TupleSections #-}
+import Data.Monoid
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/ShebangNotAtTopWithSpaces.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+
+{-# OPTIONS_GHC -Wall #-}
+
+
+
+{-# LANGUAGE TupleSections #-}
+
+
+
+
+class Semigroup a => SomeData a
+instance SomeData All
+
+#! nix-shell --pure -i runghc -p "haskellPackages.ghcWithPackages (hp: with hp; [ turtle ])"
+{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
+
+addOne :: Int -> Int
+addOne x = x + 1

ghcide/test/data/import-placement/WhereDeclLowerInFile.expected.hs

@@ -0,0 +1,18 @@
+module Asdf 
+ (f
+ , where') 
+
+ where
+import Data.Int
+
+
+
+f :: Int64 -> Int64
+f = id'
+  where id' = id
+
+g :: Int -> Int 
+g = id
+
+where' :: Int -> Int 
+where' = id

ghcide/test/data/import-placement/WhereDeclLowerInFile.hs

@@ -0,0 +1,17 @@
+module Asdf 
+ (f
+ , where') 
+
+ where
+
+
+
+f :: Int64 -> Int64
+f = id'
+  where id' = id
+
+g :: Int -> Int 
+g = id
+
+where' :: Int -> Int 
+where' = id

ghcide/test/data/import-placement/WhereKeywordLowerInFileNoExports.expected.hs

@@ -0,0 +1,16 @@
+module Asdf 
+
+
+ where
+import Data.Int
+
+
+f :: Int64 -> Int64
+f = id'
+  where id' = id
+
+g :: Int -> Int 
+g = id
+
+where' :: Int -> Int 
+where' = id

ghcide/test/data/import-placement/WhereKeywordLowerInFileNoExports.hs

@@ -0,0 +1,15 @@
+module Asdf 
+
+
+ where
+
+
+f :: Int64 -> Int64
+f = id'
+  where id' = id
+
+g :: Int -> Int 
+g = id
+
+where' :: Int -> Int 
+where' = id