cl-stream/unistd-stream

diff --git a/test.lisp b/test.lisp
index 02c3ef2..a12a923 100644
--- a/test.lisp
+++ b/test.lisp
@@ -9,6 +9,16 @@
 
 (in-package :fd-stream.test)
 
+(let ((s (fd-output-stream 1)))
+  (write s 13)
+  (dotimes (i 10)
+    (write s (+ 48 i)))
+  (write s 13)
+  (flush s))
+
+(let ((s (fd-input-stream 0)))
+  (read s))
+
 (with-stream (s (open-file "/tmp/test"))
   (dotimes (i 100)
     (write s i)))