diff options
Diffstat (limited to 'test/lisp/emacs-lisp/backtrace-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/backtrace-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/emacs-lisp/backtrace-tests.el b/test/lisp/emacs-lisp/backtrace-tests.el index 6f099fff173..b42de06776b 100644 --- a/test/lisp/emacs-lisp/backtrace-tests.el +++ b/test/lisp/emacs-lisp/backtrace-tests.el @@ -49,7 +49,7 @@ (setq backtrace-frames (seq-subseq backtrace-frames 0 (1+ this-index)))) (backtrace-print)))) - (eval backtrace-tests--uncompiled-functions)) + (eval backtrace-tests--uncompiled-functions t)) (defun backtrace-tests--backtrace-lines () (if debugger-stack-frame-as-list @@ -274,16 +274,16 @@ line contains the strings \"lambda\" and \"number\"." ;; Verify the form now spans multiple lines. (let ((pos (point))) (search-forward "number") - (should-not (= pos (point-at-bol)))) + (should-not (= pos (pos-bol)))) ;; Collapse the form. (backtrace-single-line) ;; Verify that the form is now back on one line, ;; and that point is at the same place. (should (string= (backtrace-tests--get-substring (- (point) 6) (point)) "number")) - (should-not (= (point) (point-at-bol))) + (should-not (= (point) (pos-bol))) (should (string= (backtrace-tests--get-substring - (point-at-bol) (1+ (point-at-eol))) + (pos-bol) (1+ (pos-eol))) line))) (ert-deftest backtrace-tests--print-circle () |