procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Work around the failures in icalendar-tests which occasionally occur

Browse source 
on hydra.nixos.org.


	* automated/icalendar-tests.el (icalendar-tests--do-test-import):
	Work around the failures in icalendar-tests which occasionally occur on
	hydra.nixos.org.
This commit is contained in:
Ulf Jasper 2014-07-26 14:53:36 +02:00
parent 6ea4c765a0
commit 54e3f15626
2 changed files with 30 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/ChangeLog
View file

@ -1,3 +1,9 @@
2014-07-26 Ulf Jasper <ulf.jasper@web.de>
* automated/icalendar-tests.el (icalendar-tests--do-test-import):
Work around the failures in icalendar-tests which occasionally occur on
hydra.nixos.org.
2014-07-21 Fabián Ezequiel Gallina <fgallina@gnu.org>
* automated/python-tests.el:

25
test/automated/icalendar-tests.el
View file

@ -718,11 +718,34 @@ Argument EXPECTED-AMERICAN expected american style diary string."
Argument INPUT input icalendar string.
Argument EXPECTED-OUTPUT expected diary string."
(let ((temp-file (make-temp-file "icalendar-test-diary")))
;; Test the Catch-the-mysterious-coding-header logic below.
;; Ruby-mode adds an after-save-hook which inserts the header!
;; (save-excursion
;; (find-file temp-file)
;; (ruby-mode))
(icalendar-import-buffer temp-file t t)
(save-excursion
(find-file temp-file)
;; Check for the mysterious "# coding: ..." header, remove it
;; and give a shout
(goto-char (point-min))
(when (re-search-forward "# coding: .*?\n" nil t)
(message (concat "%s\n"
"Found mysterious \"# coding ...\" header! Removing it.\n"
"Current Modes: %s, %s\n"
"Current test: %s\n"
"%s")
(make-string 70 ?*)
major-mode
minor-mode-list
(ert-running-test)
(make-string 70 ?*))
(buffer-disable-undo)
(replace-match "")
(set-buffer-modified-p nil))
(let ((result (buffer-substring-no-properties (point-min) (point-max))))
(should (string= expected-output result)))
(should (string= expected-output result)))
(kill-buffer (find-buffer-visiting temp-file))
(delete-file temp-file))))