summaryrefslogtreecommitdiff
path: root/test-suite/tests/c-api.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/c-api.test')
-rw-r--r--test-suite/tests/c-api.test46
1 files changed, 0 insertions, 46 deletions
diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test
deleted file mode 100644
index 97146ea8a..000000000
--- a/test-suite/tests/c-api.test
+++ /dev/null
@@ -1,46 +0,0 @@
-;;;; 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 (egrep string filename)
- (zero? (system (string-append "egrep '" string "' " filename " >/dev/null"))))
-
-(define (seek-offset-test dirname)
- (let ((dir (opendir dirname)))
- (do ((filename (readdir dir) (readdir dir)))
- ((eof-object? filename))
- (if (and
- (eqv? (string-ref filename (- (string-length filename) 1)) #\c)
- (eqv? (string-ref filename (- (string-length filename) 2)) #\.))
- (let ((file (string-append dirname "/" filename)))
- (if (and (file-exists? file)
- (egrep "SEEK_(SET|CUR|END)" file)
- (not (egrep "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)))