tests: factor out indentation testing, where before == after

Author: Hi-Angel

tests/purescript-indentation-tests.el

@@ -21,6 +21,14 @@
 (require 'purescript-mode)
 (require 'purescript-indentation)
 
+(defun purescript-test-indentation-expected-only (expected)
+  (with-temp-buffer
+    (insert expected)
+    (purescript-mode)
+    (turn-on-purescript-indentation)
+    (indent-region (point-min) (point-max))
+    (should (string= expected (buffer-string)))))
+
 (defun purescript-test-indentation (before after &optional start-line)
   (with-temp-buffer
     (insert before)
@@ -210,15 +218,11 @@ type MyRec = { data :: Number
 
 (ert-deftest func-with-do ()
   :expected-result :failed
-  (purescript-test-indentation "
-foo :: Foo
-foo = do
-  pure unit"
-
-"
+  (purescript-test-indentation-expected-only "
 foo :: Foo
 foo = do
-  pure unit"))
+  pure unit
+"))
 
 (ert-deftest do-bindings ()
   :expected-result :failed
@@ -267,13 +271,7 @@ test3 a
 (ert-deftest comma-first-list-after-case-of ()
   "A comma-first list was getting misindented if goes after case-of"
   :expected-result :failed
-  (purescript-test-indentation "
-fun = case _ of
-  [ a
-  , b ]
-"
-
-"
+  (purescript-test-indentation-expected-only "
 fun = case _ of
   [ a
   , b ]