mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

* tests/c-api.test: New file. Add test to check that all source

Browse source 
files which use SEEK_SET, SEEK_CUR, and SEEK_END include unistd.h.
This commit is contained in:
Mikael Djurfeldt 1999-09-15 15:27:49 +00:00
parent 5eb548fc54
commit 48fadf497f
1 changed files with 43 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

43
test-suite/tests/c-api.test Normal file
View file

@ -0,0 +1,43 @@
;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*-
;;;; MDJ 990915 <djurfeldt@nada.kth.se>
;;;;
;;;; 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 <unistd.h>"
(if (file-exists? srcdir)
(seek-offset-test srcdir)))