summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorNeale Swinnerton <neale@isismanor.com>2013-03-20 13:21:59 +0000
committerNeale Swinnerton <neale@isismanor.com>2013-04-04 19:38:16 +0100
commit5d080d6366264966641663ef7c37de551ec1666f (patch)
tree3d5d8cc0414bc2e2ed3fabc7bbab89ae02478c28 /test
parentd19b5b5689e1fea7b6b0f9e3527548471c488212 (diff)
fix handling of missing column better
Diffstat (limited to 'test')
-rw-r--r--test/nrepl-tests.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/nrepl-tests.el b/test/nrepl-tests.el
index d830f08e..55ffaef7 100644
--- a/test/nrepl-tests.el
+++ b/test/nrepl-tests.el
@@ -140,7 +140,7 @@
(let ((info (nrepl-extract-error-info nrepl-compilation-regexp message)))
(should (string= (nth 0 info) "/some/test/file/core.clj"))
(should (= (nth 1 info) 31))
- (should (= (nth 2 info) 0))
+ (should (equal (nth 2 info) nil))
(should (equal (nth 3 info) 'nrepl-error-highlight-face)))))
(ert-deftest test-nrepl-extract-error-info-14-no-file ()
@@ -148,7 +148,7 @@
(let ((info (nrepl-extract-error-info nrepl-compilation-regexp message)))
(should (equal (nth 0 info) nil))
(should (= (nth 1 info) 31))
- (should (= (nth 2 info) 0))
+ (should (equal (nth 2 info) nil))
(should (equal (nth 3 info) 'nrepl-error-highlight-face)))))
(ert-deftest test-nrepl-extract-warning-info-14 ()
@@ -157,7 +157,7 @@
(let ((info (nrepl-extract-error-info nrepl-compilation-regexp message)))
(should (string= (nth 0 info) "/some/othertest/file/core.clj"))
(should (= (nth 1 info) 24))
- (should (= (nth 2 info) 0))
+ (should (equal (nth 2 info) nil))
(should (equal (nth 3 info) 'nrepl-warning-highlight-face)))))
(ert-deftest test-nrepl-extract-warning-info-14-no-file ()
@@ -166,7 +166,7 @@
(let ((info (nrepl-extract-error-info nrepl-compilation-regexp message)))
(should (equal (nth 0 info) nil))
(should (= (nth 1 info) 24))
- (should (= (nth 2 info) 0))
+ (should (equal (nth 2 info) nil))
(should (equal (nth 3 info) 'nrepl-warning-highlight-face)))))
(ert-deftest test-nrepl-extract-error-info-15 ()