From 44fdbfc668c5dff85de1322fdb13e4cad14940ce Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 15 Sep 1999 15:55:06 +0000 Subject: [PATCH] Use egrep for better compatibility. --- test-suite/tests/c-api.test | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test index 9bea75741..327dc3ed8 100644 --- a/test-suite/tests/c-api.test +++ b/test-suite/tests/c-api.test @@ -20,8 +20,8 @@ (define srcdir (cdr (assq 'srcdir %guile-build-info))) -(define (grep string filename) - (zero? (system (string-append "grep '" string "' " filename " >/dev/null")))) +(define (egrep string filename) + (zero? (system (string-append "egrep '" string "' " filename " >/dev/null")))) (define (seek-offset-test dirname) (let ((dir (opendir dirname))) @@ -29,8 +29,9 @@ ((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))) + (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