diff options
| author | Andrea Corallo | 2019-07-13 11:33:15 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:52 +0100 |
| commit | 973a7b149f1362c4201d38bffeabbf857e7bb6d5 (patch) | |
| tree | b49ceaede63d032560465e7392a7f9ce3dde2670 /test/src | |
| parent | 8f1492c0b7b3ca684b3f88dc709b882cb758aad3 (diff) | |
| download | emacs-973a7b149f1362c4201d38bffeabbf857e7bb6d5.tar.gz emacs-973a7b149f1362c4201d38bffeabbf857e7bb6d5.zip | |
some consistency rework one test +
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index a8445c79c8f..0aea66f974b 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -82,18 +82,18 @@ | |||
| 82 | (should (= (comp-tests-cdr-safe-f '(1 . 2)) 2)) | 82 | (should (= (comp-tests-cdr-safe-f '(1 . 2)) 2)) |
| 83 | (should (null (comp-tests-cdr-safe-f 'a)))) | 83 | (should (null (comp-tests-cdr-safe-f 'a)))) |
| 84 | 84 | ||
| 85 | ;; (ert-deftest comp-tests-cons-car-cdr () | 85 | (ert-deftest comp-tests-cons-car-cdr () |
| 86 | ;; "Testing cons car cdr." | 86 | "Testing cons car cdr." |
| 87 | ;; (defun comp-tests-cons-car-f () | 87 | (defun comp-tests-cons-car-f () |
| 88 | ;; (car (cons 1 2))) | 88 | (car (cons 1 2))) |
| 89 | ;; (native-compile #'comp-tests-cons-car-f) | 89 | (native-compile #'comp-tests-cons-car-f) |
| 90 | 90 | ||
| 91 | ;; (defun comp-tests-cons-cdr-f (x) | 91 | (defun comp-tests-cons-cdr-f (x) |
| 92 | ;; (cdr (cons 'foo x))) | 92 | (cdr (cons 'foo x))) |
| 93 | ;; (native-compile #'comp-tests-cons-cdr-f) | 93 | (native-compile #'comp-tests-cons-cdr-f) |
| 94 | 94 | ||
| 95 | ;; (should (= (comp-tests-cons-car-f) 1)) | 95 | (should (= (comp-tests-cons-car-f) 1)) |
| 96 | ;; (should (= (comp-tests-cons-cdr-f 3) 3))) | 96 | (should (= (comp-tests-cons-cdr-f 3) 3))) |
| 97 | 97 | ||
| 98 | ;; (ert-deftest comp-tests-varset () | 98 | ;; (ert-deftest comp-tests-varset () |
| 99 | ;; "Testing varset." | 99 | ;; "Testing varset." |