1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00

Convert srfi-197 implementation and tests to modules

https://srfi.schemers.org/srfi-197/srfi-197.html

* NEWS: mention SRFI 197 support.
* am/bootstrap.am: Add srfi-197.scm.
* module/srfi/srfi-197.scm: Convert to module.
* test-suite/Makefile.am: Add srfi-197.sr64.
* test-suite/tests/srfi-197.sr64: Renamed from srfi-197.test.
* test-suite/tests/srfi-197.test: Port to Guile; rename to srfi-197.sr64.
This commit is contained in:
Rob Browning 2025-04-13 17:35:53 -05:00
parent 2d602d28c3
commit 36ba0aa655
5 changed files with 38 additions and 4 deletions

View file

@ -161,6 +161,7 @@ SCM_TESTS = tests/00-initial-env.test \
tests/srfi-111.test \
tests/srfi-119.test \
tests/srfi-171.test \
tests/srfi-197.sr64 \
tests/srfi-4.test \
tests/srfi-9.test \
tests/statprof.test \

View file

@ -1,3 +1,5 @@
;;;; srfi-197.sr64 --- SRFI 197: Pipeline Operators test suite
;;;;
;;;; SPDX-FileCopyrightText: 2020 Adam R. Nelson <adam@nels.onl>
;;;;
;;;; SPDX-License-Identifier: MIT
@ -26,7 +28,16 @@
;;;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;;;; SOFTWARE.
(include "./srfi-64-minimal.scm")
;;; Commentary:
;;; The Copyright statement above was taken from the srfi-197.html file
;;; in the original source.
;;; Code:
(define-module (srfi-197-test)
#:use-module (srfi srfi-64)
#:use-module (srfi srfi-197))
(define (exclamation x) (string-append x "!"))
@ -236,3 +247,7 @@
(quote <>)))
(test-end "Pipeline Operators")
;; Local Variables:
;; mode: scheme
;; End: