From c783f5891a7bc0397a658bd2ff733910333f0269 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 16 Apr 2006 01:38:18 +0000
Subject: [PATCH] (lstat, stat): New tests.

---
 test-suite/tests/filesys.test | 68 ++++++++++++++++++++++++++++++++++-
 1 file changed, 67 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test
index 92e287bf3..7ba4feb06 100644
--- a/test-suite/tests/filesys.test
+++ b/test-suite/tests/filesys.test
@@ -17,7 +17,14 @@
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
 (define-module (test-suite test-filesys)
-  #:use-module (test-suite lib))
+  #:use-module (test-suite lib)
+  #:use-module (test-suite guile-test))
+
+(define (test-file)
+  (data-file-name "filesys-test.tmp"))
+(define (test-symlink)
+  (data-file-name "filesys-test-link.tmp"))
+
 
 ;;;
 ;;; copy-file
@@ -38,6 +45,29 @@
       (false-if-exception (copy-file "/dev/null" "no/such/dir/foo"))
       (= old-next (next-fd)))))
 
+;;;
+;;; lstat
+;;;
+
+(with-test-prefix "lstat"
+
+  (pass-if "normal file"
+    (call-with-output-file (test-file)
+      (lambda (port)
+	(display "hello" port)))
+    (eqv? 5 (stat:size (lstat (test-file)))))
+
+  (call-with-output-file (test-file)
+    (lambda (port)
+      (display "hello" port)))
+  (delete-file (test-symlink))
+  (if (not (false-if-exception
+	    (begin (symlink (test-file) (test-symlink)) #t)))
+      (display "cannot create symlink, lstat test skipped\n")
+      (pass-if "symlink"
+	;; not much to test, except that it works
+	(->bool (lstat (test-symlink))))))
+
 ;;;
 ;;; opendir and friends
 ;;;
@@ -59,3 +89,39 @@
 		   #f)))))
       (closedir d))))
 
+;;;
+;;; stat
+;;;
+
+(with-test-prefix "stat"
+
+  (with-test-prefix "filename"
+
+    (pass-if "size"
+      (call-with-output-file (test-file)
+	(lambda (port)
+	  (display "hello" port)))
+      (eqv? 5 (stat:size (stat (test-file))))))
+
+  (with-test-prefix "file descriptor"
+
+    (pass-if "size"
+      (call-with-output-file (test-file)
+	(lambda (port)
+	  (display "hello" port)))
+      (let* ((fd (open-fdes (test-file) O_RDONLY))
+	     (st (stat fd)))
+	(close-fdes fd)
+	(eqv? 5 (stat:size st)))))
+
+  (with-test-prefix "port"
+
+    (pass-if "size"
+      (call-with-output-file (test-file)
+	(lambda (port)
+	  (display "hello" port)))
+      (let* ((port (open-file (test-file) "r+"))
+	     (st   (stat port)))
+	(close-port port)
+	(eqv? 5 (stat:size st))))))
+