Add scratch .test files in the root

- Split into blocks and block haddocks

Author: philderbeast

empty-comment-block-haddocks.test

@@ -0,0 +1,21 @@
+{- |-}
+haddockAboveMultiEmpty = 1
+
+{- | -}
+haddockAboveMultiEmptySpace = 1
+
+{- |
+
+    -}
+haddockAboveMultiEmptyLines = 1
+
+haddockBelowMultiEmpty = 1
+{- ^-}
+
+haddockBelowMultiEmptySpace = 1
+{- ^-}
+
+haddockBelowMultiEmptyLines = 1
+{- ^
+
+    -}

empty-comment-blocks.test

@@ -0,0 +1,12 @@
+{-##-}
+
+{--}
+commentMultiEmpty = 1
+
+{- -}
+commentMultiEmptySpace = 1
+
+{-
+
+    -}
+commentMultiEmptyLines = 1

empty-comment-mixed.test

@@ -0,0 +1,11 @@
+-- |
+--
+-- Comment with blank line comment space above and below.
+--
+commentWithSpace = 1
+
+-- | Introduction line.
+--
+-- Comment with introduction line above and blank line below.
+--
+CommentWithSpaceOnlyAfter = 1

empty-comment-nonempty.test

@@ -0,0 +1,11 @@
+-- |
+--
+--
+-- foo
+haddockAboveIntoNonEmpty = 1
+
+haddockBelowIntoNonEmpty = 1
+-- ^
+--
+--
+-- foo

empty-comment-record.test

@@ -0,0 +1,15 @@
+data HaddockSingle = HaddockSingle
+  { haddockFieldEmptyBelow :: Int
+  -- ^
+  -- |
+  , haddockFieldAboveEmpty :: Int
+  , haddockFieldEmptyAfter :: Int -- ^
+  }
+
+data HaddockMulti = HaddockMulti
+  { haddockFieldEmptyBelow :: Int
+  {- ^-}
+  {- |-}
+  , haddockFieldAboveEmpty :: Int
+  , haddockFieldEmptyAfter :: Int {- ^-}
+  }

empty-comment-single.test

@@ -0,0 +1,5 @@
+-- |
+haddockAboveSingle = 1
+
+haddockBelowSingle = 1
+-- ^

empty-comment-singles.test

@@ -0,0 +1,7 @@
+-- |
+--
+haddockAboveSingles = 1
+
+-- |
+-- >>>
+haddockAboveDoctest = 1

example.test

@@ -0,0 +1,73 @@
+-- | AA
+--
+--
+-- BB
+--
+--
+-- Comment with blank line comment space above and below.
+--
+--
+-- CC
+--
+--
+--
+--
+commentWithSpace = 1
+
+-- |
+--
+-- 11
+--
+--
+-- 22
+--
+--
+-- Comment with blank line comment space above and below.
+--
+--
+-- 33
+--
+commentWithSpace1 = 1
+
+commentWithSpace2 = 1
+-- ^
+--
+-- ZZ
+--
+--
+-- YY
+--
+--
+-- Comment with blank line comment space above and below.
+--
+--
+-- XX
+--
+
+-- | A comment as a string.
+
+{- |-}
+{--}
+
+--
+
+{-##-}
+
+-- |
+-- >>> :{
+--  let
+--    x = 1
+--    y = 2
+--  in x + y + multiline
+-- :}
+-- 6
+multiline = 3
+
+{- | >>> :{
+let x = 1
+    y = 2
+  in x + y + works
+:}
+6
+-}
+works = 3