mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix parallel test bug in r6rs-ports.test

Browse source 
* test-suite/tests/r6rs-ports.test (test-file): Use different file from
ports.test, to avoid problems during parallel tests.
This commit is contained in:
Andy Wingo 2024-06-23 21:43:05 +02:00
parent 1120efe375
commit b93dc62e03
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/r6rs-ports.test
View file

@ -1,6 +1,6 @@
;;;; r6rs-ports.test --- R6RS I/O port tests. -*- coding: utf-8; -*- ;;;; r6rs-ports.test --- R6RS I/O port tests. -*- coding: utf-8; -*-
;;;; ;;;;
;;;; Copyright (C) 2009-2012,2013-2015,2018-2021,2023 Free Software Foundation, Inc. ;;;; Copyright (C) 2009-2012,2013-2015,2018-2021,2023,2024-2024 Free Software Foundation, Inc.
;;;; Ludovic Courtès ;;;; Ludovic Courtès
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -38,7 +38,7 @@
body0 body ...))))))) body0 body ...)))))))
(define (test-file) (define (test-file)
(data-file-name "ports-test.tmp")) (data-file-name "r6rs-ports-test.tmp"))
;; A input/output port that swallows all output, and produces just ;; A input/output port that swallows all output, and produces just
;; spaces on input. Reading and writing beyond `failure-position' ;; spaces on input. Reading and writing beyond `failure-position'