Mercurial > hg > xemacs-beta
diff tests/automated/os-tests.el @ 4199:3660d327399f
[xemacs-hg @ 2007-10-01 08:07:39 by stephent]
Implement subexpression replacement in replace-match. <87ejgf6yy9.fsf@uwakimon.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Mon, 01 Oct 2007 08:07:57 +0000 |
| parents | 0b060ef35789 |
| children | 308d34e9f07d |
line wrap: on
line diff
--- a/tests/automated/os-tests.el Sun Sep 30 21:50:52 2007 +0000 +++ b/tests/automated/os-tests.el Mon Oct 01 08:07:57 2007 +0000 @@ -36,15 +36,18 @@ ;; in <b9yoeipvwn0.fsf@jpl.org>. ;; tac works by lines, unfortunately +;; #### The contortions around `executable-find' gag me, but I don't have time +;; to deal today. If we have `executable-find', we should use its value! (let* ((original-string "a\nb\nc\nd\n") - (tac-cases (if (executable-find "tac") + ;; `executable-find' is in a package and may be unavailable. + (tac-cases (if (and (fboundp 'executable-find) (executable-find "tac")) '((1 . "c\nb\na\nd\n") (3 . "a\nc\nb\nd\n") (5 . "a\nc\nb\nd\n") (7 . "a\nc\nb\nd\n") (9 . "a\nd\nc\nb\n")) nil)) - (cat-cases (if (executable-find "cat") + (cat-cases (if (and (fboundp 'executable-find) (executable-find "cat")) '((1 . "b\nc\na\nd\n") (3 . "a\nb\nc\nd\n") (5 . "a\nb\nc\nd\n")