mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

Merge branch 'master' into strftime-gnulib

Browse source 
Conflicts:
	libguile/ChangeLog
	srfi/ChangeLog
	test-suite/ChangeLog
This commit is contained in:
Ludovic Courtès 2008-09-09 22:03:42 +02:00
commit 53f4876abc
17 changed files with 73 additions and 357 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2008-08-27 Ludovic Courtès <ludo@gnu.org>
* tests/srfi-18.test: Don't run the tests unless
"(provided? 'threads)" is true.
2008-08-25 Ludovic Courtès <ludo@gnu.org>
* standalone/Makefile.am (test_cflags): Add `$(GCC_CFLAGS)'.

10
test-suite/tests/srfi-18.test
View file

@ -1,7 +1,7 @@
;;;; srfi-18.test --- Test suite for Guile's SRFI-18 functions. -*- scheme -*-
;;;; Julian Graham, 2007-10-26
;;;;
;;;; Copyright (C) 2007 Free Software Foundation, Inc.
;;;; Copyright (C) 2007, 2008 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
@ -19,8 +19,10 @@
;;;; Boston, MA 02110-1301 USA
(define-module (test-suite test-srfi-18)
#:use-module (test-suite lib)
#:use-module (srfi srfi-18))
#:use-module (test-suite lib))
(and (provided? 'threads)
(use-modules (srfi srfi-18))
(with-test-prefix "current-thread"
@ -475,3 +477,5 @@
(set! success #t)))
(lambda () (thread-join! t)))
success)))
)