[nongnu] elpa/parseclj 45bd6a7431 109/185: Clean up tests

[ELPA Syncer]

branch: elpa/parseclj
commit 45bd6a7431baed510f372feb7be95b7aecc28fcd
Author: Daniel Barreto <daniel.barreto.n@gmail.com>
Commit: Daniel Barreto <daniel.barreto.n@gmail.com>

    Clean up tests
---
 test/parseclj-test.el | 36 ++++++------------------------------
 1 file changed, 6 insertions(+), 30 deletions(-)

diff --git a/test/parseclj-test.el b/test/parseclj-test.el
index ec439b3d5f..1f77eb74b8 100644
--- a/test/parseclj-test.el
+++ b/test/parseclj-test.el
@@ -68,58 +68,34 @@
   (should (equal
            (condition-case errdata
                (parseclj-parse-clojure "foo]")
-             (parseclj-parse-error (cadr errdata)))
+             (parseclj-parser-error (cadr errdata)))
            "At position 4, unmatched :rbracket"))
 
   (should (equal
            (condition-case errdata
                (parseclj-parse-clojure "[foo")
-             (parseclj-parse-error (cadr errdata)))
+             (parseclj-parser-error (cadr errdata)))
            "At position 1, unmatched :lbracket"))
 
   (should (equal
            (condition-case errdata
                (parseclj-parse-clojure "(1 2 [ 4)")
-             (parseclj-parse-error (cadr errdata)))
+             (parseclj-parser-error (cadr errdata)))
            "At position 6, unmatched :lbracket"))
 
   (should (equal
            (condition-case errdata
                (parseclj-parse-clojure "1 2 #_")
-             (parseclj-parse-error (cadr errdata)))
+             (parseclj-parser-error (cadr errdata)))
            "At position 5, unmatched :discard"))
 
   (should (equal
            (condition-case errdata
                (parseclj-parse-clojure "(1 [2 {3 ( 4}])")
-             (parseclj-parse-error (cadr errdata)))
+             (parseclj-parser-error (cadr errdata)))
            "At position 10, unmatched :lparen")))
 
-(ert-deftest parseclj-parse-clojure-fail-fast-test ()
-  (should (equal
-           (condition-case errdata
-               (parseclj-parse-clojure "foo]")
-             (parseclj-parse-error (cadr errdata)))
-           "At position 4, unmatched :rbracket"))
-
-  (should (equal
-           (condition-case errdata
-               (parseclj-parse-clojure "[foo")
-             (parseclj-parse-error (cadr errdata)))
-           "At position 1, unmatched :lbracket"))
-
-  (should (equal
-           (condition-case errdata
-               (parseclj-parse-clojure "(1 2 [ 4)")
-             (parseclj-parse-error (cadr errdata)))
-           "At position 6, unmatched :lbracket"))
-
-  (should (equal
-           (condition-case errdata
-               (parseclj-parse-clojure "1 2 #_")
-             (parseclj-parse-error (cadr errdata)))
-           "At position 5, unmatched :discard"))
-
+(ert-deftest parseclj-parse-clojure-not-fail-fast-test ()
   (should (equal (parseclj-parse-clojure "(1 [2 {3 ( 4}])" :fail-fast nil)
                  '((:node-type . :root)
                    (:position . 1)