More haskell-indentation tests

Author: gracjan

tests/haskell-indentation-tests.el

@@ -224,3 +224,81 @@ Example of lines:
    "    => MyMonad (A v) m"
    "    -> m (Maybe a)"
    "    ^"))
+
+(ert-deftest haskell-indentation-check-18a ()
+  "if then else indentation: then"
+  (haskell-indentation-check
+   "x = if flag"
+   "    then 1"
+   "    ^"))
+
+(ert-deftest haskell-indentation-check-18b ()
+  "if then else indentation: else"
+  (haskell-indentation-check
+   "x = if flag"
+   "    then 1"
+   "    else 0"
+   "    ^"))
+
+(ert-deftest haskell-indentation-check-18c ()
+  "do and if then else indentation: then"
+  (haskell-indentation-check
+   "x = do"
+   "  if flag"
+   "    then 1"
+   "    ^"))
+
+(ert-deftest haskell-indentation-check-18d ()
+  "do and if then else indentation: else"
+  (haskell-indentation-check
+   "x = do"
+   "  if flag"
+   "    then 1"
+   "    else 0"
+   "    ^"))
+
+(ert-deftest haskell-indentation-check-18e ()
+  "do and if then else indentation: else"
+  :expected-result :failed
+  (haskell-indentation-check
+   "x = do"
+   "  if flag"
+   "    then do"
+   "      return ()"
+   "      ^"))
+
+(ert-deftest haskell-indentation-check-18f ()
+  "do and if then else indentation: else"
+  :expected-result :failed
+  (haskell-indentation-check
+   "x = do"
+   "  if flag"
+   "    then do"
+   "      return ()"
+   "    else do"
+   "      return ()"
+   "      ^"))
+
+(ert-deftest haskell-indentation-check-19a ()
+  "let and in"
+  (haskell-indentation-check
+   "x = let"
+   "  y"
+   "  ^"))
+
+(ert-deftest haskell-indentation-check-19b ()
+  "let and in"
+  (haskell-indentation-check
+   "x = let y"
+   "    in "
+   "      z "
+   "      ^"))
+
+(ert-deftest haskell-indentation-check-19c ()
+  "let in a do"
+  (haskell-indentation-check
+   "x = do"
+   "  thing"
+   "  let "
+   "    z = 5"
+   "    ^"))