From: Jan (janneke) Nieuwenhuizen Date: Thu, 18 Mar 2021 08:47:24 +0000 (+0100) Subject: Support for guile-3.0.5: Move test-exit inside srfi-64 test. X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;ds=inline;h=ee371103855e5bfe8aae3debe442a24c6353e172;hp=5074289a33640bb3bd78a711d7ceb645d7ae0cfd;p=8sync.git Support for guile-3.0.5: Move test-exit inside srfi-64 test. * tests/test-actors.scm, tests/test-agenda.scm, tests/test-rmeta-slot.scm (test-exit): Move inside test, where 'test-runner-current' is still set. --- diff --git a/tests/test-actors.scm b/tests/test-actors.scm index 30f13d0..eb3a2de 100644 --- a/tests/test-actors.scm +++ b/tests/test-actors.scm @@ -1,5 +1,6 @@ ;;; 8sync --- Asynchronous programming for Guile ;;; Copyright (C) 2016 Christopher Allan Webber +;;; Copyright (C) 2021 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of 8sync. ;;; @@ -203,5 +204,5 @@ customer> Whaaaaat? I can't believe I got voice mail!\n" (test-equal (get-spoken) '("Hi! jack inits now.\n" "Hi! jill inits now.\n"))) -(test-end "test-actors") (test-exit) +(test-end "test-actors") diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm index a26c6b7..d96b601 100644 --- a/tests/test-agenda.scm +++ b/tests/test-agenda.scm @@ -1,5 +1,6 @@ ;;; 8sync --- Asynchronous programming for Guile ;;; Copyright (C) 2015 Christopher Allan Webber +;;; Copyright (C) 2021 Jan (janneke) Nieuwenhuizen ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -283,8 +284,6 @@ ;; End tests -(test-end "test-agenda") - ;; @@: A better way to handle this at the repl? (test-exit) - +(test-end "test-agenda") diff --git a/tests/test-rmeta-slot.scm b/tests/test-rmeta-slot.scm index 37dac50..7aaa248 100644 --- a/tests/test-rmeta-slot.scm +++ b/tests/test-rmeta-slot.scm @@ -1,5 +1,6 @@ ;;; 8sync --- Asynchronous programming for Guile ;;; Copyright (C) 2017 Christopher Allan Webber +;;; Copyright (C) 2021 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of 8sync. ;;; @@ -62,5 +63,5 @@ (class-rmeta-ref 'entries 'not-defined #:dflt "no-way")) -(test-end "test-rmeta-slot") (test-exit) +(test-end "test-rmeta-slot")