guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: vim: Skip terminal screen-dump tests.

Browse source 
Even with careful substitutions these tests often break on other
architectures anyway.

* gnu/packages/vim.scm (vim)[arguments]: Adjust
skip-or-fix-failing-tests to skip another terminal screen-dump test.
This commit is contained in:
Efraim Flashner 2021-01-10 09:47:38 +02:00
parent 9f829da86f
commit 4a0a453392
Signed by untrusted user: efraim
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 2 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/vim.scm
View file

@ -126,25 +126,13 @@
;; a difference being detected. Patching the expected result is ;; a difference being detected. Patching the expected result is
;; non-trivial due to the special format used, so skip the test. ;; non-trivial due to the special format used, so skip the test.
(substitute* "src/testdir/test_terminal.vim" (substitute* "src/testdir/test_terminal.vim"
((".*Test_open_term_from_cmd.*" line)
(string-append line "return\n"))
((".*Test_terminal_postponed_scrollback.*" line) ((".*Test_terminal_postponed_scrollback.*" line)
(string-append line "return\n"))) (string-append line "return\n")))
(substitute* "src/testdir/test_popupwin.vim" (substitute* "src/testdir/test_popupwin.vim"
((".*Test_popup_drag_termwin.*" line) ((".*Test_popup_drag_termwin.*" line)
(string-append line "return\n"))) (string-append line "return\n")))
;; This test compares output against a golden ‘…/|b|i|n|/|s|h…’
;; literal. We need to match that and substitute a similarly
;; ‘spliced’ path to ‘sh’ in the store, truncated to the last
;; 44 (spliced: 88) characters.
(let ((splice (lambda (s separator)
(string-join (map string (string->list s))
separator))))
(substitute* "src/testdir/dumps/Test_terminal_from_cmd.dump"
(((splice "/bin/sh" "\\|"))
(splice (string-take-right (which "sh") 44) "|"))
;; Blindly fix some other differences based on error output.
(("^\\|!") "|<")
(("@37") "")))
#t)) #t))
(add-after 'install 'install-guix.vim (add-after 'install 'install-guix.vim
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)