ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
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 @@ (define-public vim
;; a difference being detected. Patching the expected result is
;; non-trivial due to the special format used, so skip the test.
(substitute* "src/testdir/test_terminal.vim"
((".*Test_open_term_from_cmd.*" line)
(string-append line "return\n"))
((".*Test_terminal_postponed_scrollback.*" line)
(string-append line "return\n")))
(substitute* "src/testdir/test_popupwin.vim"
((".*Test_popup_drag_termwin.*" line)
(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))
(add-after 'install 'install-guix.vim
(lambda* (#:key inputs outputs #:allow-other-keys)