diff options
author | Eli Zaretskii <eliz@gnu.org> | 2019-06-07 12:01:11 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2019-06-07 12:01:11 +0300 |
commit | e5bc9a32b65e16ff48a50d56e3d8b4990e95acac (patch) | |
tree | 81f87bcdc75b672571f8eaaf110c9d651e04fe1a /test/lisp/term-tests.el | |
parent | ad9eadbe4ab9811d5b4091a18d7a09d325e75fb3 (diff) | |
download | emacs-e5bc9a32b65e16ff48a50d56e3d8b4990e95acac.tar.gz |
Fix failures of term-tests on MS-Widows
* test/lisp/term-tests.el (term-simple-lines)
(term-carriage-return, term-line-wrap, term-cursor-movement)
(term-scrolling-region, term-set-directory)
(term-line-wrapping-then-motion, term-to-margin): Skip tests
on MS-Windows and MS-DOS.
Diffstat (limited to 'test/lisp/term-tests.el')
-rw-r--r-- | test/lisp/term-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/term-tests.el b/test/lisp/term-tests.el index 6923096d224..33ed006cf8b 100644 --- a/test/lisp/term-tests.el +++ b/test/lisp/term-tests.el @@ -51,6 +51,7 @@ (buffer-substring-no-properties (point-min) (point-max)))))) (ert-deftest term-simple-lines () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (let ((str "\ first line\r next line\r\n")) @@ -58,12 +59,14 @@ next line\r\n")) (replace-regexp-in-string "\r" "" str))))) (ert-deftest term-carriage-return () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (let ((str "\ first line\r_next line\r\n")) (should (equal (term-test-screen-from-input 40 12 str) "_next line\n")))) (ert-deftest term-line-wrap () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (should (string-match-p ;; Don't be strict about trailing whitespace. "\\`a\\{40\\}\na\\{20\\} *\\'" @@ -75,6 +78,7 @@ first line\r_next line\r\n")) (list str str)))))) (ert-deftest term-cursor-movement () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) ;; Absolute positioning. (should (equal "ab\ncd" (term-test-screen-from-input @@ -105,6 +109,7 @@ first line\r_next line\r\n")) "\e[D\e[Da"))))) (ert-deftest term-scrolling-region () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (should (equal "\ line3 line4 @@ -256,6 +261,7 @@ line6\r line7"))))) (ert-deftest term-set-directory () + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (let ((term-ansi-at-user (user-real-login-name))) (should (equal (term-test-screen-from-input 40 12 "\eAnSiTc /foo/\n" 'default-directory) @@ -271,6 +277,7 @@ A real-life example is the default zsh prompt which writes spaces to the end of line (triggering line-wrapping state), and then sends a carriage return followed by another space to overwrite the first character of the line." + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (let* ((width 10) (strs (list "x" (make-string (1- width) ?_) "\r_"))) @@ -280,6 +287,7 @@ the first character of the line." (ert-deftest term-to-margin () "Test cursor movement at the scroll margin. This is a reduced example from GNU nano's initial screen." + (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (let* ((width 10) (x (make-string width ?x)) (y (make-string width ?y))) |