[nongnu] elpa/haskell-tng-mode 8b6d545 178/385: split all the tests

[ELPA Syncer]

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

    split all the tests
---
 test/haskell-tng-font-lock-test.el |  8 ++++----
 test/haskell-tng-layout-test.el    | 11 ++++++-----
 test/haskell-tng-lexer-test.el     | 14 ++++++++------
 test/haskell-tng-sexp-test.el      | 14 ++++++--------
 test/haskell-tng-syntax-test.el    | 11 ++++++-----
 5 files changed, 30 insertions(+), 28 deletions(-)

diff --git a/test/haskell-tng-font-lock-test.el 
b/test/haskell-tng-font-lock-test.el
index 0f4267b..21702ac 100644
--- a/test/haskell-tng-font-lock-test.el
+++ b/test/haskell-tng-font-lock-test.el
@@ -18,10 +18,10 @@
    "faceup"))
 
 ;; to generate .faceup files, use faceup-view-buffer
-(ert-deftest haskell-tng-font-lock-file-tests ()
-  (should (have-expected-faces (testdata "src/medley.hs")))
+(ert-deftest haskell-tng-font-lock-file-tests:medley ()
+  (should (have-expected-faces (testdata "src/medley.hs"))))
 
-  (should (have-expected-faces (testdata "src/layout.hs")))
-  )
+(ert-deftest haskell-tng-font-lock-file-tests:layout ()
+  (should (have-expected-faces (testdata "src/layout.hs"))))
 
 ;;; haskell-tng-font-lock-test.el ends here
diff --git a/test/haskell-tng-layout-test.el b/test/haskell-tng-layout-test.el
index a69c46a..2a410cd 100644
--- a/test/haskell-tng-layout-test.el
+++ b/test/haskell-tng-layout-test.el
@@ -11,14 +11,15 @@
 (require 'haskell-tng-testutils
          "test/haskell-tng-testutils.el")
 
-(ert-deftest haskell-tng-layout-file-tests ()
+(ert-deftest haskell-tng-layout-file-tests:layout ()
   ;; the Haskell2010 test case
-  (should (have-expected-layout (testdata "src/layout.hs")))
+  (should (have-expected-layout (testdata "src/layout.hs"))))
 
-  (should (have-expected-layout (testdata "src/indentation.hs")))
+(ert-deftest haskell-tng-layout-file-tests:indentation ()
+  (should (have-expected-layout (testdata "src/indentation.hs"))))
 
-  (should (have-expected-layout (testdata "src/medley.hs")))
-  )
+(ert-deftest haskell-tng-layout-file-tests:medley ()
+  (should (have-expected-layout (testdata "src/medley.hs"))))
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Testing utilities
diff --git a/test/haskell-tng-lexer-test.el b/test/haskell-tng-lexer-test.el
index 5fc7c0e..efbfded 100644
--- a/test/haskell-tng-lexer-test.el
+++ b/test/haskell-tng-lexer-test.el
@@ -11,15 +11,17 @@
 (require 'haskell-tng-testutils
          "test/haskell-tng-testutils.el")
 
-(ert-deftest haskell-tng-lexer-file-tests ()
+(ert-deftest haskell-tng-lexer-file-tests:layout ()
   (should (have-expected-forward-lex (testdata "src/layout.hs")))
+  (should (have-expected-backward-lex (testdata "src/layout.hs"))))
+
+(ert-deftest haskell-tng-lexer-file-tests:indentation ()
   (should (have-expected-forward-lex (testdata "src/indentation.hs")))
-  (should (have-expected-forward-lex (testdata "src/medley.hs")))
+  (should (have-expected-backward-lex (testdata "src/indentation.hs"))))
 
-  (should (have-expected-backward-lex (testdata "src/layout.hs")))
-  (should (have-expected-backward-lex (testdata "src/indentation.hs")))
-  (should (have-expected-backward-lex (testdata "src/medley.hs")))
-  )
+(ert-deftest haskell-tng-lexer-file-tests:medley ()
+  (should (have-expected-forward-lex (testdata "src/medley.hs")))
+  (should (have-expected-backward-lex (testdata "src/medley.hs"))))
 
 (ert-deftest haskell-tng-lexer-state-invalidation-tests ()
   (with-temp-buffer
diff --git a/test/haskell-tng-sexp-test.el b/test/haskell-tng-sexp-test.el
index 4785227..0aa23f7 100644
--- a/test/haskell-tng-sexp-test.el
+++ b/test/haskell-tng-sexp-test.el
@@ -20,16 +20,14 @@
 ;; However, this fails to find all bounds because there is ambiguity at virtual
 ;; tokens.
 
-(ert-deftest haskell-tng-sexp-file-tests ()
-  (should (have-expected-sexps (testdata "src/layout.hs")))
+(ert-deftest haskell-tng-sexp-file-tests:layout ()
+  (should (have-expected-sexps (testdata "src/layout.hs"))))
 
-  (should (have-expected-sexps (testdata "src/indentation.hs")))
+(ert-deftest haskell-tng-sexp-file-tests:indentation ()
+  (should (have-expected-sexps (testdata "src/indentation.hs"))))
 
-  (should (have-expected-sexps (testdata "src/grammar.hs")))
-
-  ;; to the extent that they aren't even useful
-  ;;(should (have-expected-sexps (testdata "src/medley.hs")))
-  )
+(ert-deftest haskell-tng-sexp-file-tests:grammar ()
+  (should (have-expected-sexps (testdata "src/grammar.hs"))))
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; SMIE testing utilities
diff --git a/test/haskell-tng-syntax-test.el b/test/haskell-tng-syntax-test.el
index c8a64a4..ad94879 100644
--- a/test/haskell-tng-syntax-test.el
+++ b/test/haskell-tng-syntax-test.el
@@ -49,12 +49,13 @@
     (s-join "" codes)))
 
 ;; to generate .faceup files, use faceup-view-buffer
-(ert-deftest haskell-tng-syntax-file-tests ()
-  (should (have-expected-syntax (testdata "src/medley.hs")))
+(ert-deftest haskell-tng-syntax-file-tests:medley ()
+  (should (have-expected-syntax (testdata "src/medley.hs"))))
 
-  (should (have-expected-syntax (testdata "src/layout.hs")))
+(ert-deftest haskell-tng-syntax-file-tests:layout ()
+  (should (have-expected-syntax (testdata "src/layout.hs"))))
 
-  (should (have-expected-syntax (testdata "src/indentation.hs")))
-  )
+(ert-deftest haskell-tng-syntax-file-tests:indentation ()
+  (should (have-expected-syntax (testdata "src/indentation.hs"))))
 
 ;;; haskell-tng-syntax-test.el ends here