diff options
Diffstat (limited to 'test/lisp/simple-tests.el')
| -rw-r--r-- | test/lisp/simple-tests.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 28d8120f143..b632c908443 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -742,7 +742,7 @@ See Bug#21722." (ert-deftest eval-expression-print-format-sym-echo () ;; We can only check the echo area when running interactive. - (skip-unless (not noninteractive)) + (skip-when noninteractive) (with-temp-buffer (cl-letf (((symbol-function 'read--expression) (lambda (&rest _) t))) (let ((current-prefix-arg nil)) @@ -763,7 +763,7 @@ See Bug#21722." (should (equal (buffer-string) "65 (#o101, #x41, ?A)")))))) (ert-deftest eval-expression-print-format-small-int-echo () - (skip-unless (not noninteractive)) + (skip-when noninteractive) (with-temp-buffer (cl-letf (((symbol-function 'read--expression) (lambda (&rest _) ?A))) (let ((current-prefix-arg nil)) @@ -789,7 +789,7 @@ See Bug#21722." (should (equal (buffer-string) "66 (#o102, #x42, ?B)")))))) (ert-deftest eval-expression-print-format-large-int-echo () - (skip-unless (not noninteractive)) + (skip-when noninteractive) (with-temp-buffer (cl-letf (((symbol-function 'read--expression) (lambda (&rest _) ?B)) (eval-expression-print-maximum-character ?A)) @@ -839,7 +839,7 @@ See Bug#21722." (forward-line 2) (narrow-to-region (pos-bol) (pos-eol)) (should (equal (line-number-at-pos) 1)) - (line-number-at-pos nil t) + (should (equal (line-number-at-pos nil t) 3)) (should (equal (line-number-at-pos) 1)))) (ert-deftest line-number-at-pos-keeps-point () @@ -849,8 +849,8 @@ See Bug#21722." (goto-char (point-min)) (forward-line 2) (setq pos (point)) - (line-number-at-pos) - (line-number-at-pos nil t) + (should (equal (line-number-at-pos) 3)) + (should (equal (line-number-at-pos nil t) 3)) (should (equal pos (point)))))) (ert-deftest line-number-at-pos-when-passing-point () |