(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 "")))