mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Avoids deprecated egrep in c-api.test

Browse source 
The standalone egrep script has been deprecated by GNU grep.
'grep -E' is the suggested replacement.

* test-suite/tests/c-api.test (egrep): replace egrep with grep -E
This commit is contained in:
Mike Gran 2022-10-02 07:23:52 -07:00
parent 3ed7673ac0
commit f5c064576d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/c-api.test
View file

@ -1,7 +1,7 @@
;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*- ;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*-
;;;; MDJ 990915 <djurfeldt@nada.kth.se> ;;;; MDJ 990915 <djurfeldt@nada.kth.se>
;;;; ;;;;
;;;; Copyright (C) 1999, 2006, 2012, 2014 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2006, 2012, 2014, 2022 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -22,7 +22,7 @@
(define srcdir (cdr (assq 'srcdir %guile-build-info))) (define srcdir (cdr (assq 'srcdir %guile-build-info)))
(define (egrep string filename) (define (egrep string filename)
(zero? (system (string-append "egrep '" string "' " filename (zero? (system (string-append "grep -E '" string "' " filename
" >" %null-device)))) " >" %null-device))))
(define (seek-offset-test dirname) (define (seek-offset-test dirname)