diff options
author | Jon Pither <jon.pither@gmail.com> | 2013-08-13 10:33:44 +0100 |
---|---|---|
committer | Jon Pither <jon.pither@gmail.com> | 2013-08-13 10:33:44 +0100 |
commit | f7b9007ed97ec3bc264268327ee59fb864ec44ef (patch) | |
tree | 05c3d4624f567d4ecdc1c882b9a2f27d6f92eb1b /test | |
parent | 1e9d5cddd65316a6dc7db1f47a11c50b876ba545 (diff) |
Adding should to tests
Diffstat (limited to 'test')
-rw-r--r-- | test/nrepl-tests.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/nrepl-tests.el b/test/nrepl-tests.el index 6e2849bf..67b821f6 100644 --- a/test/nrepl-tests.el +++ b/test/nrepl-tests.el @@ -308,8 +308,8 @@ (nrepl-connection-browser) (with-temp-buffer ;; switch to another buffer (nrepl-invoke-selector-method-by-key ?n) - (equal (current-buffer) - (get-buffer nrepl--connection-browser-buffer-name))))))) + (should (equal (current-buffer) + (get-buffer nrepl--connection-browser-buffer-name)))))))) (ert-deftest test-nrepl-selector-c () (with-temp-buffer @@ -320,11 +320,11 @@ (rename-buffer "*testfile*.el") (setq major-mode 'emacs-lisp-mode) (with-temp-buffer - (not (equal (current-buffer) b1)) + (should (not (equal (current-buffer) b1))) (nrepl-invoke-selector-method-by-key ?e) - (not (equal (current-buffer) b1)) + (should (not (equal (current-buffer) b1))) (nrepl-invoke-selector-method-by-key ?c) - (equal (current-buffer) b1)))))) + (should (equal (current-buffer) b1))))))) (ert-deftest test-nrepl-selector-e () (with-temp-buffer @@ -335,17 +335,17 @@ (rename-buffer "*testfile*.clj") (setq major-mode 'clojure-mode) (with-temp-buffer - (not (equal (current-buffer) b1)) + (should (not (equal (current-buffer) b1))) (nrepl-invoke-selector-method-by-key ?c) - (not (equal (current-buffer) b1)) + (should (not (equal (current-buffer) b1))) (nrepl-invoke-selector-method-by-key ?e) - (equal (current-buffer) b1)))))) + (should (equal (current-buffer) b1))))))) (ert-deftest test-nrepl-selector-v () (with-temp-buffer (rename-buffer "*nrepl-events*") (lexical-let ((b1 (current-buffer))) (with-temp-buffer - (not (equal (current-buffer) b1)) + (should (not (equal (current-buffer) b1))) (nrepl-invoke-selector-method-by-key ?v) - (equal (current-buffer) b1))))) + (should (equal (current-buffer) b1)))))) |