Mercurial > hg > xemacs-beta

comparison tests/automated/os-tests.el @ 4199:3660d327399f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
4198:fb83e69ce80a 4199:3660d327399f
34 ;; call-process-region bug reported by Katsumi Yamaoka on 2004-10-26 34 ;; call-process-region bug reported by Katsumi Yamaoka on 2004-10-26
35 ;; in <b9yvfcyuscf.fsf@jpl.org>, who suggested the basic test scheme 35 ;; in <b9yvfcyuscf.fsf@jpl.org>, who suggested the basic test scheme
36 ;; in <b9yoeipvwn0.fsf@jpl.org>. 36 ;; in <b9yoeipvwn0.fsf@jpl.org>.
37 37
38 ;; tac works by lines, unfortunately 38 ;; tac works by lines, unfortunately
39 ;; #### The contortions around `executable-find' gag me, but I don't have time
40 ;; to deal today. If we have `executable-find', we should use its value!
39 (let* ((original-string "a\nb\nc\nd\n") 41 (let* ((original-string "a\nb\nc\nd\n")
40 (tac-cases (if (executable-find "tac") 42 ;; `executable-find' is in a package and may be unavailable.
43 (tac-cases (if (and (fboundp 'executable-find) (executable-find "tac"))
41 '((1 . "c\nb\na\nd\n") 44 '((1 . "c\nb\na\nd\n")
42 (3 . "a\nc\nb\nd\n") 45 (3 . "a\nc\nb\nd\n")
43 (5 . "a\nc\nb\nd\n") 46 (5 . "a\nc\nb\nd\n")
44 (7 . "a\nc\nb\nd\n") 47 (7 . "a\nc\nb\nd\n")
45 (9 . "a\nd\nc\nb\n")) 48 (9 . "a\nd\nc\nb\n"))
46 nil)) 49 nil))
47 (cat-cases (if (executable-find "cat") 50 (cat-cases (if (and (fboundp 'executable-find) (executable-find "cat"))
48 '((1 . "b\nc\na\nd\n") 51 '((1 . "b\nc\na\nd\n")
49 (3 . "a\nb\nc\nd\n") 52 (3 . "a\nb\nc\nd\n")
50 (5 . "a\nb\nc\nd\n") 53 (5 . "a\nb\nc\nd\n")
51 (7 . "a\nb\nc\nd\n") 54 (7 . "a\nb\nc\nd\n")
52 (9 . "a\nd\nb\nc\n")) 55 (9 . "a\nd\nb\nc\n"))