mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

srfi-18 test fix

Browse source 
* test-suite/tests/srfi-18.test: Enclose the tests in a begin instead of
  an and.  Before, they were not being run, for some reason I don't
  fully understand.
This commit is contained in:
Andy Wingo 2012-02-24 20:01:47 +01:00
parent 006163e02f
commit a850c3ccc4
1 changed files with 373 additions and 376 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;;; srfi-18.test --- Test suite for Guile's SRFI-18 functions. -*- scheme -*- ;;;; srfi-18.test --- Test suite for Guile's SRFI-18 functions. -*- scheme -*-
;;;; Julian Graham, 2007-10-26 ;;;; Julian Graham, 2007-10-26
;;;; ;;;;
;;;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. ;;;; Copyright (C) 2007, 2008, 2012 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
@ -25,9 +25,8 @@
(if (provided? 'threads) (if (provided? 'threads)
(use-modules (srfi srfi-18))) (use-modules (srfi srfi-18)))
(and (cond
(provided? 'threads) ((provided? 'threads)
(with-test-prefix "current-thread" (with-test-prefix "current-thread"
(pass-if "current-thread eq current-thread" (pass-if "current-thread eq current-thread"
@ -480,6 +479,4 @@
(eq? (uncaught-exception-reason obj) 'foo) (eq? (uncaught-exception-reason obj) 'foo)
(set! success #t))) (set! success #t)))
(lambda () (thread-join! t))) (lambda () (thread-join! t)))
success))) success)))))
)