diff options
Diffstat (limited to 'tests/017')
-rw-r--r-- | tests/017/glob-carray.tl | 2 | ||||
-rw-r--r-- | tests/017/glob-zarray.tl | 2 | ||||
-rw-r--r-- | tests/017/realpath.tl | 8 |
3 files changed, 6 insertions, 6 deletions
diff --git a/tests/017/glob-carray.tl b/tests/017/glob-carray.tl index 99660576..7913701b 100644 --- a/tests/017/glob-carray.tl +++ b/tests/017/glob-carray.tl @@ -12,7 +12,7 @@ (nil int) (pathv (carray str)) (nil (array 4 cptr))))) - ((:cygnal :cygwin) + ((:cygnal :cygwin :android) (deffi-type glob-t (struct glob-t (pathc size-t) (nil size-t) diff --git a/tests/017/glob-zarray.tl b/tests/017/glob-zarray.tl index b095e45e..e3f6d08b 100644 --- a/tests/017/glob-zarray.tl +++ b/tests/017/glob-zarray.tl @@ -12,7 +12,7 @@ (nil int) (pathv (ptr-out (zarray str))) (nil (array 4 cptr))))) - ((:cygnal :cygwin) + ((:cygnal :cygwin :android) (deffi-type glob-t (struct glob-t (pathc size-t) (nil size-t) diff --git a/tests/017/realpath.tl b/tests/017/realpath.tl index d920825f..5471a1c8 100644 --- a/tests/017/realpath.tl +++ b/tests/017/realpath.tl @@ -1,12 +1,12 @@ (load "../common") +(when (memq (os-symbol) '(:cygwin :solaris :android)) + (put-string (file-get-string "tests/017/realpath.expected")) + (exit 0)) + (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 ""))) |