| Server IP : 82.208.35.60 / Your IP : 216.73.217.33 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/textproc/py-docutils/work-py39/docutils-0.17.1/tools/editors/emacs/tests/ |
Upload File : |
;; Initialize tests -*- lexical-binding: t -*-
(defun init-rst-ert (&optional with-buffer)
"Initialize tests.
Prepare for buffer using tests if WITH-BUFFER."
(when with-buffer
(add-to-list 'load-path ".")
(load "ert-buffer" nil t)
(if (equal (car load-path) ".")
(setq load-path (cdr load-path))))
(add-to-list 'load-path "..")
(load "rst.el" nil t)
(if (equal (car load-path) "..")
(setq load-path (cdr load-path)))
;; Emacs 24 should have a patch in `testcover-after` declaring a
;; `gv-expander'.
(if (< emacs-major-version 24)
;; Define a setf-method for `testcover-after' so `ert' tests can be run
;; without problems.
(defsetf testcover-after (idx val) (store)
(list 'progn
(list 'testcover-after idx val)
;; FIXME: Though it solves the problem it is not really correct
;; because `val' is only a temporary variable here.
(list 'setf val store)))))
;; Clean up `load-path' if set caller just to load this file.
(if (equal (car load-path) ".")
(setq load-path (cdr load-path)))