From ee371103855e5bfe8aae3debe442a24c6353e172 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Thu, 18 Mar 2021 09:47:24 +0100 Subject: [PATCH] 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. --- tests/test-actors.scm | 3 ++- tests/test-agenda.scm | 5 ++--- tests/test-rmeta-slot.scm | 3 ++- 3 files changed, 6 insertions(+), 5 deletions(-) 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") -- 2.31.1