blob: d920825f7ce0b79541242cf316082b65e1a22d4c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(load "../common")
(with-dyn-lib (libc)
(deffi realpath-null "realpath" str-d (str str))
(deffi realpath-buf "realpath" str-d (str (ptr-in-d (zarray 8192 char)))))
(when (memq (os-symbol) '(:cygwin :solaris))
(put-string (file-get-string "tests/017/realpath.expected"))
(exit 0))
(prinl (realpath-null "/usr/bin" nil))
(prinl (realpath-buf "/usr/bin" (copy "")))
|
