[nongnu] elpa/haskell-tng-mode 6d2d764 094/385: skeleton for indentation tests

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit 6d2d76480699773cf109c3dfd9385ec1ee777c7e
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    skeleton for indentation tests
---
 test/haskell-tng-indent-test.el | 53 ++++++++++++++++++++++++++++++++++++-----
 1 file changed, 47 insertions(+), 6 deletions(-)

diff --git a/test/haskell-tng-indent-test.el b/test/haskell-tng-indent-test.el
index 7c8321d..63e3791 100644
--- a/test/haskell-tng-indent-test.el
+++ b/test/haskell-tng-indent-test.el
@@ -12,20 +12,61 @@
          "test/haskell-tng-testutils.el")
 
 (ert-deftest haskell-tng-indent-file-tests ()
-  ;; FIXME four kinds of indentation test:
+  ;; Four indentation regression tests are possible:
   ;;
   ;;   1. newline-and-indent when writing code
   ;;   2. ... with subsequent indent-line-function cycles
   ;;   3. indent-line-function at the beginning of an existing line
   ;;   4. ... with subsequent indent-line-function cycles
   ;;
-  ;; Expectations could use lines of | and . to indicate where the
-  ;; indentation(s) go. 1 and 2 are the most interesting so could be combined
-  ;; into one test. 3 and 4 could also be combined.
-  ;;
-  ;; (should (have-expected-newline-indent (testdata "src/layout.hs")))
+  ;; Expectations could use lines of symbols such as | and . or digits to
+  ;; indicate where the indentation(s) go. 1 and 2 are the most interesting so
+  ;; could be combined into one test. 3 and 4 could also be combined.
+
+  (should (have-expected-newline-indent (testdata "src/layout.hs")))
   ;; (should (have-expected-indent (testdata "src/layout.hs")))
 
+  ;; (should (have-expected-newline-indent (testdata "src/medley.hs")))
+  ;; (should (have-expected-indent (testdata "src/medley.hs")))
+
+  )
+
+(defun haskell-tng-indent-test:newline-indents ()
+  ;; FIXME
+  )
+
+(defun haskell-tng-indent-test:indents ()
+  ;; FIXME
   )
 
+(defun haskell-tng-indent-test:indents-to-string (indents)
+  "INDENTS is a list of INDENT which are a non-empty list of
+column numbers indicating the suggested indentation levels. The
+head entry is the newline-and-indent and the rest are the
+indent-line-function cycles."
+  ;; FIXME
+  )
+
+(defun haskell-tng-indent-test:indent-to-string (indent)
+  ;; FIXME
+  )
+
+(defun have-expected-newline-indent (file)
+  (haskell-tng-testutils:assert-file-contents
+   file
+   #'haskell-tng-mode
+   (lambda ()
+     (haskell-tng-indent-test:indents-to-string
+      (haskell-tng-indent-test:newline-indents)))
+   "newline-indent"))
+
+(defun have-expected-indent (file)
+  (haskell-tng-testutils:assert-file-contents
+   file
+   #'haskell-tng-mode
+   (lambda ()
+     (haskell-tng-indent-test:indents-to-string
+      (haskell-tng-indent-test:indents)))
+   "indent"))
+
 ;;; haskell-tng-indent-test.el ends here