Mercurial > hg > xemacs-beta

comparison tests/automated/os-tests.el @ 5540:eed303fac325

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Should tests for substitute-in-file-name be in syntax-tests?
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 08 Aug 2011 13:57:19 +0900
parents 308d34e9f07d
children 071b810ceb18
comparison
equal deleted inserted replaced
5539:4307b8e5998c 5540:eed303fac325
87 (call-process-region 3 7 "cat" t t) 87 (call-process-region 3 7 "cat" t t)
88 (goto-char (point-min)) 88 (goto-char (point-min))
89 (Assert (looking-at result)))) 89 (Assert (looking-at result))))
90 (do-test (car case) (cdr case))))))) 90 (do-test (car case) (cdr case)))))))
91 91
92 (loop
93 with envvar-not-existing = (symbol-name (gensym "whatever"))
94 with envvar-existing = (symbol-name (gensym "whatever"))
95 with envvar-existing-val = (make-string #x10000 ?\xe1)
96 with examples =
97 (list (list (format "%chome%cwhatever%c%chi-there%c$%s"
98 directory-sep-char
99 directory-sep-char
100 directory-sep-char
101 directory-sep-char
102 directory-sep-char
103 envvar-existing)
104 (format "%chi-there%c%s"
105 directory-sep-char
106 directory-sep-char
107 envvar-existing-val))
108 (if (memq system-type '(windows-nt cygwin32))
109 '("//network-path/c$" "//network-path/c$")
110 '("/network-path/c$" "/network-path/c$"))
111 (list (format "/home/whoever/$%s" envvar-not-existing)
112 (format "/home/whoever/$%s" envvar-not-existing))
113 (list (format "/home/whoever/$%s" envvar-existing)
114 (format "/home/whoever/%s" envvar-existing-val))
115 (list (format "/home/whoever/${%s}" envvar-existing)
116 (format "/home/whoever/%s" envvar-existing-val))
117 (list (format "/home/whoever/${%s}" envvar-not-existing)
118 (format "/home/whoever/${%s}" envvar-not-existing)))
119 initially (progn (setenv envvar-not-existing nil t)
120 (setenv envvar-existing envvar-existing-val))
121 for (pre post)
122 in examples
123 do
124 (Assert (string= post (substitute-in-file-name pre))))
125
92 ;;; end of os-tests.el 126 ;;; end of os-tests.el