osicat-posix: isatty test
authorNikodemus Siivola <nikodemus@random-state.net>
Sat, 28 May 2011 09:12:33 +0000 (12:12 +0300)
committerNikodemus Siivola <nikodemus@random-state.net>
Sat, 28 May 2011 09:12:33 +0000 (12:12 +0300)
 (really testing pushing after rearranging the repository setup a bit)

tests/posix.lisp

index ee1e3bf..32a4eef 100644 (file)
     (handler-case (nix:mkdir "/" 0)
       (nix:posix-error (c)
         (nix:posix-error-syscall c)))
-  nix:mkdir)
\ No newline at end of file
+  nix:mkdir)
+
+(define-posix-test isatty.1
+    (let (fd)
+      (unwind-protect
+           (progn
+             (setf fd (nix:open "/tmp/isatty.test" nix:o-creat))
+             (nix:isatty fd))
+        (when fd
+          (nix:close fd))))
+  0)
+
+(define-posix-test isatty.1
+    (let (fd)
+      (unwind-protect
+           (progn
+             (setf fd (ignore-errors (nix:open "/dev/tty" nix:o-rdwr)))
+             (if fd
+                 (nix:isatty fd)
+                 ;; FIXME: add pty stuff for proper testing
+                 "could not open /dev/tty for testing isatty"))
+        (when fd
+          (nix:close fd))))
+  1)