From 48fadf497f9926311a06e2973c282d98221315ab Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 15 Sep 1999 15:27:49 +0000 Subject: [PATCH] * tests/c-api.test: New file. Add test to check that all source files which use SEEK_SET, SEEK_CUR, and SEEK_END include unistd.h. --- test-suite/tests/c-api.test | 43 +++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 test-suite/tests/c-api.test diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test new file mode 100644 index 000000000..9bea75741 --- /dev/null +++ b/test-suite/tests/c-api.test @@ -0,0 +1,43 @@ +;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*- +;;;; MDJ 990915 +;;;; +;;;; Copyright (C) 1999 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA + +(define srcdir (cdr (assq 'srcdir %guile-build-info))) + +(define (grep string filename) + (zero? (system (string-append "grep '" string "' " filename " >/dev/null")))) + +(define (seek-offset-test dirname) + (let ((dir (opendir dirname))) + (do ((filename (readdir dir) (readdir dir))) + ((eof-object? filename)) + (if (eqv? (string-ref filename (- (string-length filename) 1)) #\c) + (let ((file (string-append dirname "/" filename))) + (if (and (grep "SEEK_\\(SET\\|CUR\\|END\\)" file) + (not (grep "unistd.h" file))) + (fail file))))))) + +;;; A rough conservative test to check that all source files +;;; which use SEEK_SET, SEEK_CUR, and SEEK_END include unistd.h. +;;; +;;; If this test start to trigger without reason, we just modify it +;;; to be more precise. +(with-test-prefix "SEEK_XXX => #include " + (if (file-exists? srcdir) + (seek-offset-test srcdir)))