Add known broken tests for import placement

Author: nini-faroux

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,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+{-# OPTIONS_GHC -Wall #-}
+-- 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

ghcide/test/exe/Main.hs

@@ -855,7 +855,18 @@ watchedFilesTests = testGroup "watched files"
 
 insertImportTests :: TestTree
 insertImportTests = testGroup "insert import"
-  [ checkImport "above comment at top of module" "CommentAtTop.hs" "CommentAtTop.expected.hs" "import Data.Monoid"
+  [ (`xfail` "known broken") (checkImport "module where keyword lower in file no exports" "WhereKeywordLowerInFileNoExports.hs" "WhereKeywordLowerInFileNoExports.expected.hs" "import Data.Int")
+  , (`xfail` "known broken") (checkImport "module where keyword lower in file with exports" "WhereDeclLowerInFile.hs" "WhereDeclLowerInFile.expected.hs" "import Data.Int")
+  , (`xfail` "known broken") (checkImport "Shebang not at top with spaces" "ShebangNotAtTopWithSpaces.hs" "ShebangNotAtTopWithSpaces.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "Shebang not at top no space" "ShebangNotAtTopNoSpace.hs" "ShebangNotAtTopNoSpace.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "OPTIONS_GHC pragma not at top with spaces" "OptionsNotAtTopWithSpaces.hs" "OptionsNotAtTopWithSpaces.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "Shebang not at top of file" "ShebangNotAtTop.hs" "ShebangNotAtTop.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "OPTIONS_GHC pragma not at top of file" "OptionsPragmaNotAtTop.hs" "OptionsPragmaNotAtTop.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "pragma not at top with comment at top" "PragmaNotAtTopWithCommentsAtTop.hs" "PragmaNotAtTopWithCommentsAtTop.expected.hs" "import Data.Monoid")
+  , (`xfail` "known broken") (checkImport "pragma not at top multiple comments" "PragmaNotAtTopMultipleComments.hs" "PragmaNotAtTopMultipleComments.expected.hs" "import Data.Monoid")
+  , checkImport "pragmas not at top with module declaration" "PragmaNotAtTopWithModuleDecl.hs" "PragmaNotAtTopWithModuleDecl.expected.hs" "import Data.Monoid"
+  , checkImport "pragmas not at top with imports" "PragmaNotAtTopWithImports.hs" "PragmaNotAtTopWithImports.expected.hs" "import Data.Monoid"
+  , checkImport "above comment at top of module" "CommentAtTop.hs" "CommentAtTop.expected.hs" "import Data.Monoid"
   , checkImport "above multiple comments below" "CommentAtTopMultipleComments.hs" "CommentAtTopMultipleComments.expected.hs" "import Data.Monoid"
   , checkImport "above curly brace comment" "CommentCurlyBraceAtTop.hs" "CommentCurlyBraceAtTop.expected.hs" "import Data.Monoid"
   , checkImport "above multi-line comment" "MultiLineCommentAtTop.hs" "MultiLineCommentAtTop.expected.hs" "import Data.Monoid"