branch: elpa/haskell-tng-mode
commit 8b6d5459958032c022dd37084534c196259a441e
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@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
