From 7620af7d371302600c58f422ccdf496b2fbb1c46 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 18 Mar 2021 18:52:16 -0400
Subject: Fix test suite.

---
 tests/subrip.scm | 4 +---
 tests/utils.scm  | 6 +++---
 tests/webvtt.scm | 4 +---
 3 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/tests/subrip.scm b/tests/subrip.scm
index dd4a4f4..deeee58 100644
--- a/tests/subrip.scm
+++ b/tests/subrip.scm
@@ -69,6 +69,4 @@ baz
 "
     read-subrips))
 
-(test-end "subrip")
-
-(test-exit)
+(test-end* "subrip")
diff --git a/tests/utils.scm b/tests/utils.scm
index b08db8f..9f10784 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -16,7 +16,7 @@
 
 (define-module (tests utils)
   #:use-module (srfi srfi-64)
-  #:export (test-exit))
+  #:export (test-end*))
 
-(define (test-exit)
-  (exit (= (test-runner-fail-count (test-runner-current)) 0)))
+(define (test-end* name)
+  (exit (= (test-runner-fail-count (test-end name)) 0)))
diff --git a/tests/webvtt.scm b/tests/webvtt.scm
index 76a433d..e2d83bb 100644
--- a/tests/webvtt.scm
+++ b/tests/webvtt.scm
@@ -62,6 +62,4 @@ baz
                                   '("bar" "baz")))))
         (write-webvtts subs port))))))
 
-(test-end "webvtt")
-
-(test-exit)
+(test-end* "webvtt")
-- 
cgit v1.2.3