unigbrk: New modules for grapheme clusters.

[pspp] / tests / test-read-file.c

diff --git a/tests/test-read-file.c b/tests/test-read-file.c
index 0a0bf6882e4c821b9aa47bf5e57ae42980787ae4..daa61668c60d80798203c28fadc80fd3b9b2470a 100644 (file)
--- a/tests/test-read-file.c
+++ b/tests/test-read-file.c
@@ -52,11 +52,23 @@ main (void)
               err = 1;
             }
 
-          /* Assume FILE1 is a regular file or a symlink to a regular file.  */
-          if (len != statbuf.st_size)
+          if (S_ISREG (statbuf.st_mode))
             {
-              fprintf (stderr, "Read %ld from %s...\n", (unsigned long) len, FILE1);
-              err = 1;
+              /* FILE1 is a regular file or a symlink to a regular file.  */
+              if (len != statbuf.st_size)
+                {
+                  fprintf (stderr, "Read %ld from %s...\n", (unsigned long) len, FILE1);
+                  err = 1;
+                }
+            }
+          else
+            {
+              /* Assume FILE1 is not empty.  */
+              if (len == 0)
+                {
+                  fprintf (stderr, "Read nothing from %s\n", FILE1);
+                  err = 1;
+                }
             }
           free (out);
         }